bug#23404: Infinite recursion in GOOPS in Guile 2.2

[Christopher Allan Webber <cwebber@dustycloud.org>]

It looks like my example was incomplete.  It turns out loading and
passing in an srfi-9 record is critical to instantiating the bug.

Why?  I'm not sure...

  (use-modules (oop goops)
               (srfi srfi-9))
  (define-class <some-class> ())
  (define-record-type <some-record>
    (make-some-record foo)
    some-record?
    (foo some-record-foo))
  
  (define-method (time-to-break (some-class <some-class>) not-a-class)
    (display "We're never going home are we?\n"))
  
  ;; Now it'll break
  (time-to-break (make <some-class>) (make-some-record 1))