Format error when processing a bad DEFINE-METHOD-COMBINATION form

[Paul F. Dietz]

(define-method-combination x () ((y)))

==>

Error (FORMAT-ERROR) during printing: #<SB-INT:SIMPLE-PROGRAM-ERROR {100D041FA3}>
   [Condition of type SB-INT:SIMPLE-PROGRAM-ERROR]

Restarts:
 0: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (SB-INT:%PROGRAM-ERROR "~@<Method group specifiers in the long form of ~S ~ ..)
  1: (SB-PCL::PARSE-METHOD-GROUP-SPECIFIER NIL)
  2: (SB-PCL::WRAP-METHOD-GROUP-SPECIFIER-BINDINGS ((Y)) NIL NIL)
  3: (SB-PCL::MAKE-LONG-METHOD-COMBINATION-FUNCTION #<unused argument> NIL ((Y)) NIL NIL NIL)
 [...]

[Christophe Rhodes (csr21-cantab)]

 status fixcommitted
 done

In d52f715baf7095af9e43895b91fcdad43bb6bd53. Thank you,

Christophe

"Paul F. Dietz" <email address hidden> writes:

> Public bug reported:
>
> (define-method-combination x () ((y)))
>
> ==>
>
> Error (FORMAT-ERROR) during printing: #<SB-INT:SIMPLE-PROGRAM-ERROR {100D041FA3}>
> [Condition of type SB-INT:SIMPLE-PROGRAM-ERROR]
>
> Restarts:
> 0: [ABORT] Exit debugger, returning to top level.
>
> Backtrace:
> 0: (SB-INT:%PROGRAM-ERROR "~@<Method group specifiers in the long form of ~S ~ ..)
> 1: (SB-PCL::PARSE-METHOD-GROUP-SPECIFIER NIL)
> 2: (SB-PCL::WRAP-METHOD-GROUP-SPECIFIER-BINDINGS ((Y)) NIL NIL)
> 3: (SB-PCL::MAKE-LONG-METHOD-COMBINATION-FUNCTION #<unused argument> NIL ((Y)) NIL NIL NIL)
> [...]
>
> ** Affects: sbcl
> Importance: Undecided
> Status: New