(defun swap (pair)
   (cons (cdr pair)
         (car pair)))

(let ((p (cons 1 2)))
  (cw "Before: ~x0~%After: ~x1~%" p (swap p)))