From 9c4ffb72be26f0bd30a01a32db9efbceaf97fed2 Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Thu, 5 May 2022 17:39:14 +0900
Subject: [PATCH] Reset hash-table count in :clear

---
 lisp/l/hashtab.l | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/l/hashtab.l b/lisp/l/hashtab.l
index 047482991..64019c4ed 100644
--- 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