[pal-cvs] CVS pal

[tneste]

Update of /project/pal/cvsroot/pal
In directory clnet:/tmp/cvs-serv6053

Modified Files:
	pal.lisp 
Log Message:
MESSAGE now accepts multiple arguments.

--- /project/pal/cvsroot/pal/pal.lisp	2007/10/15 21:48:00	1.33
+++ /project/pal/cvsroot/pal/pal.lisp	2007/10/22 15:56:02	1.34
@@ -889,7 +889,8 @@
 (defun draw-fps ()
   (draw-text (prin1-to-string (get-fps)) (v 0 0)))
 
-(defun message (object)
-  (setf *messages* (append *messages* (list (prin1-to-string object))))
+(defun message (&rest messages)
+  (setf *messages* (append *messages* (list (format nil "~{~S ~}" messages))))
   (when (> (length *messages*) (- (truncate (get-screen-height) (get-font-height)) 1))
-    (pop *messages*)))
\ No newline at end of file
+    (pop *messages*)))
+