From 2ec279f5e3c55fb220c0d28b08107e3456da663a Mon Sep 17 00:00:00 2001 Message-Id: <2ec279f5e3c55fb220c0d28b08107e3456da663a.1715154383.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 24 Dec 2006 18:30:01 +0000 Subject: [PATCH] zone: Use new with-parsed-body macro. Organization: Straylight/Edgeware From: Mark Wooding --- zone.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/zone.lisp b/zone.lisp index adcfb7e..5755d11 100644 --- a/zone.lisp +++ b/zone.lisp @@ -513,7 +513,7 @@ (defsubp (gensym "DEFSUBP"))) (setf types (listify types)) (let* ((type (car types)) (func (intern (format nil "ZONE-PARSE/~:@(~A~)" type)))) - (with-parsed-body (doc decls body body) + (with-parsed-body (body decls doc) body (with-gensyms (col tname ttype tttl tdata tdefsubp i) `(progn (dolist (,i ',types) -- [mdw]