X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/28a5e53109f67f9ed97af095baa95fd360ed9e68..8f801ae819d1f622601c9786a0fce27102b49378:/mdw-mop.lisp

diff --git a/mdw-mop.lisp b/mdw-mop.lisp
index 85e7885..d578f51 100644
--- a/mdw-mop.lisp
+++ b/mdw-mop.lisp
@@ -106,10 +106,7 @@
 			     (listify slots)
 			     (mapcar #'slot-definition-name
 				     (class-slots class))))))
-      (multiple-value-bind
-	  (docs decls body)
-	  (parse-body body :allow-docstring-p nil)
-	(declare (ignore docs))
+      (with-parsed-body (body decls) body
 	(with-gensyms (instvar)
 	  `(let ((,instvar ,instance))
 	     ,@(and class `((declare (type ,(class-name class) ,instvar))))