Index: /branches/0.3/lex.lisp
===================================================================
--- /branches/0.3/lex.lisp	(revision 26)
+++ /branches/0.3/lex.lisp	(revision 27)
@@ -61,5 +61,4 @@
           (lambda (i)
             `(let ((end (nth-value 1 (scan ',(nth i regexs) ,input-var :start ,start-var))))
-               (format t "scanner ~A ended at ~A~%" ,i end)
                (when (and end (or (null at) (> end max)))
                  (setf max end