From ef42490f6651af21e86a4521e24d81cc314df5cb Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 7 Nov 2000 02:19:03 +0000 Subject: [PATCH] * goops/dispatch.scm (method-cache-install!): Use n-specialized + 1 args for type matching. (Thanks to Lars J. Aas.) --- oop/goops/dispatch.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/oop/goops/dispatch.scm b/oop/goops/dispatch.scm index 26d832a6e..a1e031f4d 100644 --- a/oop/goops/dispatch.scm +++ b/oop/goops/dispatch.scm @@ -261,7 +261,7 @@ (n-specializers (if (list? specializers) (length specializers) - (abs (slot-ref (method-cache-generic-function exp) + (+ 1 (slot-ref (method-cache-generic-function exp) 'n-specialized))))) (let* ((types (map class-of (first-n args n-specializers))) (entry+cmethod (compute-entry-with-cmethod applicable types)))