AP
Size: a a a
AP
¥
AP
¥
¥
(defclass machine ()
(name model))
(defvar *nick* (make-instance 'machine))
(setf (slot-value *nick* 'name) "nickotin")
(setf (slot-value *nick* 'model) "bot")
(format t "~a is a machine (~a)~%"
(slot-value *nick* 'name)
(slot-value *nick* 'model))
AP
¥
AP
AP
AP
ЯУ
AP
AP