From 7f6ec8ea0bda8a159c7904d419f7a2bcb6e81552 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 24 May 2013 02:13:46 +0100 Subject: [PATCH] Use STRING instead of the internal function CHAR-TO-STRING --- src/print.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4