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/CLAGG-.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/CLAGG-.lsp')
-rw-r--r-- | src/algebra/strap/CLAGG-.lsp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/strap/CLAGG-.lsp b/src/algebra/strap/CLAGG-.lsp index 6dae1744..15cd3abb 100644 --- a/src/algebra/strap/CLAGG-.lsp +++ b/src/algebra/strap/CLAGG-.lsp @@ -92,7 +92,7 @@ (PROGN (LETT #1# (SPADCALL |x| |f|) |CLAGG-;any?;MAB;3|) (COND - (#3# (LETT #2# (COND (#2# 'T) ('T #1#)) + (#3# (LETT #2# (COND (#2# T) ('T #1#)) |CLAGG-;any?;MAB;3|)) ('T (PROGN @@ -100,7 +100,7 @@ (LETT #3# 'T |CLAGG-;any?;MAB;3|))))) (LETT #0# (CDR #0#) |CLAGG-;any?;MAB;3|) (GO G190) G191 (EXIT NIL)) - (COND (#3# #2#) ('T 'NIL))))))) + (COND (#3# #2#) ('T NIL))))))) (DEFUN |CLAGG-;every?;MAB;4| (|f| |c| $) (PROG (|x| #0=#:G1432 #1=#:G1413 #2=#:G1411 #3=#:G1412) @@ -120,7 +120,7 @@ (PROGN (LETT #1# (SPADCALL |x| |f|) |CLAGG-;every?;MAB;4|) (COND - (#3# (LETT #2# (COND (#2# #1#) ('T 'NIL)) + (#3# (LETT #2# (COND (#2# #1#) ('T NIL)) |CLAGG-;every?;MAB;4|)) ('T (PROGN @@ -128,7 +128,7 @@ (LETT #3# 'T |CLAGG-;every?;MAB;4|))))) (LETT #0# (CDR #0#) |CLAGG-;every?;MAB;4|) (GO G190) G191 (EXIT NIL)) - (COND (#3# #2#) ('T 'T))))))) + (COND (#3# #2#) ('T T))))))) (DEFUN |CLAGG-;find;MAU;5| (|f| |c| $) (SPADCALL |f| (SPADCALL |c| (|getShellEntry| $ 9)) |