(values `(constant-type-expander ,(car forms)) doc '(sb!c:source-location))
(with-unique-names (whole)
(multiple-value-bind (macro-body local-decs doc)
(values `(constant-type-expander ,(car forms)) doc '(sb!c:source-location))
(with-unique-names (whole)
(multiple-value-bind (macro-body local-decs doc)