mdw-base (stringify): Use princ-to-string.

[lisp] / mdw-base.lisp

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 072c8d6e69218cacfe1fa9f064fe8a9b3807c81a..88ef8bae5f45cec84e646609dbb0fa9f7e350a9f 100644 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -80,8 +80,7 @@ (defun stringify (str)
   (typecase str
     (string str)
     (symbol (symbol-name str))
   (typecase str
     (string str)
     (symbol (symbol-name str))

-    (t (with-output-to-string (s)
-        (princ str s)))))
+    (t (princ-to-string str))))

 
 (defun mappend (function list &rest more-lists)
   "Apply FUNCTION to corresponding elements of LIST and MORE-LISTS, yielding
 
 (defun mappend (function list &rest more-lists)
   "Apply FUNCTION to corresponding elements of LIST and MORE-LISTS, yielding