Changeset trunk,27 for trunk/parsing.lisp

Timestamp:

06/25/2007 09:36:52 PM (19 years ago)

Author:

dsowen

revision id:

svn-v3-trunk0:2948df59-2b31-0410-8e06-c40c0b09d5b6:trunk:29

Message:

More improvements to CSV parser.
Adjusted for speed fix in lexer.
Cons less.

File:

• trunk/parsing.lisp (modified) (1 diff)

trunk/parsing.lisp

@@ -32 +32 @@
   `(defun ,name (input)
     (if-matches input ,rule (next match)
-     (values t next (list ',name ,(if filter `(,filter match) 'match))))))
+     (values t next (cons ',name ,(if filter `(,filter match) 'match))))))
 
 (defmacro defgrammar (() &body definitions)