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