Function: ARRAY-SWAP

Source

(defun array-swap (array i1 i2)
  (let ((tmp (aref array i1)))
    (setf (aref array i1) (aref array i2)
	  (aref array i2) tmp)))