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/OUTFORM.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/OUTFORM.lsp')
| -rw-r--r-- | src/algebra/strap/OUTFORM.lsp | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp index 46aa1832..99e80e06 100644 --- a/src/algebra/strap/OUTFORM.lsp +++ b/src/algebra/strap/OUTFORM.lsp @@ -560,10 +560,9 @@ (FORMAT NIL (|getShellEntry| $ 6) |f|)) (DEFUN |OUTFORM;outputForm;S$;15| (|s| $) - (SPADCALL (SPADCALL (|getShellEntry| $ 27)) - (SPADCALL |s| (SPADCALL (|getShellEntry| $ 27)) - (|getShellEntry| $ 28)) - (|getShellEntry| $ 29))) + (SPADCALL (|spadConstant| $ 27) + (SPADCALL |s| (|spadConstant| $ 27) (|getShellEntry| $ 28)) + (|getShellEntry| $ 29))) (DEFUN |OUTFORM;width;$I;16| (|a| $) (DECLARE (IGNORE $)) @@ -850,10 +849,10 @@ ((STRINGP |a|) (INTERN |a|)) ('T (PROGN - (LETT #0# 'NIL |OUTFORM;infix?;$B;74|) + (LETT #0# NIL |OUTFORM;infix?;$B;74|) (GO #0#)))) |OUTFORM;infix?;$B;74|) - (EXIT (COND ((GET |e| 'INFIXOP) 'T) ('T 'NIL))))) + (EXIT (COND ((GET |e| 'INFIXOP) T) ('T NIL))))) #0# (EXIT #0#))))) (DEFUN |OUTFORM;elt;$L$;75| (|a| |l| $) |