(defun specifier-type (x)
(let ((res (values-specifier-type x)))
(when (values-type-p res)
(error "VALUES type illegal in this context:~% ~S" x))
res))
(defun specifier-type (x)
(let ((res (values-specifier-type x)))
(when (values-type-p res)
(error "VALUES type illegal in this context:~% ~S" x))
res))