Как присвоить значение атрибута price атома phone атрибуту payment атома customer?
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
(setf customer->payment (get 'phone 'price))
(with phone (with customer (setq payment price)))
(setq (get 'customer 'payment) (get 'phone 'price))
(setq customer->payment phone->price)
(progn (setq x (get 'price 'phone)) (setf (get 'customer 'payment) x))(Верный ответ)
(setf (get 'customer 'payment) (get 'phone 'price))(Верный ответ)
(setq customer->payment (get 'phone 'price))