From: Christophe Rhodes <csr21@cantab.net>
Date: Thu, 22 May 2014 09:15:03 +0000 (+0100)
Subject: quick fix for a TODO
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=025185d2bc2d5835882217b21cecdc95cfeabec0;p=specializable.git

quick fix for a TODO

we still have generalizer-of-using-class, so use it in the one-arg
special case.
---

diff --git a/src/specializable.lisp b/src/specializable.lisp
index 7b8bcb6..02e8f18 100644
--- a/src/specializable.lisp
+++ b/src/specializable.lisp
@@ -139,7 +139,7 @@
          (slow-method-lookup-and-call gf args generalizers))))
     ((first-arg-only-special-case gf)
      (lambda (&rest args)
-       (let* ((generalizer (first (generalizers-of-using-class gf args))) ; TODO defeats purpose of special case
+       (let* ((generalizer (generalizer-of-using-class gf (first args)))
               (key (generalizer-equal-hash-key gf generalizer))
               (emfun (gethash key (emf-table gf) nil)))
          (if emfun