diff --git a/code/foreign.lisp b/code/foreign.lisp index 32acd22437fb6cee06c9ab2a452899ba40b60424..2b107bf8993f61c8e5fdc94dce474f227b95225c 100644 --- a/code/foreign.lisp +++ b/code/foreign.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.14 1993/07/05 01:47:44 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.15 1994/09/29 13:51:25 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -66,7 +66,7 @@ (let* ((pagesize-1 (1- (get-page-size))) (memory-needed (logandc2 (+ bytes pagesize-1) pagesize-1)) (addr (int-sap *foreign-segment-free-pointer*)) - (new-ptr (+ *foreign-segment-free-pointer* bytes))) + (new-ptr (+ *foreign-segment-free-pointer* memory-needed))) (when (> new-ptr (+ foreign-segment-start foreign-segment-size)) (error "Not enough memory left.")) (setf *foreign-segment-free-pointer* new-ptr)