;; is not availble early enough.
(if (and (not lambda-list) (not decls) (not (cdr forms))
(or (member (car forms) '(t nil))
- (eq 'quote (caar forms))))
+ (and (consp (car forms)) (eq 'quote (caar forms)))))
(values `(constant-type-expander ,(car forms)) doc '(sb!c:source-location))
(with-unique-names (whole)
(multiple-value-bind (macro-body local-decs doc)
,doc
,source-location-form))
(eval-when (:load-toplevel :execute)
- (%deftype ',name)))))
+ (%deftype ',name))
+ ',name)))