Changeset 31

Timestamp:

05/30/2015 04:42:20 PM (11 years ago)

Author:

dsowen

Message:

Merged from 0.3 branch.

Location:

trunk

Files:

• . (modified) (1 prop)
• THANKS (modified) (1 diff)
• dso-lex.asd (modified) (1 diff)
• lex.lisp (modified) (1 diff)

trunk/THANKS

@@ -2 +2 @@
 
 Ben Thomasson (found bug in example)
-Hannes Klas (suggested additional interface)
+Hannes Klas (suggested additional interface, noticed old debugging output)
 Zach (reported packaging error)

trunk/dso-lex.asd

@@ -19 +19 @@
 
 (asdf:defsystem #:dso-lex
+  :description "A simple lexer based on CL-PPCRE"
+  :version "0.3.2"
+  :author "David Owen <dsowen@fugue88.ws>"
+  :license "LGPL-3"
   :depends-on (#:cl-ppcre #:dso-util)
   :components ((:file "lex")))

trunk/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