insertion sort for common lisp, from CRLS