diff --git a/compiler/rt/call.lisp b/compiler/rt/call.lisp index 14a20abba1510727e623788d488dd642976f8f44..301e38ad7d488977d9bd12cc285d63dfbd840e29 100644 --- a/compiler/rt/call.lisp +++ b/compiler/rt/call.lisp @@ -234,7 +234,8 @@ ;;; (define-vop (allocate-full-call-frame) (:info nargs) - (:results (res :scs (word-pointer-reg))) + (:results (res :scs (word-pointer-reg) + :load-if (> nargs register-arg-count))) (:generator 2 (when (> nargs register-arg-count) (move res csp-tn)