Merge branch 'master' of https://github.com/davazp/jscl into experimental

[jscl.git] / src / utils.lisp

diff --git a/src/utils.lisp b/src/utils.lisp
index d586cdd..41fe5f3 100644 (file)
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -23,7 +23,7 @@
   `(setq ,variable (concat ,variable (progn ,@form))))
 
 ;;; This couple of helper functions will be defined in both Common
-;;; Lisp and in Ecmalisp.
+;;; Lisp and in JSCL
 (defun ensure-list (x)
   (if (listp x)
       x
@@ -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))