Force *read-default-float-format* to double-float.

Pascal J. Bourguignon [2014-03-04 16:53]
Force *read-default-float-format* to double-float.
Filename
objcl/test-objcl.lisp
diff --git a/objcl/test-objcl.lisp b/objcl/test-objcl.lisp
index 6ea2c08..4a4ed6a 100644
--- a/objcl/test-objcl.lisp
+++ b/objcl/test-objcl.lisp
@@ -35,7 +35,8 @@

 (in-package "COM.INFORMATIMAGO.OBJECTIVE-CL")

-
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setf *read-default-float-format* 'double-float))

 ;; When reading expressions in the tests, we need to set the package
 ;; to ensure the symbols are read in the expected package.
ViewGit