Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv14379 Modified Files: los0-gc.lisp Log Message: Minor edits. Date: Thu Jul 8 11:59:51 2004 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.20 movitz/losp/los0-gc.lisp:1.21 --- movitz/losp/los0-gc.lisp:1.20 Thu Jul 8 11:49:26 2004 +++ movitz/losp/los0-gc.lisp Thu Jul 8 11:59:51 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.20 2004/07/08 18:49:26 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.21 2004/07/08 18:59:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -35,10 +35,6 @@ (defmacro space-fresh-pointer (space) `(memref ,space -6 2 :lisp)) -;;;(defmacro space-last-cons (space) -;;; "The location of the last cons-cell that will with in this space." -;;; `(memref ,space -6 3 :lisp)) - (defmacro space-other (space) `(memref ,space -6 3 :lisp)) @@ -49,12 +45,8 @@ space)) (defun initialize-space (space) - (setf (space-fresh-pointer space) 2 -;;; (space-last-cons space) (+ (object-location space) -;;; (array-dimension space 0))) - ) + (setf (space-fresh-pointer space) 2) space) - (defun allocate-duo-space (size) (let* ((space1 (allocate-space size))