goops: make 'allowing' the use of non existing init kw or slot

[David Pirotte]

Hello,

The attached code speaks for itself: shouldn't we get an error on both of these
attempts?

        1]      the slot exists but no :init-keyword was defined;
        2]      the slot does not exists.

Cheers,
David

(define-module (goops-make-using-non-existing-kw-or-slot)
  :use-module (oop goops)

  :export (<widget-a>
	    dialog
	    no-kw

	    letstry
	    ))


(define-class <widget-a> ()
  (dialog :accessor dialog :init-keyword :dialog :init-value #f)
  (no-kw :accessor no-kw :init-value #f))

(define (letstry)
  (make <widget-a>
    :dialog 'dialog-a
    :no-kw 'no-kw
    :non-existing-slot 'non-existing-slot))


#!

(use-modules (macros push))
(push! "/usr/local/share/guile/alto/2.0/tests"
       %load-path)

(use-modules (goops-make-using-non-existing-kw-or-slot))
(letstry)


!#