(defun from-cache (wdir dir id)
"Read cache information from *working-directory*/<DIR>/<ID>"
(let ((cache-path (format nil "~A/~A/~A" wdir dir id)))
(when (probe-file cache-path)
(with-open-file (stream cache-path)
(read stream)
;; (loop
;; for line = (read-line stream nil 'eof)
;; until (eq line 'eof)
;; collect line)
))))
(setf *repositories-cache*
(from-cache "/var/tmp/forgerie/phabricator" "everything" "repositories"))