From 025185d2bc2d5835882217b21cecdc95cfeabec0 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 22 May 2014 10:15:03 +0100 Subject: [PATCH] quick fix for a TODO we still have generalizer-of-using-class, so use it in the one-arg special case. --- src/specializable.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5