[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
initform bug
- To: commonloops.pa@Xerox.COM
- Subject: initform bug
- From: Reed Hastings <HASTINGS@SUMEX-AIM.STANFORD.EDU>
- Date: Tue, 23 Jun 87 04:17:15 PDT
- Stanford-phone: (415) 725-3850
Initforms on slots allocated on a class are NOT getting evaluated.
==> (defclass heart ()
((color :initform 'red :allocation :class))
(:accessor-prefix nil))
#<Class HEART 32162260>
==> (setq h (make-instance 'heart))
#S(HEART)
==> (color h)
(QUOTE RED)
-------