[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv14536

Modified Files:
	environment.lisp 
Log Message:
Fresh-lines in trace output.


--- /project/movitz/cvsroot/movitz/losp/muerte/environment.lisp	2006/04/07 21:53:47	1.15
+++ /project/movitz/cvsroot/movitz/losp/muerte/environment.lisp	2008/04/17 19:33:27	1.16
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Oct 20 00:41:57 2001
 ;;;;                
-;;;; $Id: environment.lisp,v 1.15 2006/04/07 21:53:47 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.16 2008/04/17 19:33:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -86,7 +86,7 @@
 				(fresh-line *trace-output*)
 				(dotimes (i *trace-level*)
 				  (write-string "  " *trace-output*))
-				(format *trace-output* "~D: (~S~{ ~S~})~%"
+				(format *trace-output* "~&~D: (~S~{ ~S~})~%"
 					*trace-level* function-name args))
 			      (multiple-value-call
 				  (lambda (&rest results)
@@ -95,7 +95,7 @@
 				      (fresh-line *trace-output*)
 				      (dotimes (i (min *trace-level* 10))
 					(write-string "  " *trace-output*))
-				      (format *trace-output* "~D: =>~{ ~W~^,~}.~%"
+				      (format *trace-output* "~&~D: =>~{ ~W~^,~}.~%"
 					      *trace-level* results)
 				      (values-list results)))
 				(let ((*trace-level* (1+ *trace-level*))