X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Falloc.lisp;h=34a099ca8273ff49d718fe862dbc6522d149f9e6;hb=4719b7d5d66c5930d3efd6a6d8e7572b16809f8d;hp=c233755d0b48ff1b6204b384b5cf47c67bb5f469;hpb=adf0d51d2bde8b723276bacf94641df9aa5ae561;p=sbcl.git

diff --git a/src/compiler/x86/alloc.lisp b/src/compiler/x86/alloc.lisp
index c233755..34a099c 100644
--- 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$")
 
 ;;;; 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*)