(unless (continuation-single-value-p (node-cont node))
(give-up-ir1-transform))
(setf (node-derived-type node) *wild-type*)
+ (principal-continuation-single-valuify (node-cont node))
(if vals
(let ((dummies (make-gensym-list (length (cdr vals)))))
`(lambda (val ,@dummies)
value
;; FIXME: Derived type.
`(%compile-time-type-error 'dummy
- ',(type-specifier (coerce-to-values atype))
+ ',(type-specifier atype)
',(type-specifier value-type)))
;; KLUDGE: FILTER-CONTINUATION does not work for
;; non-returning functions, so we declare the return type of