Add a broken lisp quicksort