From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 19 Dec 2006 16:11:45 +0000 (+0000)
Subject: mdw-base (stringify): Use princ-to-string.
X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/commitdiff_plain/53e95db096ab58c3acbf176f4c671cb612d832ae?ds=sidebyside

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

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