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