(multiple-value-bind (expander-form doc source-location-form)
(multiple-value-bind (forms decls doc) (parse-body body)
;; FIXME: We could use CONSTANTP here to deal with slightly more
(multiple-value-bind (expander-form doc source-location-form)
(multiple-value-bind (forms decls doc) (parse-body body)
;; FIXME: We could use CONSTANTP here to deal with slightly more