0.pre7.34:

[sbcl.git] / src / compiler / x86 / alloc.lisp

diff --git a/src/compiler/x86/alloc.lisp b/src/compiler/x86/alloc.lisp
index c233755..34a099c 100644 (file)
--- a/src/compiler/x86/alloc.lisp
+++ b/src/compiler/x86/alloc.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
- "$Header$")
 \f
 ;;;; LIST and LIST*
 
@@ -60,7 +57,7 @@
                      (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*)