0.6.11.23:

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

diff --git a/src/compiler/ltv.lisp b/src/compiler/ltv.lisp
index 6d8e83a..b84c0de 100644 (file)
--- a/src/compiler/ltv.lisp
+++ b/src/compiler/ltv.lisp
@@ -40,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*)))