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