Anonymous user
Inverted syntax: Difference between revisions
→{{header|Common Lisp}}
Line 91:
(cond
((atom form) form) ;; atom: leave alone
((null (cdr form)) form) ;; one-element form
((null (cddr form)) ;; two-element form
(destructuring-bind (arg oper) form
`(,oper ,(unrev-syntax arg))))
(t
(destructuring-bind (arg1 oper &rest args) (reverse form)
`(,oper ,(unrev-syntax arg1) ,@(mapcar #'unrev-syntax args)))))))
|