[ sisc-Bugs-1074510 ] default slot values incorrectly processed

Bugs item #1074510, was opened at 2004-11-28 08:15
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1074510&group_id=23735

Category: None
Group: None
Status: Open
Resolution: None
Priority: 7
Submitted By: Matthias Radestock (mradestock)
Assigned to: Nobody/Anonymous (nobody)
Summary: default slot values incorrectly processed

Initial Comment:
Alessandro Colomba reports that after upgrading from
1.8.8  to 1.9.4 he encountered the following problem:

--8<--8<--8<--8<--8<--8<--8<--
(import oo)
(import generic-procedures)

(define-generics :foo :bar)

(define-class (<foobar>)
  (foo (value '())
       (accessor :foo))
  (bar (value '(1))
       (accessor :bar)))

(define foobar (make <foobar>))

(display (null? (:foo foobar)))
(display (equal? '(1) (:bar foobar)))
--8<--8<--8<--8<--8<--8<--8<--

In 1.8.8 the last two lines print #t, as they should,
but in 1.9.4 they print #f.


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1074510&group_id=23735


-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now. 
http://productguide.itmanagersjournal.com/