Commit 5a1bab04 authored by ram's avatar ram
Browse files

Changed the magic SB from NUMBER-STACK to NON-DESCRIPTOR-STACK.

parent 21c63274
......@@ -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)))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment