projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.34:
[sbcl.git]
/
src
/
compiler
/
generic
/
vm-ir2tran.lisp
diff --git
a/src/compiler/generic/vm-ir2tran.lisp
b/src/compiler/generic/vm-ir2tran.lisp
index
247e09b
..
3d98347
100644
(file)
--- a/
src/compiler/generic/vm-ir2tran.lisp
+++ b/
src/compiler/generic/vm-ir2tran.lisp
@@
-46,7
+46,7
@@
(vop set-slot node block result
(ecase kind
(:arg
(vop set-slot node block result
(ecase kind
(:arg
- (assert args)
+ (aver args)
(continuation-tn node block (pop args)))
(:unbound
(or unbound-marker-tn
(continuation-tn node block (pop args)))
(:unbound
(or unbound-marker-tn
@@
-59,7
+59,7
@@
(:null
(emit-constant nil)))
name slot lowtag #!+gengc nil))))
(: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
(defun do-fixed-alloc (node block name words type lowtag result)
#!-gengc
@@
-129,7
+129,7
@@
(clambda
(environment-closure (get-lambda-environment leaf)))
(functional
(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)))
nil))))
(if closure
(let ((this-env (node-environment node)))
@@
-180,7
+180,7
@@
(global-var
(ecase (global-var-kind leaf)
((:special :global)
(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))))))
(vop set node block (emit-constant (leaf-name leaf)) val-tn
(needs-remembering value))))))