diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
| commit | 5a03f408233bf4e17759ace9a83dcf6012f72dcc (patch) | |
| tree | 5af46b5ebca646527bb7ec115cfaaf68d5e00d23 /src/boot/strap/translator.clisp | |
| parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
| download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz | |
Cleanup.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index c39dcf5b..2f87cc64 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -599,8 +599,6 @@ (AND (CONSP |ISTMP#2|) (NULL (CDR |ISTMP#2|)) (EQ (CAR |ISTMP#2|) '|Foreign|)))))) (COND ((|%hasFeature| :SBCL) 'SB-ALIEN) - ((|%hasFeature| :CLISP) 'FFI) - ((|%hasFeature| :CLOZURE) 'CCL) ((|%hasFeature| :ECL) 'FFI) (T (RETURN NIL)))) ((|ident?| |ns|) |ns|) (T (|bpTrap|)))) (CONS 'USE-PACKAGE (CONS (SYMBOL-NAME |z|) |user|))))) @@ -877,7 +875,7 @@ (COND ((OR (NOT (CONSP |bfVar#5|)) (PROGN (SETQ |i| (CAR |bfVar#5|)) NIL)) (RETURN NIL)) - (T (SETQ |b| (CONCAT (PNAME |i|) " is used in ")) + (T (SETQ |b| (CONCAT (SYMBOL-NAME |i|) " is used in ")) (|bootOutLines| (SSORT (|tableValue| |$bootUsed| |i|)) |stream| |b|))) (SETQ |bfVar#5| (CDR |bfVar#5|)))))))) @@ -1131,7 +1129,7 @@ (COND ((OR (NOT (CONSP |bfVar#3|)) (PROGN (SETQ |i| (CAR |bfVar#3|)) NIL)) (RETURN NIL)) - (T (SETQ |a| (CONCAT (PNAME |i|) " is used in ")) + (T (SETQ |a| (CONCAT (SYMBOL-NAME |i|) " is used in ")) (|bootOutLines| (SSORT (|tableValue| |$bootUsed| |i|)) |stream| |a|))) (SETQ |bfVar#3| (CDR |bfVar#3|)))))))) |