aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-syscmd.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-01-19 13:50:42 +0000
committerdos-reis <gdr@axiomatics.org>2008-01-19 13:50:42 +0000
commitc33280c0ecdadbb3893e5fd112e2605fa890108d (patch)
tree6ade5c7af4816cec013bc72ccb640422a9b21f22 /src/interp/i-syscmd.boot
parent5b2dd1e76564e109e5c1811977cf26dca89dc2b9 (diff)
downloadopen-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-syscmd.boot')
-rw-r--r--src/interp/i-syscmd.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 6b5a52fd..582b5f66 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -2259,7 +2259,7 @@ showSpad2Cmd l ==
reportOperations(oldArg,u) ==
-- u might be an uppercased version of oldArg
- $env:local := [[NIL]]
+ $env:local := [$EmptyEnvironment]
$eval:local := true --generate code-- don't just type analyze
$genValue:local := true --evaluate all generated code
null u => nil