Lisp/Sort: Use mpair to speedup quick-sort