((/defsort/generic-impl.lisp::comparable-mergesort-spec3 (nil nil nil nil (cond) nil nil) (nil nil ((zp len) (= len 1) t) nil nil nil nil) ((nil) nil (list) (let*) nil nil nil) (nil nil (car) (comparable-merge) ((len1 (first-half-len len))) nil nil) ((x part1 part2) nil (len2 part1 part2) nil nil nil nil) (nil nil (second-half-len) (recursive-call recursive-call) nil nil nil) ((len x len1 len2) nil nil (nthcdr) nil nil nil)))