1.0.46.44: room: Fix map-stack-references for stack-grows-upward systems.
authorAlastair Bridgewater <lisphacker@users.sourceforge.net>
Thu, 24 Mar 2011 19:33:04 +0000 (19:33 +0000)
committerAlastair Bridgewater <lisphacker@users.sourceforge.net>
Thu, 24 Mar 2011 19:33:04 +0000 (19:33 +0000)
commitd077b28e3d745afe9e4593cac1851f9c62c6f16f
tree784c2ecd2364e0eaf2d51ea32d208ea6859ea9e3
parent6d36f2d6954cb79e3c88fef33fe0c3ad63deaea8
1.0.46.44: room: Fix map-stack-references for stack-grows-upward systems.

  * SAP+ is (function (system-area-pointer integer) (values
system-area-pointer)).

  * SAP- is (function (system-area-pointer system-area-pointer) (values
integer)).

  * When negating the delta in a SAP+ operation, don't use SAP-.
Instead, negate the offset.  Otherwise, you get a WARNING for passing an
integer where a system-area-pointer is expected.
src/code/room.lisp
version.lisp-expr