diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-16 04:52:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-16 04:52:45 +0000 |
| commit | 406b6c0a38ee0e9ea1ba6657b76391f1c15f0b95 (patch) | |
| tree | c05aaf09c7745fdf0d562d8664bc8fddab64befd /src/interp/spad.lisp | |
| parent | 5505ab2d0069eb2809753217a93e9a4551c997f9 (diff) | |
| download | open-axiom-406b6c0a38ee0e9ea1ba6657b76391f1c15f0b95.tar.gz | |
* interp/unlisp.lisp (|CatchAsCan|): Tidy.
* interp/sys-utility.boot (delete): Fix thinko.
* interp/sys-globals.boot ($sourceFiles): Define here.
(INPUTSTREAM): Likewise.
* interp/i-syscmd.boot (UNDERBAR): Move to sys-globals.boot.
* interp/fname.lisp: Import "macros".
* interp/debug.lisp: Import "parsing".
Replace $PRETTYPRINT with $PrettyPrint.
(/FN): Define.
(depthAlist): Likewise.
* interp/br-search.boot (docSearch1): Fix thinko.
* interp/Makefile.pamphlet (debug.$(FASLEXT)): Depend on
parsing.$(FASLEXT).
* interp/i-output.boot (starstarcond): Remove used function.
(transcomparg): Likewise.
(MATBORCH): Define here.
(*TALLPAR): Likewise.
* interp/vmlisp.lisp (|char|): Remove duplicate definition.
Diffstat (limited to 'src/interp/spad.lisp')
| -rw-r--r-- | src/interp/spad.lisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index e8ceeec2..21b3d8b8 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -71,8 +71,6 @@ (defvar |$HiFiAccess| nil "if true maintain history file") (defvar |$mapReturnTypes| nil) -(defvar INPUTSTREAM t "bogus initialization for now") - (defvar |boot-NewKEY| NIL) (DEFVAR _ '&) @@ -386,7 +384,9 @@ (REMFLAG |boot-NewKEY| 'KEY) INPUTSTREAM)) -(defun INITIALIZE () (init-boot/spad-reader) (initialize-preparse INPUTSTREAM)) +(defun INITIALIZE () + (init-boot/spad-reader) + (initialize-preparse INPUTSTREAM)) (setq *prompt* 'new) @@ -456,7 +456,6 @@ (return TERMTOK))) ; **** X. Random tables -(defvar MATBORCH "*") (defvar $MARGIN 3) (defvar TEMPGENSYMLIST '(|s| |r| |q| |p|)) (defvar ALPHLIST '(|a| |b| |c| |d| |e| |f| |g|)) @@ -467,7 +466,6 @@ (defvar INITPARLST '(|x| |y| |z| |u| |v| |w| |r| |s| |t|)) (defvar LITTLEA '|a|) (defvar LITTLEI '|i|) -(defvar *TALLPAR NIL) (defvar ALLSTAR NIL) (defvar PLUSS "+") (defvar PERIOD ".") |