)                             (setf (subseq c k) (subseq a i))                             (return c))                           (setf (aref c k)                                 (if (< (aref a i) (aref b j))                                     (prog0 (aref a i) (incf i))                                     (prog0 (aref b j) (incf j)))))))