Вопрос есть в коллекциях
Отметьте выражение, объявляющее новый метод.
- (defclass alltd () ((type :accessor td)) (:documentation "everyting"))
- (defclass expr (alltd) ((sd :accessor ft)) (:documentation "C-expression"))
- (defmethod texrp ((x expr) (nt atom)) (setf (slot-value x 'type) nt) (setf (td x) nt))
- (setf e3 (make-instance 'expr))
- (texpr e3 'expr)
- (setf (slot-value e3 'sd) (read))
- (td e3)
meimei1337




























