История изменений

(loop for i on lst while (pred (car i)) collect (car i) into left finally (return (values left i)))

Сразу видно ракетчика. Не нужно стесняться в выражениях, тут можно по царски называть вещи нормальными именами и не выёживаться каждый раз с (car i):

(defun partition (list test)
  (loop
   for right on list
   and this in list
   while (funcall test this)
   collect this into left
   finally (return (values left right))))

(loop for i on lst while (pred (car i)) collect (car i) into left finally (return (values left i)))

Сразу видно ракетчика. Не нужно стесняться в выражениях, тут можно по царски:

(defun partition (list test)
  (loop
   for right on list
   and this in list
   while (funcall test this)
   collect this into left
   finally (return (values left right))))