Commit 04e572ac authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix creating an empty-lockfile

parent 9e749930
......@@ -60,7 +60,8 @@ bound to PN's folder."
`(call-with-bundle-default-pathname-defaults (lambda () ,@body) ,clpmfile-pn))
(defun create-empty-lockfile (clpmfile)
(copy-context clpmfile))
(aprog1 (copy-context clpmfile)
(setf (context-name it) (clpmfile-lockfile-pathname clpmfile))))
(defun make-vcs-override-fun (clpmfile-pathname)
(let ((clpmfile-directory (uiop:pathname-directory-pathname clpmfile-pathname)))
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