chiark
/
gitweb
/
~mdw
/
zone
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git+ssh://metalzone.distorted.org.uk/~mdw/public-git/zone
[zone]
/
zone.lisp
diff --git
a/zone.lisp
b/zone.lisp
index 37e7499ac3f1c9e0ce6cde9165b343998d19167c..adcfb7e0ff04881867efd96e1f3a4bf27dfd0acd 100644
(file)
--- 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))))
(setf types (listify types))
(let* ((type (car types))
(func (intern (format nil "ZONE-PARSE/~:@(~A~)" type))))
- (
multiple-value-bind (doc decls body) (parse-
body body)
+ (
with-parsed-body (doc decls
body body)
(with-gensyms (col tname ttype tttl tdata tdefsubp i)
`(progn
(dolist (,i ',types)
(with-gensyms (col tname ttype tttl tdata tdefsubp i)
`(progn
(dolist (,i ',types)