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))