diff options
-rw-r--r-- | oop/goops/dispatch.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |