2 lines
59 B
Common Lisp
2 lines
59 B
Common Lisp
(defmacro swap (a b)
|
|
`(setq ,b (prog1 ,a (setq ,a ,b))))
|
(defmacro swap (a b)
|
|
`(setq ,b (prog1 ,a (setq ,a ,b))))
|