From ffjeld at common-lisp.net  Fri Oct 27 06:23:32 2006
From: ffjeld at common-lisp.net (ffjeld)
Date: Fri, 27 Oct 2006 02:23:32 -0400 (EDT)
Subject: [movitz-cvs] CVS movitz/losp
Message-ID: <20061027062332.B5C384B013@common-lisp.net>

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 at 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)



From ffjeld at common-lisp.net  Fri Oct 27 06:53:27 2006
From: ffjeld at common-lisp.net (ffjeld)
Date: Fri, 27 Oct 2006 02:53:27 -0400 (EDT)
Subject: [movitz-cvs] CVS movitz
Message-ID: <20061027065327.B37161703B@common-lisp.net>

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

Modified Files:
	storage-types.lisp 
Log Message:
Factor out find-movitz-hash-table-test and try to make it CLisp-compatible.


--- /project/movitz/cvsroot/movitz/storage-types.lisp	2006/05/15 19:49:25	1.57
+++ /project/movitz/cvsroot/movitz/storage-types.lisp	2006/10/27 06:53:27	1.58
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: storage-types.lisp,v 1.57 2006/05/15 19:49:25 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.58 2006/10/27 06:53:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1026,6 +1026,15 @@
 
 (defvar *hash-table-size-factor* 5/4)
 
+(defun find-movitz-hash-table-test (lisp-hash)
+  (ecase (hash-table-test lisp-hash)
+    ((eq #+clisp ext:fasthash-eq)
+     (values 'muerte.cl:eq 'muerte::sxhash-eq))
+    ((eql #+clisp ext:fasthash-eql)
+     (values 'muerte.cl:eql 'muerte.cl::sxhash))
+    ((equal #+clisp ext:fasthash-equal)
+     (values 'muerte.cl:equal 'muerte.cl::sxhash))))
+
 (defun make-movitz-hash-table (lisp-hash)
   (let* ((undef (movitz-read +undefined-hash-key+))
 	 (hash-count (hash-table-count lisp-hash))
@@ -1033,10 +1042,7 @@
 					    *hash-table-size-factor*))))
 	 (bucket-data (make-array hash-size :initial-element undef)))
     (multiple-value-bind (hash-test hash-sxhash)
-	(ecase (hash-table-test lisp-hash)
-	  (eq (values 'muerte.cl:eq 'muerte::sxhash-eq))
-	  (eql (values 'muerte.cl:eql 'muerte.cl::sxhash))
-	  (equal (values 'muerte.cl:equal 'muerte.cl::sxhash)))
+	(find-movitz-hash-table-test lisp-hash)
       (loop for key being the hash-keys of lisp-hash using (hash-value value)
 	  for movitz-key = (movitz-read key)
 	  for movitz-value = (movitz-read value)
@@ -1074,10 +1080,7 @@
 			       (fill (movitz-vector-symbolic-data old-bucket) undef))
 			  (make-array hash-size :initial-element undef))))
     (multiple-value-bind (hash-test hash-sxhash)
-	(ecase (hash-table-test lisp-hash)
-	  (eq (values 'muerte.cl:eq 'muerte::sxhash-eq))
-	  (eql (values 'muerte.cl:eql 'muerte.cl::sxhash))
-	  (equal (values 'muerte.cl:equal 'muerte.cl::sxhash)))
+	(find-movitz-hash-table-test lisp-hash)
       (loop for key being the hash-keys of lisp-hash using (hash-value value)
 	  for movitz-key = (movitz-read key)
 	  for movitz-value = (movitz-read value)