(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)
`(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*)))