diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp index 4ee9b43a8026477a776776db82465c990c257693..e8c5ca7788de1d8c607a333f839258b00a7fc34e 100644 --- a/compiler/vmdef.lisp +++ b/compiler/vmdef.lisp @@ -186,8 +186,9 @@ (sb-kind sb)))) (let ((nstack-p - (if (or (eq sb-name 'number-stack) - (find 'number-stack (mapcar #'sc-or-lose alternate-scs) + (if (or (eq sb-name 'non-descriptor-stack) + (find 'non-descriptor-stack + (mapcar #'sc-or-lose alternate-scs) :key #'(lambda (x) (sb-name (sc-sb x))))) t nil)))