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)