;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; LIST and LIST*
(t
(storew nil-value ptr cons-cdr-slot
list-pointer-type)))
- (assert (null (tn-ref-across things)))))
+ (aver (null (tn-ref-across things)))))
(move result res))))))
(define-vop (list list-or-list*)