From 53e95db096ab58c3acbf176f4c671cb612d832ae Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 19 Dec 2006 16:11:45 +0000
Subject: [PATCH] mdw-base (stringify): Use princ-to-string.

---
 mdw-base.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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
-- 
2.11.0