5 lines
127 B
Text
5 lines
127 B
Text
(defmacro swp (left right)
|
|
(with-gensyms (tmp)
|
|
^(let ((,tmp ,left))
|
|
(set ,left ,right
|
|
,right ,tmp))))
|