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