Function: SORTER

Source

(defun sorter (cost-fn)
  (lambda (new old)
    (merge 'list (sort new #'<) old #'< :key cost-fn)))