RosettaCodeData/Task/Generic-swap/Common-Lisp/generic-swap.lisp

4 lines
31 B
Common Lisp
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(rotatef a b)
(psetq a b b a)