diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-08-16 14:17:40 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-08-16 14:17:40 +0000 |
| commit | ab480e7c03c9f3ab95856eaff6e6493882ff0c36 (patch) | |
| tree | bba846f3e063f72834df5121dfff6d68ad7f4f91 /src/algebra/strap/ILIST.lsp | |
| parent | d2afe2366c2c592327cd0eb6593a3536a6eff54d (diff) | |
| download | open-axiom-ab480e7c03c9f3ab95856eaff6e6493882ff0c36.tar.gz | |
* 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.
Diffstat (limited to 'src/algebra/strap/ILIST.lsp')
| -rw-r--r-- | src/algebra/strap/ILIST.lsp | 16 |
1 files changed, 7 insertions, 9 deletions
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 |