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