diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-08 06:12:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-08 06:12:23 +0000 |
| commit | 777de75052c863d618cb03e083bad5f050f5e6f3 (patch) | |
| tree | c45876162322c034b0f5883be23adfdd6a73eb41 /src/boot/strap | |
| parent | fa9902f78dd3cdcd50e25f2e902508c8777a6fa9 (diff) | |
| download | open-axiom-777de75052c863d618cb03e083bad5f050f5e6f3.tar.gz | |
* boot/translator.boot (bpOutItem): Handle namespace declaration.
Update all boot files to use `namespace' instead of `)package'.
* interp/: Likewise.
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/translator.clisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index e3bab9c4..5f88927f 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -916,6 +916,9 @@ (LET ((|n| (CAR |bfVar#35|)) (|e| (CADR |bfVar#35|))) (|bpPush| (LIST (LIST 'DEFCONSTANT |n| |e|))))) + (|namespace| + (LET ((|n| (CAR |bfVar#35|))) + (|bpPush| (LIST (LIST 'IN-PACKAGE (STRING |n|)))))) (T (|bpPush| (LIST (|translateToplevelExpression| |b|)))))))))))) (DEFUN |shoeAddbootIfNec| (|s|) (|shoeAddStringIfNec| ".boot" |s|)) |