*features* support for the reader

[jscl.git] / src / utils.lisp

diff --git a/src/utils.lisp b/src/utils.lisp
index d586cdd..430b6a7 100644 (file)
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -83,4 +83,4 @@
 
 (defun float-to-string (x)
   #+jscl (float-to-string x)
-  #+common-lisp (format nil "~f" x))
+  #-jscl (format nil "~f" x))