(defun selection-sort (l)
	   (loop
	    for i from 0 to (- (length l) 1)
	    do ((setf min i)
		(loop
		 for j from (+ i 1) (lenght l)
		 do (if (< (elt l j) (elt l min))
			(setf min j)))
		(exch l i min))))