bug#17355: #:getter procedure returns unexpected value in GOOPS

bug#17355: #:getter procedure returns unexpected value in GOOPS

[Diogo F. S. Ramos]

When using GOOPS, if a class has a second slot, the #:getter procedure
of the first slot returns the value of the second slot when applied to
an instance of a subclass.

--8<---------------cut here---------------start------------->8---
(use-modules (oop goops))

(define-class <foo> ()
  (a #:init-form 'foo #:getter foo-a)
  (b #:init-form 42))

(define-class <bar> (<foo>)
  (a #:init-form 'bar))
--8<---------------cut here---------------end--------------->8---

  (foo-a (make <foo>)) => foo
  (foo-a (make <bar>)) => 42

I expected:

  (foo-a (make <bar>)) => bar

I'm using Guile 2.0.11.

bug#17355: #:getter procedure returns unexpected value in GOOPS

[Andy Wingo]

Thanks for the report!  This is fixed in Guile 2.0.11 and in 2.1.x,
though the full situation is a bit strange.

See: http://thread.gmane.org/gmane.lisp.guile.user/11218/focus=11813

Regards,

Andy

On Sun 27 Apr 2014 03:43, "Diogo F. S. Ramos" <dfsr@riseup.net> writes:

> When using GOOPS, if a class has a second slot, the #:getter procedure
> of the first slot returns the value of the second slot when applied to
> an instance of a subclass.
>
> (use-modules (oop goops))
>
> (define-class <foo> ()
>   (a #:init-form 'foo #:getter foo-a)
>   (b #:init-form 42))
>
> (define-class <bar> (<foo>)
>   (a #:init-form 'bar))
>
>   (foo-a (make <foo>)) => foo
>   (foo-a (make <bar>)) => 42
>
> I expected:
>
>   (foo-a (make <bar>)) => bar
>
> I'm using Guile 2.0.11.