From ab480e7c03c9f3ab95856eaff6e6493882ff0c36 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 16 Aug 2009 14:17:40 +0000
Subject: 	* interp/i-map.boot (addMap): Fix typo from last commit. 
 * interp/compiler.boot (compElt): Fix thinko, one more time. 	*
 interp/nruncomp.boot (optDeltaEntry): Don't overquote VM forms 	for
 constants. 	* algebra/algext.spad.pamphlet: Call niladic functions with
 empty 	argument lists. 	* algebra/ddfact.spad.pamphlet: Likewise. 
 * algebra/gpgcd.spad.pamphlet: Likewise. 	*
 algebra/modmon.spad.pamphlet: Likewise. 	* algebra/pf.spad.pamphlet:
 Likewise. 	* algebra/polycat.spad.pamphlet: Likewise. 	*
 algebra/twofact.spad.pamphlet: Likewise. 	* algebra/list.spad.pamphlet:
 "nil" is now a ocnstant. 	* algebra/string.spad.pamphlet: "space",
 "quote", "escape" are now 	constants.

---
 src/algebra/strap/ILIST.lsp | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

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

diff --git a/src/algebra/strap/ILIST.lsp b/src/algebra/strap/ILIST.lsp
index bdcde3bb..1d888979 100644
--- a/src/algebra/strap/ILIST.lsp
+++ b/src/algebra/strap/ILIST.lsp
@@ -261,12 +261,12 @@
   (PROG (#0=#:G1470)
     (RETURN
       (SEQ (EXIT (COND
-                   ((EQ |x| |y|) 'T)
+                   ((EQ |x| |y|) T)
                    ('T
                     (SEQ (SEQ G190
                               (COND
                                 ((NULL (COND
-                                         ((NULL |x|) 'NIL)
+                                         ((NULL |x|) NIL)
                                          ('T (NOT (NULL |y|)))))
                                  (GO G191)))
                               (SEQ (EXIT
@@ -274,7 +274,7 @@
                                       ((SPADCALL (QCAR |x|) (QCAR |y|)
                                         (|getShellEntry| $ 57))
                                        (PROGN
-                                         (LETT #0# 'NIL
+                                         (LETT #0# NIL
                                           |ILIST;=;2$B;22|)
                                          (GO #0#)))
                                       ('T
@@ -285,9 +285,7 @@
                                          (LETT |y| (QCDR |y|)
                                           |ILIST;=;2$B;22|)))))))
                               NIL (GO G190) G191 (EXIT NIL))
-                         (EXIT (COND
-                                 ((NULL |x|) (NULL |y|))
-                                 ('T 'NIL)))))))
+                         (EXIT (COND ((NULL |x|) (NULL |y|)) ('T NIL)))))))
            #0# (EXIT #0#))))) 
 
 (DEFUN |ILIST;latex;$S;23| (|x| $)
@@ -317,14 +315,14 @@
                                         ((SPADCALL |s| (QCAR |x|)
                                           (|getShellEntry| $ 63))
                                          (PROGN
-                                           (LETT #0# 'T
+                                           (LETT #0# T
                                             |ILIST;member?;S$B;24|)
                                            (GO #0#)))
                                         ('T
                                          (LETT |x| (QCDR |x|)
                                           |ILIST;member?;S$B;24|)))))
                            NIL (GO G190) G191 (EXIT NIL))
-                      (EXIT 'NIL)))
+                      (EXIT NIL)))
            #0# (EXIT #0#))))) 
 
 (DEFUN |ILIST;concat!;3$;25| (|x| |y| $)
@@ -403,7 +401,7 @@
                    (SEQ G190
                         (COND
                           ((NULL (COND
-                                   ((NULL |p|) 'NIL)
+                                   ((NULL |p|) NIL)
                                    ('T (NOT (NULL |q|)))))
                            (GO G191)))
                         (COND
-- 
cgit v1.2.3