diff options
author | dos-reis <gdr@axiomatics.org> | 2008-01-19 13:50:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-01-19 13:50:42 +0000 |
commit | c33280c0ecdadbb3893e5fd112e2605fa890108d (patch) | |
tree | 6ade5c7af4816cec013bc72ccb640422a9b21f22 /src/interp/setvars.boot | |
parent | 5b2dd1e76564e109e5c1811977cf26dca89dc2b9 (diff) | |
download | open-axiom-c33280c0ecdadbb3893e5fd112e2605fa890108d.tar.gz |
* interp/construc.lisp (|loadLibNoUpdate|): Fix thinko in initial
value for empty environments.
* interp/database.boot (rebuildCDT): Likewise.
* interp/i-map.boot (addDefMap): Likewise.
(rewriteMap0): Likewise.
(rewriteMap1): Likewise.
(compileDeclaredMap): Likewise.
(analyzeUndeclaredMap): Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-syscmd.boot (reportOperations): Likewise.
* interp/i-toplev.boot (interpret): Likewise.
* interp/lisplib.boot (loadLib): Likewise.
(loadLibNoUpdate): Likewise.
* interp/setvars.boot (resetWorkspaceVariables): Likewise.
* interp/spad.lisp ($e): Move definition to sys-globals.boot.
($env): Likewise.
* interp/sys-globals.boot ($e): Define here.
($env): Likewise.
* algebra/any.spad.pamphlet (ObjectProperty): New.
(Binding): Likewise.
(Contour): Likewise.
(Scope): Likewise.
(Environment): Likewise.
* algebra/exposed.lsp.pamphlet: Expose ObjectProperty, Binding,
Contour, Scope, and Environment.
* algebra/Makefile.pamphlet (axiom_algebra_layer_0): Include
OBJPROP.o.
(axiom_algebra_layer_1): Include BINDING.o
(axiom_algebra_layer_2): Include CONTOUR.o
(axiom_algebra_layer_3): Include SCOPE.o
(axiom_algebra_layer_4): Include ENV.o
* share/algebra: Update database.
Diffstat (limited to 'src/interp/setvars.boot')
-rw-r--r-- | src/interp/setvars.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index 37358ef0..4aee9c65 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -134,7 +134,7 @@ initializeSetVariables (setTree) == st = 'TREE => initializeSetVariables(setData.setLeaf) -resetWorkspaceVariables () == +resetWorkspaceVariables() == -- this replaces def in DEBUG LISP -- this function resets many workspace variables to their default -- values. Some things are reset by start and not reset by restart. @@ -158,8 +158,8 @@ resetWorkspaceVariables () == SETQ($dependeeClosureAlist , NIL) SETQ($IOindex , 1 ) SETQ($coerceIntByMapCounter , 0 ) - SETQ($e , [[NIL]]) - SETQ($env , [[NIL]]) + SETQ($e , [$EmptyEnvironment]) + SETQ($env , [$EmptyEnvironment]) -- many variables set by the following |