Changeset trunk,20 for trunk/util.lisp

Timestamp:

06/23/2007 07:46:22 PM (19 years ago)

Author:

dsowen

revision id:

svn-v3-trunk0:2948df59-2b31-0410-8e06-c40c0b09d5b6:trunk:20

Message:

Finished moving stuff around.
Added syntax-mode lines; hopefully this helps Emacs grok long docstrings.

File:

• trunk/util.lisp (modified) (2 diffs)

trunk/util.lisp

@@ -1 @@
-(in-package '#:dso-parse)
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
+(in-package #:dso-parse)
 
 
@@ -15 +17 @@
               :displaced-to string
               :displaced-index-offset start))
+
+(defmacro while (cond &body body)
+  `(do ()
+    ((not ,cond))
+    ,@body))