From 351022a3ec02f6e131d54f3a5bcb27a8dfffbcb0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Feb 2011 00:39:58 +0000
Subject: 	* interp/c-util.boot (matchingEXIT): New. 	(simplifySEQ):
 Use it.

---
 src/algebra/strap/OUTFORM.lsp | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

(limited to 'src/algebra/strap/OUTFORM.lsp')

diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp
index af6c2e66..e1e58863 100644
--- a/src/algebra/strap/OUTFORM.lsp
+++ b/src/algebra/strap/OUTFORM.lsp
@@ -944,19 +944,18 @@
 (DEFUN |OUTFORM;differentiate;$Nni$;97| (|a| |nn| $)
   (PROG (|r| |s|)
     (RETURN
-      (SEQ (COND
-             ((ZEROP |nn|) |a|)
-             ((< |nn| 4) (|OUTFORM;prime;$Nni$;86| |a| |nn| $))
-             (T (SEQ (LETT |r|
-                           (SPADCALL
-                               (|check-subtype| (PLUSP |nn|)
-                                   '(|PositiveInteger|) |nn|)
-                               (|getShellEntry| $ 137))
-                           |OUTFORM;differentiate;$Nni$;97|)
-                     (LETT |s| (SPADCALL |r| (|getShellEntry| $ 138))
-                           |OUTFORM;differentiate;$Nni$;97|)
-                     (EXIT (|OUTFORM;super;3$;43| |a| (LIST 'PAREN |s|)
-                               $))))))))) 
+      (COND
+        ((ZEROP |nn|) |a|)
+        ((< |nn| 4) (|OUTFORM;prime;$Nni$;86| |a| |nn| $))
+        (T (SEQ (LETT |r|
+                      (SPADCALL
+                          (|check-subtype| (PLUSP |nn|)
+                              '(|PositiveInteger|) |nn|)
+                          (|getShellEntry| $ 137))
+                      |OUTFORM;differentiate;$Nni$;97|)
+                (LETT |s| (SPADCALL |r| (|getShellEntry| $ 138))
+                      |OUTFORM;differentiate;$Nni$;97|)
+                (EXIT (|OUTFORM;super;3$;43| |a| (LIST 'PAREN |s|) $)))))))) 
 
 (DEFUN |OUTFORM;sum;2$;98| (|a| $)
   (DECLARE (IGNORE $))
-- 
cgit v1.2.3