Changeset 27 for branches/0.3/lex.lisp

Timestamp:

12/15/2008 11:14:57 PM (17 years ago)

Author:

dsowen

Message:

Removed debugging output (thanks Hannes Klas)

File:

• branches/0.3/lex.lisp (modified) (1 diff)

branches/0.3/lex.lisp

@@ -61 +61 @@
           (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