From d712344b13ea67bc11b4f679abde3e41d8024095 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 19 Aug 2012 05:08:23 +0000
Subject: 	* boot/ast.boot (genSBCLnativeTranslation): Do no prepend an 
 underbar when WIN32 (no longer necessary.) 	* include/open-axiom.h
 (OPENAXIOM_EXPORT): Fix thino.

---
 src/boot/strap/ast.clisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/boot/strap/ast.clisp')

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
-- 
cgit v1.2.3