(multiple-value-bind (whole wholeless-arglist)
(if (eq '&whole (car arglist))
(values (cadr arglist) (cddr arglist))
(multiple-value-bind (whole wholeless-arglist)
(if (eq '&whole (car arglist))
(values (cadr arglist) (cddr arglist))
;;; DEFVARs for these come later, after we have enough stuff defined.
(declaim (special *wild-type* *universal-type* *empty-type*))
\f
;;; DEFVARs for these come later, after we have enough stuff defined.
(declaim (special *wild-type* *universal-type* *empty-type*))
\f
(enumerable nil :read-only t)
;; an arbitrary hash code used in EQ-style hashing of identity
;; (since EQ hashing can't be done portably)
(enumerable nil :read-only t)
;; an arbitrary hash code used in EQ-style hashing of identity
;; (since EQ hashing can't be done portably)