Commit 9fbec48e authored by Eric Timmons's avatar Eric Timmons
Browse files

When installing a bundle, automatically sync a source if needed

parent 05f6de1b
......@@ -55,7 +55,14 @@
(log:info "clpmfile located at ~S" clpmfile-pathname)
;; Get the lock file
(if (probe-file lockfile-pathname)
(setf lockfile (read-lockfile lockfile-pathname))
(handler-bind
((source-no-such-object
(lambda (c)
(declare (ignore c))
(when (find-restart 'sync-and-retry)
(log:info "Syncing source and retrying")
(invoke-restart 'sync-and-retry)))))
(setf lockfile (read-lockfile lockfile-pathname)))
(progn
;; The lock file doesn't exist. Create it!
(log:info "syncing sources")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment