Update of /project/movitz/cvsroot/movitz/losp In directory clnet:/tmp/cvs-serv2573
Modified Files: los0-gc.lisp Log Message: Change #250() to #250(nil), so hopefully CLisp will accept it.
--- /project/movitz/cvsroot/movitz/losp/los0-gc.lisp 2006/03/17 20:49:57 1.60 +++ /project/movitz/cvsroot/movitz/losp/los0-gc.lisp 2006/10/27 06:23:32 1.61 @@ -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.60 2006/03/17 20:49:57 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.61 2006/10/27 06:23:32 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -336,8 +336,8 @@ ;;;(defparameter *xx* #4000(nil)) ; Have this in static space.
(defparameter *code-vector-foo* 0) -(defvar *old-code-vectors* #250()) -(defvar *new-code-vectors* #250()) +(defvar *old-code-vectors* #250(nil)) +(defvar *new-code-vectors* #250(nil))
(defun stop-and-copy (&optional evacuator) (setf (fill-pointer *x*) 0)