Generic swap: Difference between revisions

=={{header|ACL2}}==

<lang Lisp>(defun swap (pair)

(cons (cdr pair)

(car pair)))

(let ((p (cons 1 2)))

(cw "Before: ~x0~%After: ~x1~%" p (swap p)))</lang>