From af3ebc0d983434f91686d8e2ba7bcb21d5083a30 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 18 Apr 2009 17:57:00 +0000
Subject: 	* algebra/mkfunc.spad.pamphlet (InputForm): Remove assignment
 to Rep. 	(convert): Use per and rep operators. 	* algebra/stap:
 Updated cached Lisp translation.

---
 src/algebra/strap/OUTFORM.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp
index 33f67b44..be37f024 100644
--- a/src/algebra/strap/OUTFORM.lsp
+++ b/src/algebra/strap/OUTFORM.lsp
@@ -517,7 +517,7 @@
 (DEFUN |OUTFORM;rspace;2I$;30| (|n| |m| $)
   (SEQ (COND
          ((< 0 |n|)
-          (COND ((NULL (< 0 |m|)) (EXIT (|OUTFORM;empty;$;73| $)))))
+          (COND ((NOT (< 0 |m|)) (EXIT (|OUTFORM;empty;$;73| $)))))
          ('T (EXIT (|OUTFORM;empty;$;73| $))))
        (EXIT (|OUTFORM;vconcat;3$;50| (|OUTFORM;hspace;I$;29| |n| $)
                  (|OUTFORM;rspace;2I$;30| |n| (- |m| 1) $) $)))) 
@@ -728,7 +728,7 @@
 
 (DEFUN |OUTFORM;prefix;$L$;76| (|a| |l| $)
   (COND
-    ((NULL (|OUTFORM;infix?;$B;74| |a| $)) (CONS |a| |l|))
+    ((NOT (|OUTFORM;infix?;$B;74| |a| $)) (CONS |a| |l|))
     ('T
      (|OUTFORM;hconcat;3$;48| |a|
          (|OUTFORM;paren;2$;40| (|OUTFORM;commaSeparate;L$;33| |l| $)
-- 
cgit v1.2.3