Index: trunk/matching.lisp
===================================================================
--- trunk/matching.lisp	(revision trunk,19)
+++ trunk/matching.lisp	(revision trunk,20)
@@ -1,10 +1,7 @@
-;(in-package #:dso-parse)
-
-
-
-(defmacro while (cond &body body)
-  `(do ()
-    ((not ,cond))
-    ,@body))
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
+(in-package #:dso-parse)
+
+
 
 (defmacro if-matches-parser (input parser (next match)
Index: trunk/package.lisp
===================================================================
--- trunk/package.lisp	(revision trunk,16)
+++ trunk/package.lisp	(revision trunk,20)
@@ -1,2 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
 (defpackage #:dso-parse
   (:documentation
Index: trunk/parse.lisp
===================================================================
--- trunk/parse.lisp	(revision trunk,16)
+++ trunk/parse.lisp	(revision trunk,20)
@@ -1,2 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
 (defun hash-names (names &optional (map (make-hash-table)))
   (if names
Index: trunk/parsing.lisp
===================================================================
--- trunk/parsing.lisp	(revision trunk,17)
+++ trunk/parsing.lisp	(revision trunk,20)
@@ -1,3 +1,5 @@
-(in-package '#:dso-parse)
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
+(in-package #:dso-parse)
 
 
@@ -15,5 +17,8 @@
 
 (defmacro defgrammar (() &body definitions)
-  "Defines a grammar, being a collection of parsers."
+  "Defines a grammar, being a collection of parsers.  The syntax is:
+
+(DEFGRAMMAR (options*) definitions*)
+definitions: (name rule filter?)"
   (flet ((x (definition)
 	   (destructuring-bind (name rule &optional filter) definition
Index: trunk/util.lisp
===================================================================
--- trunk/util.lisp	(revision trunk,17)
+++ trunk/util.lisp	(revision trunk,20)
@@ -1,3 +1,5 @@
-(in-package '#:dso-parse)
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
+(in-package #:dso-parse)
 
 
@@ -15,2 +17,7 @@
 	      :displaced-to string
 	      :displaced-index-offset start))
+
+(defmacro while (cond &body body)
+  `(do ()
+    ((not ,cond))
+    ,@body))