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/construc.lisp | |
| 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/construc.lisp')
| -rw-r--r-- | src/interp/construc.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/construc.lisp b/src/interp/construc.lisp index f038d78a..6e8e1373 100644 --- a/src/interp/construc.lisp +++ b/src/interp/construc.lisp @@ -283,7 +283,7 @@ (|dependentClosure| (list cname)))))) (|installConstructor| cname kind) (makeprop libName 'loaded fullLibName) - (when |$InteractiveMode| (setq |$CategoryFrame| (list (list nil)))) + (when |$InteractiveMode| (setq |$CategoryFrame| (list (list (list nil))))) (|stopTimingProcess| '|load|) t)) |