X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/67cb6748a3e277c0a6bab682aa31249850445226..53e95db096ab58c3acbf176f4c671cb612d832ae:/mdw-base.lisp

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