(in-package "SB!C")
-(file-comment
- "$Header$")
-
(defoptimizer ir2-convert-reffer ((object) node block name offset lowtag)
(let* ((cont (node-cont node))
(locs (continuation-result-tns cont
(vop set-slot node block result
(ecase kind
(:arg
- (assert args)
+ (aver args)
(continuation-tn node block (pop args)))
(:unbound
(or unbound-marker-tn
(:null
(emit-constant nil)))
name slot lowtag #!+gengc nil))))
- (assert (null args)))
+ (aver (null args)))
(defun do-fixed-alloc (node block name words type lowtag result)
#!-gengc
(clambda
(environment-closure (get-lambda-environment leaf)))
(functional
- (assert (eq (functional-kind leaf) :top-level-xep))
+ (aver (eq (functional-kind leaf) :top-level-xep))
nil))))
(if closure
(let ((this-env (node-environment node)))
(global-var
(ecase (global-var-kind leaf)
((:special :global)
- (assert (symbolp (leaf-name leaf)))
+ (aver (symbolp (leaf-name leaf)))
(vop set node block (emit-constant (leaf-name leaf)) val-tn
(needs-remembering value))))))