1.0.46.44: room: Fix map-stack-references for stack-grows-upward systems.

[sbcl.git] / src / code / room.lisp

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 4e12042..ec6888e 100644 (file)
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -802,7 +802,7 @@
                    (push obj seen))))
              (setf sp
                    #!+stack-grows-downward-not-upward (sap+ sp n-word-bytes)
-                   #!-stack-grows-downward-not-upward (sap- sp n-word-bytes)))))
+                   #!-stack-grows-downward-not-upward (sap+ sp (- n-word-bytes))))))
 
 (defun map-referencing-objects (fun space object)
   (declare (type spaces space) (inline map-allocated-objects))