default-initargs

Hard to believe, but :default-initargs seem not to work:

(defclass aaa ()
    ((xxx :initform 'x :initarg :xxx :accessor xxx)
     (yyy :initform 'y :initarg :yy :accessor yyy))
    (:default-initargs
         :xxx 'xx
         :yy 'yy))

(describe (make-instance 'aaa))

#<Standard-Class AAA #x14FDF70>
CLOS OBJECT:
     printed representation: #<Aaa #x1562DF0>
     class:          #<Standard-Class AAA #x14FDF70>
     heap address:   #x1562DF0
     xxx: X
     yyy: Y


Introduced in last patch perhaps? (too lazy to back that out to check)

At any rate, looks as if Cells is running, just have to see if I can 
elim all uses of default-initargs from test suite. but lots of the tests 
ran (including one of the nastiest) before getting to one which happened 
to use default-initargs.


-- 

  kenny tilton
  clinisys, inc
  http://www.tilton-technology.com/
  ---------------------------------------------------------------
"Cells let us walk, talk, think, make love and realize
  the bath water is cold." -- Lorraine Lee Cudmore



------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/hdqFAA/xGHJAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
cormanlisp-unsubscribe@xxxxxxxxxxxxxxx

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/