Commit 89fa82fc authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix parsing of :implicit-* sources from contexts

They were being put in the user slot, plus, due to the aggressive caching
introduced earlier, weren't getting initialized as they were in previous
parent 2c2c86e4
......@@ -13,6 +13,7 @@
......@@ -438,11 +439,21 @@ in place with the same name. Return the new requirement if it was modified."
(defmethod process-form (context (section (eql :reverse-dependencies)) form))
(defmethod process-form (context (section (eql :sources)) form)
(case (first form)
(dolist (project-description (getf (rest form) :projects))
(vcs-source-register-project! (context-vcs-source context)
(make-repo-from-description (rest project-description))
(first project-description))))
(dolist (sf (getf (rest form) :system-files))
(fs-source-register-asd (context-fs-source context) sf)))
(let ((source (load-source-from-form form)))
(unless (or (source-can-lazy-sync-p source)
(config-value :local))
(sync-source source))
(setf (context-user-sources context) (append (context-user-sources context) (list source)))))
(setf (context-user-sources context) (append (context-user-sources context) (list source)))))))
(defun load-context-from-stream (stream name)
(uiop:with-safe-io-syntax ()
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