Changeset 4 for trunk


Ignore:
Timestamp:
05/30/2007 10:22:12 PM (19 years ago)
Author:
dsowen
Message:

Renamed package to dso-lex.

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/lex.asd

    r1 r4  
    11;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
    22
    3 (asdf:defsystem #:lex
     3(asdf:defsystem #:dso-lex
    44  :depends-on (#:cl-ppcre)
    55  :components ((:file "lex")))

  • trunk/lex.lisp

    r2 r4  
    1 (defpackage #:lex
     1(defpackage #:dso-lex
    22  (:use #:cl #:cl-ppcre)
    33  (:export #:deflexer))
    44
    5 (in-package #:lex)
     5(in-package #:dso-lex)
    66
    77
    … …  
    2222    `(defun ,name (line)
    2323      (let ((parts
    24              (nth-value 1 (cl-ppcre:scan-to-strings (quote ,regex) line))))
     24             (nth-value 1 (scan-to-strings (quote ,regex) line))))
    2525        (let ((idx (position-if #'identity parts)))
    2626          (when idx
Note: See TracChangeset for help on using the changeset viewer.