[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: :type bug?
- To: Gregor.pa@Xerox.COM
- Subject: Re: :type bug?
- From: kempf@Sun.COM
- Date: Tue, 20 Sep 88 07:58:17 -0700
- Cc: Doug Ruth <RUTH@SRI-ROBOTX.ARPA>, commonloops.pa@Xerox.COM
- In-reply-to: Your message of Mon, 19 Sep 88 21:36:00 -0700. <19880920043640.5.GREGOR@PORTNOY.parc.xerox.com>
- Redistributed: commonloops.pa
>(defclass foo () ((a :type number)))
>(defclass bar () ((a)))
>
>Clearly, the following are true:
>
>(slotd-type (car (class-slots (find-class 'foo)))) ==> NUMBER
>(slotd-type (car (class-slots (find-class 'bar)))) ==> NUMBER
I think what you mean here is:
(defclass foo () ((a :type number)))
(defclass bar (foo) ((a)))
Otherwise:
(slotd-type (car (class-slots (find-class 'bar)))) ==> T
or?
jak