diff --git a/compiler/old-rt/system.lisp b/compiler/old-rt/system.lisp index 90ecd445fc8442995f26a6c24f2a93ed3d770609..66886980e495a582458f607dacbcbc60cc161bbd 100644 --- a/compiler/old-rt/system.lisp +++ b/compiler/old-rt/system.lisp @@ -28,7 +28,11 @@ (:args (ptr1 :scs (descriptor-reg) :target temp) (ptr2 :scs (descriptor-reg))) (:results (res :scs (any-reg descriptor-reg))) - (:temporary (:from (:argument 0) :to (:result 0) :target res) temp) + (:temporary (:sc any-reg + :from (:argument 0) + :to (:result 0) + :target res) + temp) (:generator 1 (unless (location= ptr1 temp) (inst lr temp ptr1))