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)