equalp に hash-table を渡すと謎の多値が返ってくる #xyzzy

gistfile1.lisp

(equalp (alexandria:plist-hash-table '(:foo 1 :bar 2))
        (alexandria:plist-hash-table '(:foo 1 :bar 2)))
t
t

(equalp (alexandria:plist-hash-table '(:foo 1 :bar 2))
        (alexandria:plist-hash-table '(:foo 1)))
nil

(equalp (alexandria:plist-hash-table '(:foo 1 :bar 2))
        (alexandria:plist-hash-table '(:bar 2 :foo 1)))
t
t

(equalp (alexandria:plist-hash-table '(:foo 1 :bar 2))
        (alexandria:plist-hash-table '(:foo 1 :bar 3)))
nil
t



pred.cc 読んだけどよく分からなかった。