equalp に hash-table を渡すと返ってくる謎の多値 https://gist.github.com/1480046 を始末する #xyzzy

hash-table-equalp.patch

diff --git src/hash.cc src/hash.cc
index 3b8c55b..ad81b50 100644
--- src/hash.cc
+++ src/hash.cc
@@ -528,9 +528,13 @@ equalp (lhash_table *x, lhash_table *y)
       {
         lisp t = Fgethash (entry->key, y, Qnil);
         if (Fequalp (entry->value, t) == Qnil)
-          return 0;
+          {
+            multiple_value::clear();
+            return 0;
+          }
       }

+  multiple_value::clear();
   return 1;
 }