Lisp/Sort: Refactor, rename quick-sort-xx