Index: trunk/lex.lisp
===================================================================
--- trunk/lex.lisp	(revision 4)
+++ trunk/lex.lisp	(revision 8)
@@ -1,3 +1,4 @@
 (defpackage #:dso-lex
+    (:documentation "Allows the definition of lexers.  See DEFLEXER.")
   (:use #:cl #:cl-ppcre)
   (:export #:deflexer))
@@ -17,4 +18,10 @@
 
 (defmacro deflexer (name &body body)
+  "Defines lexers, called as a function of the given NAME.  The body
+consists of token-class definitions, each being a list of a regular
+expression, the name of the class, and an optional filter.
+
+Currently, matching is done using *only* priority (first match wins),
+and does not look for the longest match."
   (let ((regex (combine (mapcar #'first body)))
 	(classes (map 'vector #'second body))