diff options
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/ast.boot | 4 | ||||
-rw-r--r-- | src/boot/strap/ast.clisp | 4 |
2 files changed, 2 insertions, 6 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 8d5a6d57..fdbb1296 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1854,9 +1854,7 @@ genSBCLnativeTranslation(op,s,t,op') == if needsStableReference? x then unstableArgs := [a,:unstableArgs] - op' := - %hasFeature KEYWORD::WIN32 => strconc('"__",symbolName op') - symbolName op' + op' := symbolName op' unstableArgs = nil => [["DEFUN",op,args, diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index eea10d77..fdd34743 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -3578,9 +3578,7 @@ (SETQ |unstableArgs| (CONS |a| |unstableArgs|)))))) (SETQ |bfVar#7| (CDR |bfVar#7|)) (SETQ |bfVar#8| (CDR |bfVar#8|)))) - (SETQ |op'| - (COND ((|%hasFeature| :WIN32) (CONCAT "_" (SYMBOL-NAME |op'|))) - (T (SYMBOL-NAME |op'|)))) + (SETQ |op'| (SYMBOL-NAME |op'|)) (COND ((NULL |unstableArgs|) (LIST |