From: David Vazquez <davazp@gmail.com>
Date: Tue, 18 Dec 2012 00:48:32 +0000 (+0000)
Subject: integer-to-string working
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2334fa90c5628d72c66527ecb287b77745d2707f;p=jscl.git

integer-to-string working
---

diff --git a/test.lisp b/test.lisp
index e5fdc77..878a18f 100644
--- a/test.lisp
+++ b/test.lisp
@@ -123,7 +123,7 @@
   (if (zerop x)
       "0"
       (let ((digits nil))
-        (while (not (= x 0))
+        (while (not (zerop x 0))
           (push (mod x 10) digits)
           (setq x (truncate x 10)))
         (join (mapcar (lambda (d) (string (char "0123456789" d)))