X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsetf-funs.lisp;h=f26996be98362dc672034ab4a6298dac8f887380;hb=ea36d3d79b9dfe3598faca5e267efd5980b94d4a;hp=9c9a3ffac2602decada20e47432aacaae6477b7b;hpb=6f408b4ce6a2f411618fe1bebf63ee08093a7d03;p=sbcl.git

diff --git a/src/code/setf-funs.lisp b/src/code/setf-funs.lisp
index 9c9a3ff..f26996b 100644
--- a/src/code/setf-funs.lisp
+++ b/src/code/setf-funs.lisp
@@ -12,9 +12,6 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
-
 (eval-when (:compile-toplevel :execute)
 
 (defun compute-one-setter (name type)
@@ -46,7 +43,7 @@
 		       (info :setf :expander sym))
 		   (not (member sym ignore)))
 	  (let ((type (type-specifier (info :function :type sym))))
-	    (assert (consp type))
+	    (aver (consp type))
 	    #!-sb-fluid (res `(declaim (inline (setf ,sym))))
 	    (res (compute-one-setter sym type))))))
     `(progn ,@(res))))