Commit 1ed83a42 authored by Dave Cooper's avatar Dave Cooper
Browse files

Updated glisp:set-default-float-format in gdl/base/common/genworks.lisp for...

Updated glisp:set-default-float-format in gdl/base/common/genworks.lisp for proper multi-threaded functioning with CCL
parent c5cebd59
......@@ -245,6 +245,7 @@
(defun set-default-float-format ()
#+allegro (tpl:setq-default *read-default-float-format* 'double-float)
#+ccl (ccl::def-standard-initial-binding *read-default-float-format* 'double-float)
(setq *read-default-float-format* 'double-float))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment