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

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