[movitz-cvs] CVS update: movitz/losp/muerte/format.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv28749

Modified Files:
	format.lisp 
Log Message:
Have (format nil ..) output to an adjustable string.

Date: Fri Jun 10 20:35:28 2005
Author: ffjeld

Index: movitz/losp/muerte/format.lisp
diff -u movitz/losp/muerte/format.lisp:1.10 movitz/losp/muerte/format.lisp:1.11
--- movitz/losp/muerte/format.lisp:1.10	Tue Jan 25 14:46:10 2005
+++ movitz/losp/muerte/format.lisp	Fri Jun 10 20:35:28 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Mar 23 01:18:36 2002
 ;;;;                
-;;;; $Id: format.lisp,v 1.10 2005/01/25 13:46:10 ffjeld Exp $
+;;;; $Id: format.lisp,v 1.11 2005/06/10 18:35:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -30,9 +30,11 @@
   (declare (dynamic-extent args))
   (let ((destination
 	 (case destination
-	   ((nil) (make-array (* 3 (length control))
+	   ((nil) (make-array (+ (length control)
+				 (* 8 (count #\~ control)))
 			      :element-type 'character
-			      :fill-pointer 0))
+			      :fill-pointer 0
+			      :adjustable t))
 	   ((t) *standard-output*)
 	   (otherwise destination))))
     (etypecase control
@@ -180,8 +182,8 @@
 	      (#\/ (let* ((name-end (or (position #\/ control-string :start (incf i))
 					(error "Call function name not terminated in ~S."
 					       control-string)))
-			  (function-name (simple-read-from-string control-string nil nil
-								  :start i :end name-end)))
+			  (function-name (read-from-string control-string nil nil
+							   :start i :end name-end)))
 		     (check-type function-name symbol)
 		     (setf i name-end)
 		     (apply function-name *standard-output* (pop args)