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/ast.boot        | 4 +---
 src/boot/strap/ast.clisp | 4 +---
 2 files changed, 2 insertions(+), 6 deletions(-)

(limited to 'src/boot')

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