0.6.11.23:

[sbcl.git] / src / compiler / ltv.lisp

diff --git a/src/compiler/ltv.lisp b/src/compiler/ltv.lisp
index af6922d..b84c0de 100644 (file)
--- 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*)))