Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixed floating point output for CCL (it was 0.5D0 instead of 0.5)

  • Loading branch information...
commit ee5dd85a520f7a302db32a61dc681ada20e8e029 1 parent c233c96
@mishoo authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/codegen.lisp
View
6 src/codegen.lisp
@@ -177,7 +177,11 @@ characters in string S to STREAM."
(declare (ignore str s e rs re))
(format nil "e~A" (- me ms)))))
(t (ppcre:regex-replace "^0\."
- (ppcre:regex-replace "\\.e" (format nil "~f" n) "e")
+ (ppcre:regex-replace
+ "\\.e"
+ (let ((*read-default-float-format* 'double-float))
+ (format nil "~f" n))
+ "e")
"."))))
(quote-object-prop (prop)
Please sign in to comment.
Something went wrong with that request. Please try again.