From: David Vázquez <davazp@gmail.com>
Date: Fri, 24 May 2013 01:13:46 +0000 (+0100)
Subject: Use STRING instead of the internal function CHAR-TO-STRING
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7f6ec8ea0bda8a159c7904d419f7a2bcb6e81552;p=jscl.git

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

diff --git a/src/print.lisp b/src/print.lisp
index ed7b8c1..f9b5aff 100644
--- 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