Skip to content
Snippets Groups Projects
Commit 2ec1fda2 authored by Raymond Toy's avatar Raymond Toy
Browse files

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

parent 17f45333
No related branches found
No related tags found
No related merge requests found
...@@ -67,10 +67,10 @@ ...@@ -67,10 +67,10 @@
float-imprecise-trap-bit float-invalid-trap-bit float-imprecise-trap-bit float-invalid-trap-bit
float-divide-by-zero-trap-bit float-divide-by-zero-trap-bit
float-invalid-op-1-byte)) float-invalid-op-1-byte))
)
#+double-double #+double-double
(export '(double-double-float-digits)) (export '(double-double-float-digits))
) ; eval-when
......
...@@ -87,10 +87,10 @@ ...@@ -87,10 +87,10 @@
float-underflow-trap-bit float-overflow-trap-bit float-underflow-trap-bit float-overflow-trap-bit
float-imprecise-trap-bit float-invalid-trap-bit float-imprecise-trap-bit float-invalid-trap-bit
float-divide-by-zero-trap-bit)) float-divide-by-zero-trap-bit))
)
#+double-double #+double-double
(export '(double-double-float-digits)) (export '(double-double-float-digits))
) ; eval-when
(eval-when (compile load eval) (eval-when (compile load eval)
...@@ -388,8 +388,10 @@ ...@@ -388,8 +388,10 @@
(defparameter *assembly-unit-length* 8) (defparameter *assembly-unit-length* 8)
(eval-when (:compile-toplevel :load-toplevel :execute)
(export '(pseudo-atomic-trap allocation-trap (export '(pseudo-atomic-trap allocation-trap
pseudo-atomic-value pseudo-atomic-interrupted-value)) pseudo-atomic-value pseudo-atomic-interrupted-value))
)
;;;; Pseudo-atomic trap number. ;;;; Pseudo-atomic trap number.
;;;; ;;;;
;;;; This is the trap number to use when a pseudo-atomic section has ;;;; This is the trap number to use when a pseudo-atomic section has
......
...@@ -97,10 +97,10 @@ ...@@ -97,10 +97,10 @@
float-underflow-trap-bit float-overflow-trap-bit float-underflow-trap-bit float-overflow-trap-bit
float-imprecise-trap-bit float-invalid-trap-bit float-imprecise-trap-bit float-invalid-trap-bit
float-divide-by-zero-trap-bit)) float-divide-by-zero-trap-bit))
)
#+double-double #+double-double
(export '(double-double-float-digits)) (export '(double-double-float-digits))
) ; eval-when
(eval-when (compile load eval) (eval-when (compile load eval)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment