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/LSAGG-.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/LSAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/LSAGG-.lsp | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp index 91682b5f..c345ca12 100644 --- a/src/algebra/strap/LSAGG-.lsp +++ b/src/algebra/strap/LSAGG-.lsp @@ -113,7 +113,7 @@ (SEQ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) NIL) ('T (NOT (SPADCALL (SPADCALL |x| @@ -195,7 +195,7 @@ ((NULL (COND ((SPADCALL |p| (|getShellEntry| $ 16)) - 'NIL) + NIL) ('T (NOT (SPADCALL |q| @@ -288,7 +288,7 @@ (SEQ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) NIL) ('T (SPADCALL (SPADCALL |x| (|getShellEntry| $ 18)) @@ -413,7 +413,7 @@ (SEQ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) NIL) ('T (NOT (SPADCALL (SPADCALL |x| (|getShellEntry| $ 18)) @@ -435,7 +435,7 @@ G190 (COND ((NULL (COND - ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) NIL) ('T (NOT (SPADCALL (SPADCALL |x| @@ -490,7 +490,7 @@ (PROG (#0=#:G1517 |p|) (RETURN (SEQ (EXIT (COND - ((SPADCALL |l| (|getShellEntry| $ 16)) 'T) + ((SPADCALL |l| (|getShellEntry| $ 16)) T) ('T (SEQ (LETT |p| (SPADCALL |l| (|getShellEntry| $ 17)) @@ -511,7 +511,7 @@ (|getShellEntry| $ 18)) |f|)) (PROGN - (LETT #0# 'NIL + (LETT #0# NIL |LSAGG-;sorted?;MAB;15|) (GO #0#))) ('T @@ -522,7 +522,7 @@ (|getShellEntry| $ 17)) |LSAGG-;sorted?;MAB;15|))))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT 'T))))) + (EXIT T))))) #0# (EXIT #0#))))) (DEFUN |LSAGG-;reduce;MA2S;16| (|f| |x| |i| $) @@ -551,7 +551,7 @@ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) NIL) ('T (SPADCALL |r| |a| (|getShellEntry| $ 63))))) (GO G191))) @@ -589,7 +589,7 @@ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) NIL) ('T (NOT (SPADCALL |y| (|getShellEntry| $ 16)))))) (GO G191))) @@ -688,7 +688,7 @@ ((NULL (COND ((SPADCALL |z| (|getShellEntry| $ 16)) - 'NIL) + NIL) ('T (NOT (SPADCALL |x| @@ -733,7 +733,7 @@ ((NULL (COND ((SPADCALL |x| (|getShellEntry| $ 16)) - 'NIL) + NIL) ('T (SPADCALL |w| (SPADCALL |x| @@ -794,7 +794,7 @@ ((NULL (COND ((SPADCALL |x| (|getShellEntry| $ 16)) - 'NIL) + NIL) ('T (NOT (SPADCALL |y| @@ -833,7 +833,7 @@ ((SPADCALL |x| (|getShellEntry| $ 16)) (NOT (SPADCALL |y| (|getShellEntry| $ 16)))) - ('T 'NIL))))) + ('T NIL))))) #0# (EXIT #0#))))) (DEFUN |ListAggregate&| (|#1| |#2|) |