Fix format for stream arguments

jscl-project · Jul 14, 2014 · e049b2d · e049b2d
1 parent e551df3
commit e049b2d
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/src/print.lisp b/src/print.lisp
@@ -353,9 +353,13 @@
                  (pop arguments))))
             (setq res (concat res (string c))))
         (incf i)))
-    (if destination
-        (progn
-          (write-string res)
-          nil)
-        res)))
+
+    (case destination
+      ((t)
+       (write-string res)
+       nil)
+      ((nil)
+       res)
+      (t
+       (write-string res destination)))))
 #+jscl (fset 'format (fdefinition '!format))