[lispy-cvs] CVS lispy

[mkennedy]

Update of /project/lispy/cvsroot/lispy
In directory clnet:/tmp/cvs-serv30152

Modified Files:
	utils.lisp 
Log Message:
Fix new line positioning in logger.


--- /project/lispy/cvsroot/lispy/utils.lisp	2007/07/09 05:11:14	1.1.1.1
+++ /project/lispy/cvsroot/lispy/utils.lisp	2007/07/12 05:56:51	1.2
@@ -39,6 +39,7 @@
 
 (defun log-message (name control-string &rest format-arguments)
   (when *lispy-log-stream*
-    (format *lispy-log-stream* "~A ~A: " (get-universal-time) (string-upcase name))
-    (apply #'format *lispy-log-stream* (cons control-string format-arguments))
-    (terpri *lispy-log-stream*)))
+    (format *lispy-log-stream* "~&~A ~A: ~A~%"
+            (get-universal-time)
+            (string-upcase name)
+            (apply #'format nil (cons control-string format-arguments)))))