X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fltv.lisp;h=b84c0decbb32337fd1f445702bbc925d7fc4405d;hb=dfa55a883f94470267b626dae77ce7e7dfac3df6;hp=af6922d4ecf5eb5780a9d81cea6fefbf9f7a912d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/ltv.lisp b/src/compiler/ltv.lisp
index af6922d..b84c0de 100644
--- a/src/compiler/ltv.lisp
+++ b/src/compiler/ltv.lisp
@@ -11,9 +11,6 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 (defknown %load-time-value (t) t (flushable movable))
 
 (def-ir1-translator load-time-value ((form &optional read-only-p) start cont)
@@ -43,7 +40,7 @@
 			 `(value-cell-ref ',(make-value-cell value)))))))
 
 (defoptimizer (%load-time-value ir2-convert) ((handle) node block)
-  (assert (constant-continuation-p handle))
+  (aver (constant-continuation-p handle))
   (let ((cont (node-cont node))
 	(tn (make-load-time-value-tn (continuation-value handle)
 				     *universal-type*)))