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