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

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 072c8d6..88ef8ba 100644 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -80,8 +80,7 @@
   (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