X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;fp=src%2Fprint.lisp;h=a8ac834dbb42f969dd2678bd937aff63e34812c6;hb=a0811544fcd5f5b1bd04e23a3cf52b76e04229b1;hp=db3be82a9081f2deb4888e9bd08a5b79cf7cf465;hpb=32984d9b48331cb5f796bd09a068c6809aad30c9;p=jscl.git

diff --git a/src/print.lisp b/src/print.lisp
index db3be82..a8ac834 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -289,8 +289,7 @@
                 (concatf res (format-special next (car arguments)))
                 (pop arguments))))
             (setq res (concat res (string c))))
-        (incf i))
-      (/debug res))
+        (incf i)))
     (if destination
         (progn
           (write-string res)