[Openmcl-cvs-notifications] r8538 - /trunk/source/lib/hash.lisp

[gb at clozure.com]

Author: gb
Date: Thu Feb 21 04:42:16 2008
New Revision: 8538

Log:
NEXT-HASH-TABLE-ITERATION-1: return a single NULL value at end of iteration.

Modified:
    trunk/source/lib/hash.lisp

Modified: trunk/source/lib/hash.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/hash.lisp (original)
+++ trunk/source/lib/hash.lisp Thu Feb 21 04:42:16 2008
@@ -217,7 +217,7 @@
         (nkeys (nhti.nkeys state)))
        ((>=3D index nkeys)
         (setf (nhti.index state) nkeys)
-        (values nil nil nil))
+        nil)
     (declare (fixnum index nkeys)
              (simple-vector keys))
     (let* ((key (svref keys index))