diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-08-19 05:08:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-08-19 05:08:23 +0000 |
| commit | d712344b13ea67bc11b4f679abde3e41d8024095 (patch) | |
| tree | a879eca88436d393df5de78b8e9a119c5a3cf077 /src/boot | |
| parent | e125fb2cf60581e98bc6e7a65a818533fe1917c4 (diff) | |
| download | open-axiom-d712344b13ea67bc11b4f679abde3e41d8024095.tar.gz | |
* boot/ast.boot (genSBCLnativeTranslation): Do no prepend an
underbar when WIN32 (no longer necessary.)
* include/open-axiom.h (OPENAXIOM_EXPORT): Fix thino.
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 |