[movitz-cvs] CVS update: movitz/losp/muerte/hash-tables.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv25068

Modified Files:
	hash-tables.lisp 
Log Message:
*** empty log message ***
Date: Sun May  8 03:18:29 2005
Author: ffjeld

Index: movitz/losp/muerte/hash-tables.lisp
diff -u movitz/losp/muerte/hash-tables.lisp:1.5 movitz/losp/muerte/hash-tables.lisp:1.6
--- movitz/losp/muerte/hash-tables.lisp:1.5	Fri May  6 22:53:36 2005
+++ movitz/losp/muerte/hash-tables.lisp	Sun May  8 03:18:29 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Feb 19 19:09:05 2001
 ;;;;                
-;;;; $Id: hash-tables.lisp,v 1.5 2005/05/06 20:53:36 ffjeld Exp $
+;;;; $Id: hash-tables.lisp,v 1.6 2005/05/08 01:18:29 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -60,8 +60,7 @@
   (when index
     (do ((length (array-dimension bucket 0)))
 	((>= index length) nil)
-      (unless (eq (svref bucket index)
-		  '--no-hash-key--)
+      (unless (eq (svref bucket index) '--no-hash-key--)
 	(return (+ index 2)))
       (incf index 2))))