Merge pull request #117 from Ferada/small-fixes

[jscl.git] / src / print.lisp

diff --git a/src/print.lisp b/src/print.lisp
index 4f29c46..42ceba4 100644 (file)
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -267,6 +267,8 @@
                 (concatf res "~"))
                ((char= next #\%)
                 (concatf res *newline*))
+               ((char= next #\*)
+                (pop arguments))
                (t
                 (concatf res (format-special next (car arguments)))
                 (pop arguments))))
@@ -279,6 +281,6 @@
         res)))
 
 (defun format-special (chr arg)
-  (case chr
+  (case (char-upcase chr)
     (#\S (prin1-to-string arg))
-    (#\a (princ-to-string arg))))
+    (#\A (princ-to-string arg))))