Fix method specialization

Ramarren · Sep 24, 2009 · 61b6d12 · 61b6d12
1 parent 2f6d57f
commit 61b6d12
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/contexts.lisp b/contexts.lisp
@@ -37,7 +37,7 @@
                             (call-next-method)))))))
 
 (defgeneric context-equal (context1 context2)
-  (:method ((context1 list-context) (context2 list-context))
+  (:method ((context1 context) (context2 context))
     (or (eq context1 context2)
         (and (eq (sequence-id-of context1)
                  (sequence-id-of context2))