From 5a1bab042131c54e7a8a3f1d86658a191fb44372 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 19 Apr 1990 14:34:26 +0000
Subject: [PATCH] Changed the magic SB from NUMBER-STACK to
 NON-DESCRIPTOR-STACK.

---
 compiler/vmdef.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp
index 4ee9b43a8..e8c5ca778 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)))
-- 
GitLab