7 lines
196 B
Text
7 lines
196 B
Text
(defmacro swp (left right)
|
|
(with-gensyms (tmp lpl rpl)
|
|
^(placelet ((,lpl ,left)
|
|
(,rpl ,right))
|
|
(let ((,tmp ,lpl))
|
|
(set ,lpl ,rpl
|
|
,rpl ,tmp)))))
|