;******************************* ; SWAP ;******************************* ; I/O examples: (setf swap-test (list (cons '() '()) (cons '(a) '(a)) (cons '(a b) '(b a)) (cons '(a b c) '(c b a)) (cons '(a b c d) '(d b c a)) (cons '(a b c d e) '(e b c d a)) (cons '(a b c d e f) '(f b c d e a)) (cons '(a b c d e f g) '(g b c d e f a)) (cons '(a b c d e f g h) '(h b c d e f g a)) ) )