Reset hash-table count and fill-count in :clear

euslisp · May 5, 2022 · d689c00 · d689c00
1 parent 29b12fa
commit d689c00
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lisp/l/hashtab.l b/lisp/l/hashtab.l
@@ -122,6 +122,8 @@
     (dotimes (i size)
 	(setf (aref key i) empty
 	      (aref value i) nil))
+    (setq count 0)
+    (setq fill-count 0)
     self)
  (:prin1 (&optional (strm t) &rest mesgs)
     (send-super* :prin1 strm