Changeset 4 for trunk/lex.lisp

Timestamp:

05/30/2007 10:22:12 PM (19 years ago)

Author:

dsowen

Message:

Renamed package to dso-lex.

File:

• trunk/lex.lisp (modified) (2 diffs)

trunk/lex.lisp

@@ -1 @@
-(defpackage #:lex
+(defpackage #:dso-lex
   (:use #:cl #:cl-ppcre)
   (:export #:deflexer))
 
-(in-package #:lex)
+(in-package #:dso-lex)
 
 
@@ -22 +22 @@
     `(defun ,name (line)
       (let ((parts
-             (nth-value 1 (cl-ppcre:scan-to-strings (quote ,regex) line))))
+             (nth-value 1 (scan-to-strings (quote ,regex) line))))
         (let ((idx (position-if #'identity parts)))
           (when idx