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