hs-equal return t forever

[ccqpein]

function hs-equal will always return t because (progn ...) will return last expression.

Also, I notice you use dohashset macro in function hs-equal. I expand it with the expression in hs-equal:

(Block Nil
  (Hs-Map
   (Lambda (Elt)
     (Tagbody (Unless (Hs-Memberp Hs-B Elt) (Return Nil))))
   Hs-A)
  Nil)

because dohashset is not be given &optional result, so no matter the result of (hs-memberp hs-b elt), this block will always return nil.

[ccqpein]

Give a PR #3 to fix this issue