infinite loop with a generic function

[Keisuke Nishida]

Hello,

I'm using the latest Guile and GOOPS from the CVS repository.

  % guile -q
  guile> (use-modules (oop goops))
  guile> (define-generic string-set!)
  guile> (string-set! "foo")

And Guile enters an infinite loop (^C doesn't work).

I guess this is a bug of define-generic:

  % guile -q
  guile> (use-modules (oop goops) (oop goops describe))
  guile> (define-generic string-set!)
  guile> (describe string-set!)
  string-set! is a generic function. It's an instance of <generic>.
  Methods defined for string-set!
      Method #<<method> <top> 40261668>
          Specializers: <top>
  guile>