Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv27310

Modified Files: image.lisp Log Message: Tweak stack cushion.

--- /project/movitz/cvsroot/movitz/image.lisp 2008/04/17 19:27:43 1.122 +++ /project/movitz/cvsroot/movitz/image.lisp 2008/04/21 19:45:51 1.123 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.122 2008/04/17 19:27:43 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.123 2008/04/21 19:45:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1022,7 +1022,7 @@ (set-file-position stream (global-slot-position 'stack-vector) 'stack-vector) (write-binary 'word stream stack-vector-word) (set-file-position stream (global-slot-position 'stack-bottom) 'stack-bottom) - (write-binary 'lu32 stream (+ 8 (* 6 4096) ; cushion + (write-binary 'lu32 stream (+ 8 (* 8 4096) ; cushion (- stack-vector-word (tag :other)))) (set-file-position stream (global-slot-position 'stack-top) 'stack-top) (write-binary 'lu32 stream (+ 8 (- stack-vector-word (tag :other))