From 2ec1fda2a83f17fe9ee580ef14b887b5c66f844a Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Thu, 4 Sep 2014 21:11:41 -0700
Subject: [PATCH] Export of double-double-float-digits should be within
 eval-when.

---
 src/compiler/ppc/parms.lisp   | 2 +-
 src/compiler/sparc/parms.lisp | 4 +++-
 src/compiler/x86/parms.lisp   | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index deac61498..dab5ce513 100644
--- a/src/compiler/ppc/parms.lisp
+++ b/src/compiler/ppc/parms.lisp
@@ -67,10 +67,10 @@
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit
 	  float-invalid-op-1-byte))
-)
 
 #+double-double
 (export '(double-double-float-digits))
+) ; eval-when
 
 
 	  
diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp
index be73a40ad..ec151f419 100644
--- a/src/compiler/sparc/parms.lisp
+++ b/src/compiler/sparc/parms.lisp
@@ -87,10 +87,10 @@
 	  float-underflow-trap-bit float-overflow-trap-bit
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit))
-)
 
 #+double-double
 (export '(double-double-float-digits))
+) ; eval-when
 	  
 
 (eval-when (compile load eval)
@@ -388,8 +388,10 @@
 (defparameter *assembly-unit-length* 8)
 
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(pseudo-atomic-trap allocation-trap
 	  pseudo-atomic-value pseudo-atomic-interrupted-value))
+)
 ;;;; Pseudo-atomic trap number.
 ;;;;
 ;;;; This is the trap number to use when a pseudo-atomic section has
diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index 39ea7677e..228df997d 100644
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -97,10 +97,10 @@
 	  float-underflow-trap-bit float-overflow-trap-bit
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit))
-)
 
 #+double-double
 (export '(double-double-float-digits))
+) ; eval-when
 	  
 
 (eval-when (compile load eval)
-- 
GitLab