7 lines
131 B
Text
7 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)))
|