#'<macro op> in a :method clause causes spurious signature incongruity

[james.anderson]

QRES-GDS> (lisp-implementation-version) "Version 1.2-r9777-working-0711 (LinuxX8664)" QRES-GDS> (defgeneric test-or (a)

(:method ((a sequence))

(reduce #'plus a :key #'identity)))

#<STANDARD-GENERIC-FUNCTION TEST-OR #x30006EF2F15F> QRES-GDS> (defgeneric test-or (a)

(:method ((a sequence))

(reduce #'or a :key #'identity)))

;Compiler warnings : ; In (TEST-OR (SEQUENCE)) inside an anonymous lambda form: FUNCTION can't be used to reference lexically visible macro OR. ; Evaluation aborted.

;;; the slime backtrace buffer contained:

Lambda list of method #<STANDARD-METHOD TEST-OR (SEQUENCE)> is incompatible with that of the generic function TEST-OR. Method's lambda-list : (A) Generic-function's : (A)

[Condition of type SIMPLE-ERROR]

Restarts:

0: [CONTINUE] Remove 0 methods from the generic-function and change its lambda list. 1: [ABORT] Return to SLIME's top level.

Backtrace:

0: (CCL::CHECK-DEFMETHOD-CONGRUENCY #<STANDARD-GENERIC-FUNCTION TEST-OR #x30006EF2F15F> #<STANDARD-METHOD TEST-OR (SEQUENCE)>) 1: (CCL::%ADD-STANDARD-METHOD-TO-STANDARD-GF #<STANDARD-GENERIC-FUNCTION TEST-OR #x30006EF2F15F> #<STANDARD-METHOD TEST-OR (SEQUENCE)>) 2: (CCL::ENSURE-METHOD TEST-OR (#<BUILT-IN-CLASS SEQUENCE>) :FUNCTION #<CCL:METHOD-FUNCTION TEST-OR (SEQUENCE)> :QUALIFIERS NIL :LAMBDA-LIST (A)) 3: (#<Anonymous Function #x30006F896E3F>) 4: (SWANK::EVAL-REGION "(defgeneric test-or (a)

(:method ((a sequence))

(reduce #'or a :key #'identity)))

")

5: ((:INTERNAL SWANK::REPL-EVAL))

...

[gb]

This seems to be yet another unfortunate side-effect of ticket:294.

[gz]

side effect, yes, but not quite a duplicate.

[gz]

Fixed in r9866 and r9867.