From 8245aab9d42673994540ab1f12a7302debd32897 Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Thu, 2 May 2013 03:45:48 +0200 Subject: [PATCH] call write-to-string recursively --- src/print.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/print.lisp b/src/print.lisp index 4894970..4a3bcdb 100644 --- a/src/print.lisp +++ b/src/print.lisp @@ -46,16 +46,16 @@ (concat "#")))) ((listp form) (concat "(" - (join-trailing (mapcar #'prin1-to-string (butlast form)) " ") + (join-trailing (mapcar #'write-to-string (butlast form)) " ") (let ((last (last form))) (if (null (cdr last)) - (prin1-to-string (car last)) - (concat (prin1-to-string (car last)) " . " (prin1-to-string (cdr last))))) + (write-to-string (car last)) + (concat (write-to-string (car last)) " . " (write-to-string (cdr last))))) ")")) ((arrayp form) (concat "#" (if (zerop (length form)) "()" - (prin1-to-string (vector-to-list form))))) + (write-to-string (vector-to-list form))))) ((packagep form) (concat "#")) (t -- 1.7.10.4