Commit 2c2c86e4 authored by Eric Timmons's avatar Eric Timmons
Browse files

Ensure only source names are put into requirement plists

parent 7ce710dd
......@@ -6,7 +6,8 @@
(uiop:define-package #:clpm/requirement
(:use #:cl
#:anaphora)
#:anaphora
#:clpm/sources/defs)
(:export #:convert-asd-system-spec-to-req
#:fs-system-file-requirement
#:fs-system-requirement
......@@ -210,7 +211,9 @@ represents."))
(awhen (requirement-version-spec req)
(list :version it))
(awhen (requirement-source req)
(list :source it))
(list :source (if (typep it 'clpm-source)
(source-name it)
it)))
(awhen (requirement-no-deps-p req)
(list :no-deps-p it))))
......@@ -226,7 +229,9 @@ represents."))
(awhen (requirement-ref req)
(list :ref it))
(awhen (requirement-source req)
(list :source it))
(list :source (if (typep it 'clpm-source)
(source-name it)
it)))
(awhen (requirement-no-deps-p req)
(list :no-deps-p it))))
......
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