[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: call-method ??????
- To: info-mcl@cambridge.apple.com, lafourca@imag.fr
- Subject: Re: call-method ??????
- From: Ranson <ranson@LANNION.cnet.fr>
- Date: 02 Nov 92 08:10:00 GMT
- X400-received: by /PRMD=inria/ADMD=atlas/C=FR/; Relayed; 02 Nov 92 08:10:46+0100
- X400-received: by /PRMD=CNET/ADMD=ATLAS/C=FR/; Relayed; 02 Nov 92 08:10:00 GMT
How about:
(defclass boat ...)
(defmethod move-on-sea ((x boat) ...)
(defmethod move-in-air ((x boat) ...) (error ...)
(defclass plane ...)
(defmethod move-on-sea ((x plane) ...) (error ...)
(defmethod move-in-air ((x plane) ...)
(defclass hydroplane (boat plane) ...)
(defmethod move ((x hydroplane) on-sea?)
(if on-sea?
(move-on-sea x...)
(move-in-air x...)))
Daniel.