[Lisppaste-cvs] CVS update: lisppaste2/colorize.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	colorize.lisp 
Log Message:
use *trace-output* for logging

Date: Tue Jul  6 09:34:17 2004
Author: bmastenbrook

Index: lisppaste2/colorize.lisp
diff -u lisppaste2/colorize.lisp:1.3 lisppaste2/colorize.lisp:1.4
--- lisppaste2/colorize.lisp:1.3	Fri Jun 11 07:34:34 2004
+++ lisppaste2/colorize.lisp	Tue Jul  6 09:34:17 2004
@@ -228,7 +228,7 @@
        (if (> current-position (length string))
            (return-from scan-string
              (progn
-               (format t "Scan was called ~S times.~%"
+               (format *trace-output* "Scan was called ~S times.~%"
                        *scan-calls*)
                (finish-current (length string) nil (constantly nil))
                result))