[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-09-2-g2ec1fda

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  2ec1fda2a83f17fe9ee580ef14b887b5c66f844a (commit)
      from  17f45333fcd83fa81e82cf382bcc78cf20b3d826 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 2ec1fda2a83f17fe9ee580ef14b887b5c66f844a
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Sep 4 21:11:41 2014 -0700

    Export of double-double-float-digits should be within eval-when.

diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index deac614..dab5ce5 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 be73a40..ec151f4 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 39ea767..228df99 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)

-----------------------------------------------------------------------

Summary of changes:
 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(-)


hooks/post-receive
-- 
CMU Common Lisp