BoomMicrophone/nixpkgs-suyu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Work around quicklisp not knowing all dependencies

Browse source
This commit is contained in:
Brad Jensen 2017-07-31 19:29:53 -07:00
parent 92031d6e01
commit adeaaf0f54
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
pkgs/development/lisp-modules/quicklisp-to-nix/ql-to-nix.lisp
View file

@ -49,6 +49,24 @@
(#\. "_dot_")
(t x)))))
(defun system-depends-on (system-name)
(labels
((decode (name)
(typecase name
(string
name)
(cons
(ecase (car name)
(:version (second name)))))))
(let* ((asdf-dependencies (asdf:system-depends-on (asdf:find-system system-name)))
(decoded-asdf-dependencies (mapcar #'decode asdf-dependencies))
(clean-asdf-dependencies (remove-if-not 'ql-dist:find-system decoded-asdf-dependencies))
(ql-dependencies (ql-dist:required-systems (ql-dist:find-system system-name)))
(all-dependencies (concatenate 'list clean-asdf-dependencies ql-dependencies))
(sorted-dependencies (sort all-dependencies #'string<))
(unique-dependencies (remove-duplicates sorted-dependencies :test #'equal)))
unique-dependencies)))
(defun system-data (system)
(let*
((asdf-system
@ -69,7 +87,7 @@
(nix-prefetch-url local-url)))
(ideal-md5 (ql-dist:archive-md5 ql-release))
(file-md5 (getf archive-data :md5))
(raw-dependencies (ql-dist:required-systems ql-system))
(raw-dependencies (system-depends-on system))
(name (string-downcase (format nil "~a" system)))
(ql-sibling-names
(remove name (mapcar 'ql-dist:name ql-sibling-systems)