Index: /branches/working-0711/ccl/xdump/hashenv.lisp
===================================================================
--- /branches/working-0711/ccl/xdump/hashenv.lisp	(revision 7738)
+++ /branches/working-0711/ccl/xdump/hashenv.lisp	(revision 7739)
@@ -76,13 +76,10 @@
           
 	 
-  
-
-; state is #(index vector hash-table saved-lock)
+;; state is #(hash-table index key-vector count)  
 (def-accessors %svref
-  hti.index
-  hti.vector
-  hti.hash-table
-  hti.lock
-  hti.prev-iterator)
+  nhti.hash-table
+  nhti.index
+  nhti.keys
+  nhti.nkeys)
 
 
@@ -91,2 +88,4 @@
 
 
+
+