Bubblegumdrop
/
cl-deck-builder2
1
1
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Yu-Gi-Oh! Deck Building and Card Inventory Management web interface written in Common Lisp, utilizing HTMX.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1 Commit
1 Branch
5.3MB
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
cl-deck-builder2/print-deps.lisp

25 lines
823B
Raw Permalink Blame History 

  1. #|

  2. 

  3. print-deps.lisp

  4. 

  5. Output dependency information extracted from the ASDF:DEFSYSTEM.

  6. 

  7. TODO Integrate this with the Dockerfile.

  8. 

  9. |#

  10. 

  11. (defparameter +extra-depends-on+

  12.   '(:hunchentoot :woo :slynk/trace-dialog :slynk/profiler :slynk/mrepl :slynk/indentation

  13.     :slynk/fancy-inspector :slynk/arglists :slynk))

  14. 

  15. (defun format-deps (system &optional (stream *standard-output*) extra-depends-on)

  16.   (format stream "(ql:quickload (list ~{~s~^ ~}))~%" (system-deps system extra-depends-on)))

  17. 

  18. (defun system-deps (system &optional extra-depends-on)

  19.   (mapcar (alexandria:compose #'alexandria:make-keyword #'string-upcase)

  20.           (sort (remove-duplicates

  21.                  (append extra-depends-on

  22.                          (asdf:system-depends-on

  23.                           (asdf:find-system system))))

  24.                 #'string<)))