diff --git a/compiler/old-rt/cell.lisp b/compiler/old-rt/cell.lisp index 5fe91df9670d9b98e6e4470cbf10e21ffa52c997..5e0243876401fda2fd39eb40511771eb743dc156 100644 --- a/compiler/old-rt/cell.lisp +++ b/compiler/old-rt/cell.lisp @@ -23,7 +23,8 @@ (:args (object :scs (descriptor-reg) :target obj-temp)) (:results (value :scs (descriptor-reg any-reg))) (:policy :fast-safe) - (:node-var node) + (:vop-var vop) + (:save-p :compute-only) (:temporary (:type random :scs (non-descriptor-reg)) temp) (:temporary (:scs (descriptor-reg)) obj-temp)) @@ -36,7 +37,7 @@ (unless (location= obj-temp object) (inst lr obj-temp object)) (loadw value obj-temp (/ clc::symbol-value 4)) - (let ((err-lab (generate-error-code node clc::error-symbol-unbound + (let ((err-lab (generate-error-code vop clc::error-symbol-unbound obj-temp))) (test-special-value value temp '%trap-object err-lab nil)))) @@ -49,7 +50,7 @@ (unless (location= obj-temp object) (inst lr obj-temp object)) (loadw value obj-temp (/ clc::symbol-definition 4)) - (let ((err-lab (generate-error-code node clc::error-symbol-undefined + (let ((err-lab (generate-error-code vop clc::error-symbol-undefined obj-temp))) (test-simple-type value temp err-lab t system:%function-type))))