From d183fca7b570739ff72d4904ece760457bd7f734 Mon Sep 17 00:00:00 2001 From: ccQpein Date: Thu, 17 Oct 2019 21:30:12 -0400 Subject: [PATCH] fix hs-equal function --- hash-set.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/hash-set.lisp b/hash-set.lisp index 30f3352..1e564a1 100644 --- a/hash-set.lisp +++ b/hash-set.lisp @@ -68,11 +68,10 @@ (defun hs-equal (hs-a hs-b) (if (/= (hs-count hs-a) (hs-count hs-b)) nil - (progn - (dohashset (elt hs-a) - (unless (hs-memberp hs-b elt) - (return nil))) - t))) + (dohashset (elt hs-a t) + (unless (hs-memberp hs-b elt) + (return nil))) + )) (defun hs-copy (hash-set) (let ((hs-copy (make-hash-set)))