[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv16773

Modified Files:
	print.lisp 
Log Message:
Fix write-to-string to actually return string.


--- /project/movitz/cvsroot/movitz/losp/muerte/print.lisp	2006/04/07 21:54:23	1.22
+++ /project/movitz/cvsroot/movitz/losp/muerte/print.lisp	2006/05/02 20:04:15	1.23
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Sep  3 11:48:19 2001
 ;;;;                
-;;;; $Id: print.lisp,v 1.22 2006/04/07 21:54:23 ffjeld Exp $
+;;;; $Id: print.lisp,v 1.23 2006/05/02 20:04:15 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -203,9 +203,9 @@
 
 (defun write-to-string (object &rest args)
   (declare (dynamic-extent args))
-  (apply 'write object
-	 :stream (make-array 24 :element-type 'character :fill-pointer 0 :adjustable t)
-	 args))
+  (let ((string (make-array 24 :element-type 'character :fill-pointer 0 :adjustable t)))
+    (apply 'write object :stream string args)
+    string))
 
 (defun internal-write (object)
   (let ((stream *standard-output*))