diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-30 17:10:37 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-30 17:10:37 +0000 |
| commit | 801a2d17525131d617f226272ffdbd68467cfcbc (patch) | |
| tree | 95ae72ebab94cbe9c8b1ea93a1f1467b72d82b10 /src/boot/strap/translator.clisp | |
| parent | e978fdb127b726df8a04c4f7f1936b7eaf5e227b (diff) | |
| download | open-axiom-801a2d17525131d617f226272ffdbd68467cfcbc.tar.gz | |
* boot/ast.boot (bfSpecificErrorHere): New.
(bfISReverse) Use it. Don't use bpTrap.
(bfIS1): Likewise.
(bfParameterList): Likewise.
(bfHandlers): Likewise.
* boot/parser.boot (bpTrap): Take a parser state argument.
Adjust callers.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index c9d4a9d5..c7567e89 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -563,7 +563,8 @@ (EQ (CAR |ISTMP#2|) '|Foreign|)))))) (COND ((|%hasFeature| :SBCL) 'SB-ALIEN) ((|%hasFeature| :ECL) 'FFI) (T (RETURN NIL)))) - ((|ident?| |ns|) |ns|) (T (|bpTrap|)))) + ((|ident?| |ns|) |ns|) + (T (|bfSpecificErrorHere| "invalid namespace")))) (CONS 'USE-PACKAGE (CONS (SYMBOL-NAME |z|) |user|))))) ((AND (CONSP |x|) (EQ (CAR |x|) 'PROGN)) (CONS (CAR |x|) |