Fixed typecase in ENCODE-JSON-NUMBER.
Fri Jun 24 20:04:16 PDT 2011 rpgoldman@sift.info
* Fixed typecase in ENCODE-JSON-NUMBER.
diff -rN -u old-cl-json/src/encoder.lisp new-cl-json/src/encoder.lisp
--- old-cl-json/src/encoder.lisp 2014-07-31 16:41:24.000000000 -0700
+++ new-cl-json/src/encoder.lisp 2014-07-31 16:41:24.000000000 -0700
@@ -395,7 +395,8 @@
(real (let ((*read-default-float-format*
(etypecase nr
(short-float 'short-float)
- ((rational single-float) 'single-float)
+ (rational 'single-float)
+ (single-float 'single-float)
(double-float 'double-float)
(long-float 'long-float))))
(format stream "~f" nr)))