Changeset 14626

Timestamp:

Feb 2, 2011, 4:33:27 AM (10 years ago)

Author:

gb

Message:

Use the METHOD object's lambda-list (not the METHOD-FUNCTION's)
when determining lambda-list congruency.

This seems to fix ticket:600.

File:

• trunk/source/level-1/l1-clos-boot.lisp (modified) (1 diff)

trunk/source/level-1/l1-clos-boot.lisp

@@ -846 +846 @@
                                     error-p gbits mbits gkeys)
   (unless gbits (setq gbits (inner-lfun-bits gf)))
-  (unless mbits (setq mbits (lfun-bits (%method-function method))))
+  (unless mbits (setq mbits (encode-lambda-list (%method-lambda-list method))))
   (and (congruent-lfbits-p gbits mbits)
        (or (and (or (logbitp $lfbits-rest-bit mbits)