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