Someone

(defun make-comparison-lists (fields)
  (loop while fields collecting (make-comparison-expr (pop											       fields) (pop
						       fields))))