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