Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30623
Modified Files: hash-tables.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments.
Date: Mon Oct 11 15:52:38 2004 Author: ffjeld
Index: movitz/losp/muerte/hash-tables.lisp diff -u movitz/losp/muerte/hash-tables.lisp:1.3 movitz/losp/muerte/hash-tables.lisp:1.4 --- movitz/losp/muerte/hash-tables.lisp:1.3 Wed Jun 30 01:19:21 2004 +++ movitz/losp/muerte/hash-tables.lisp Mon Oct 11 15:52:37 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Feb 19 19:09:05 2001 ;;;; -;;;; $Id: hash-tables.lisp,v 1.3 2004/06/29 23:19:21 ffjeld Exp $ +;;;; $Id: hash-tables.lisp,v 1.4 2004/10/11 13:52:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -96,9 +96,6 @@ (if (not (plusp limit)) 0 (typecase object - #+ignore - (std-instance - (memref object #x1e 2 :lisp)) (cons (logxor (sxhash-limited (car object) (- limit 2)) (sxhash-limited (cdr object) (1- limit))))