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/i-toplev.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/i-toplev.boot')
| -rw-r--r-- | src/interp/i-toplev.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot index c7b1231d..0c40b23d 100644 --- a/src/interp/i-toplev.boot +++ b/src/interp/i-toplev.boot @@ -305,7 +305,7 @@ interpretTopLevel(x, posnForm) == interpret(x, :restargs) == posnForm := if PAIRP restargs then CAR restargs else restargs --type analyzes and evaluates expression x, returns object - $env:local := [[NIL]] + $env:local := [$EmptyEnvironment] $eval:local := true --generate code-- don't just type analyze $genValue:local := true --evaluate all generated code interpret1(x,nil,posnForm) |