From ab480e7c03c9f3ab95856eaff6e6493882ff0c36 Mon Sep 17 00:00:00 2001 From: dos-reis 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/LSAGG-.lsp | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'src/algebra/strap/LSAGG-.lsp') 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|) -- cgit v1.2.3