(multiple-value-bind (body local-decs doc)
(parse-defmacro arglist whole body name 'deftype :default-default ''*)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(%compiler-deftype ',name
(lambda (,whole)
,@local-decs
(multiple-value-bind (body local-decs doc)
(parse-defmacro arglist whole body name 'deftype :default-default ''*)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(%compiler-deftype ',name
(lambda (,whole)
,@local-decs