From 81c55a49db8873b2a67f3c7c8ffe3786731e81bd Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 14 May 2011 17:11:52 +0000 Subject: cleanup --- src/boot/strap/ast.clisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/boot/strap/ast.clisp') 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'|) -- cgit v1.2.3