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/strap | |
| 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/strap')
| -rw-r--r-- | src/boot/strap/ast.clisp | 4 |
1 files changed, 1 insertions, 3 deletions
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 |