Вы читаете свой журнал
(Свежие записи) (Архив) (Друзья) (Личная информация) (XtalK)
А чем
`(1 2 ,(+ 1 2))
(list 1 2 (+ 1 2))
(list 'lambda '(op reg ) (list 'let (list (list 'res (list 'member 'op ops))) (list 'if 'res '(cadar res) (list 'cadar ops) ) ) )
`(lambda (op reg) (let ((res (member op ,ops))) (if res (cadar res) (cadar ,ops) ) ) )
Ну кроме того, нетупая реализация может значительно быстрее делать quasiquote instantiation, чем звать толпу list-ов, вроде бы (not that it ever matters).