lispdoc - results for merge

(defun insert-path (path paths)
  "Put path into the right position, sorted by total cost."
  (merge 'list (list path) paths #'< :key
         #'path-total-cost))

(defun figure-out-fname (fname)
  "should be made into one line later.."
  (let* ((fname (pathname fname))
         (result (merge-pathnames fname)))
    (namestring result)))