;;; completely parallel, at which time they should be merged to
;;; eliminate the duplicate code.
;;; completely parallel, at which time they should be merged to
;;; eliminate the duplicate code.
- ,(let ((form `(sb!xc:deftype ,@(uncross rest))))
+ ,(let ((form `(sb!xc:deftype ,(uncross name) ,@rest)))
(if (boundp '*delayed-def!types*)
`(push ',form *delayed-def!types*)
form))))
(if (boundp '*delayed-def!types*)
`(push ',form *delayed-def!types*)
form))))