Use STRING instead of the internal function CHAR-TO-STRING

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