X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Futils.lisp;h=41fe5f3676eb80c6641fbc399036e1eadfc5cf37;hb=fde8e7678f3a194026bf14d630d3b7e979e3ce6e;hp=d586cddf69dd01913e077e8d824d242e5fa1a2c0;hpb=cae73e8875a24258961b29e84d48d9794cb5be03;p=jscl.git

diff --git a/src/utils.lisp b/src/utils.lisp
index d586cdd..41fe5f3 100644
--- 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))