6 lines
131 B
Text
6 lines
131 B
Text
(defun swap (pair)
|
|
(cons (cdr pair)
|
|
(car pair)))
|
|
|
|
(let ((p (cons 1 2)))
|
|
(cw "Before: ~x0~%After: ~x1~%" p (swap p)))
|