diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-15 16:56:22 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-15 16:56:22 +0000 |
commit | 8cf4c7d7040078b651859fbd998f6bbf7b68127e (patch) | |
tree | 478d9f7f40133f10583a0538c8a3ee28262b023f /src/boot/strap/translator.clisp | |
parent | e3790da8fee54ede09e8126213a10da0aa555d06 (diff) | |
download | open-axiom-8cf4c7d7040078b651859fbd998f6bbf7b68127e.tar.gz |
* boot/ast.boot (shoeCompTran1): Don't indiscriminately walk CASE
forms. Translate %Namespace forms too.
* boot/parser.boot (bpApplication): Include Namespace too.
Diffstat (limited to 'src/boot/strap/translator.clisp')
-rw-r--r-- | src/boot/strap/translator.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index dc23cc1f..cff39c1b 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -843,7 +843,7 @@ (COND ((NULL |a|) (|shoeNotFound| |fn|)) (T (SETQ |$lispWordTable| (|makeTable| #'EQ)) - (DO-SYMBOLS (|i| (FIND-PACKAGE 'LISP)) + (DO-SYMBOLS (|i| (FIND-PACKAGE "LISP")) (SETF (|tableValue| |$lispWordTable| |i|) T)) (SETQ |$bootDefined| (|makeTable| #'EQ)) (SETQ |$bootUsed| (|makeTable| #'EQ)) @@ -1145,7 +1145,7 @@ (COND ((NULL |a|) (|shoeNotFound| |fn|)) (T (SETQ |$lispWordTable| (|makeTable| #'EQ)) - (DO-SYMBOLS (|i| (FIND-PACKAGE 'LISP)) + (DO-SYMBOLS (|i| (FIND-PACKAGE "LISP")) (SETF (|tableValue| |$lispWordTable| |i|) T)) (SETQ |$bootDefined| (|makeTable| #'EQ)) (SETQ |$bootUsed| (|makeTable| #'EQ)) |