diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-14 17:11:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-14 17:11:52 +0000 |
| commit | 81c55a49db8873b2a67f3c7c8ffe3786731e81bd (patch) | |
| tree | c9dffc490885f663070849f1c8709b5d8943d97e /src/boot/strap/ast.clisp | |
| parent | 0df19c03c721d4ef214b335445a530dbfa66d570 (diff) | |
| download | open-axiom-81c55a49db8873b2a67f3c7c8ffe3786731e81bd.tar.gz | |
cleanup
Diffstat (limited to 'src/boot/strap/ast.clisp')
| -rw-r--r-- | src/boot/strap/ast.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 90c9eab9..6aeeec23 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -1571,7 +1571,7 @@ (RETURN (PROGN (SETQ |margs| (|bfGenSymbol|)) - (SETQ |innerfunc| (INTERN (CONCAT (SYMBOL-NAME |op|) '|,LAM|))) + (SETQ |innerfunc| (INTERN (CONCAT (SYMBOL-NAME |op|) ",LAM"))) (LIST (LIST |innerfunc| (LIST 'LAMBDA |args| |body|)) (LIST |op| (LIST 'MLAMBDA (LIST '&REST |margs|) @@ -3433,7 +3433,7 @@ (SETQ |bfVar#228| (CDR |bfVar#228|)) (SETQ |bfVar#229| (CDR |bfVar#229|)))) (COND - ((|%hasFeature| :DARWIN) (SETQ |op'| (CONCAT '_ |op'|)))) + ((|%hasFeature| :DARWIN) (SETQ |op'| (CONCAT "_" |op'|)))) (SETQ |call| (CONS (|bfColonColon| 'CCL 'EXTERNAL-CALL) (CONS (STRING |op'|) |