diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-03 11:22:38 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-03 11:22:38 +0000 |
| commit | b4512335b01d5d2cd345f0b95ca08fb5191cad03 (patch) | |
| tree | 47588c1f906e461c5d439bc73788f4b4cf1cddf5 /src/interp/sys-globals.boot | |
| parent | 69f5bbfdb482e9d86b4e0af44a0be43cd90fe054 (diff) | |
| download | open-axiom-b4512335b01d5d2cd345f0b95ca08fb5191cad03.tar.gz | |
* bootfuns.lisp.pamphlet ($TOP_LEVEL): Move to sys-globals.boot.
($TOKSTACK): Likewise.
($function): Likewise.
($FUNNAME): Likewise.
($FunName_Tail): Likewise.
($lastprefix): Likewise.
($linestack): Likewise.
($maxlinenumber): Likewise.
($OLDLINE): Likewise.
($SPAD): Likewise.
($delay): Move to debug.lisp.pamphlet.
($LINENUMBER): Likewise.
($Directory): Remove.
($top_stack): Remove.
($DISPLAY): Likewise.
(|$gauss01|): Likewise.
($NBOOT): Likewise.
($NEWLINSTACK): Likewise.
($num_of_meta_errors): Move to metalex.lisp.pamphlet.
* setq.lisp.pamphlet ($TOP_LEVEL): Don't set here.
($DISPLAY): Likewise.
($FUNNAME): Likewise.
($FUNNAME_TAIL): Likewise.
(|$gauss01|): Likewise.
($LASTPREFIX): Likewise.
($NBOOT): Likewise.
($OLDLINE): Likewise.
* spad.lisp.pamphlet ($linestack): Likewise.
($maxlinenumber): Likewise.
(|New,ENTRY,1|): Don't bind here.
Diffstat (limited to 'src/interp/sys-globals.boot')
| -rw-r--r-- | src/interp/sys-globals.boot | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot index 17c104c8..3c1c77cb 100644 --- a/src/interp/sys-globals.boot +++ b/src/interp/sys-globals.boot @@ -258,3 +258,34 @@ $topOp := nil ++ $streamCount := 0 + +++ +$TOP__LEVEL := true + +++ +$TOKSTACK := nil + +++ +$FUNCTION := nil + +++ +$FUNNAME := nil + +++ +$FUNNAME__TAIL := '(()) + +++ +$LASTPREFIX := '"S_:" + +++ +$LINESTACK := "BEGIN__UNIT" + +++ +$MAXLINENUMBER := 0 + +++ +$OLDLINE := nil + +++ +$SPAD := false + |