diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp index deac614983f2ee6a11cbb2f832b822be2e3bcec3..dab5ce5130b7c530ddf81388d3bebd91447bd249 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 be73a40ad1ee28acbca5312e27a8f09324877232..ec151f4197a8741d7634a44fa09b76c38d116a4b 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 39ea7677efd7b1fd77b40ca30c844652d608f3a4..228df997da26a2a81402849397bcb6c956c0a8e1 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)