oget support multiple key chaining

[jscl.git] / src / print.lisp

diff --git a/src/print.lisp b/src/print.lisp
index ed7b8c1..f9b5aff 100644 (file)
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -270,7 +270,7 @@
                (t
                 (concatf res (format-special next (car arguments)))
                 (pop arguments))))
-            (setq res (concat res (char-to-string c))))
+            (setq res (concat res (string c))))
         (incf i)))
     (if destination
         (progn