X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=ec6888e608e7fa3f75ce9c95ec91f2c6dd3185d8;hb=cc27e35fc73e6765679d6f426ee144abdfac7c27;hp=4e120421068aa71e352aafc6dee8c847a6b39cbe;hpb=85a570a6668fbca35a7a600ac3b2045bf2fb922a;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 4e12042..ec6888e 100644
--- 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))