From c33280c0ecdadbb3893e5fd112e2605fa890108d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 19 Jan 2008 13:50:42 +0000 Subject: * 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. --- src/interp/i-toplev.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/i-toplev.boot') 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) -- cgit v1.2.3