[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	print.lisp 
Log Message:
Added write-to-string.


--- /project/movitz/cvsroot/movitz/losp/muerte/print.lisp	2005/08/26 19:38:41	1.21
+++ /project/movitz/cvsroot/movitz/losp/muerte/print.lisp	2006/04/07 21:54:23	1.22
@@ -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.21 2005/08/26 19:38:41 ffjeld Exp $
+;;;; $Id: print.lisp,v 1.22 2006/04/07 21:54:23 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -201,6 +201,12 @@
 	    (print-unreadable-object (c *standard-output* :type t :identity t)
 	      (format t "(while printing ~Z)" object))))))))
 
+(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))
+
 (defun internal-write (object)
   (let ((stream *standard-output*))
     (cond