- `(eval-when (:compile-toplevel :load-toplevel :execute)
- (%compiler-deftype ',name
- ',lambda-list
- ,expander-form
- ,doc
- ,source-location-form))))
+ `(progn
+ (eval-when (:compile-toplevel :load-toplevel :execute)
+ (%compiler-deftype ',name
+ ',lambda-list
+ ,expander-form
+ ,doc
+ ,source-location-form))
+ (eval-when (:load-toplevel :execute)
+ (%deftype ',name))
+ ',name)))