Function: COMMIT-FILENAME

Source

(defun commit-filename (cache)
  (merge-pathnames "commit"
                   (pathname (heap-stream (heap cache)))))