Lisp/Sort: 3way-quick-sort