Reset hash-table count in :clear

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