cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- disabled functions that depends on quicklisp.

Browse Source
This commit is contained in:
cage 2022-03-19 10:11:50 +01:00
parent ece146a2d4
commit 551d93404b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/misc-utils.lisp
View File

@ -958,18 +958,22 @@ to the array"
;; package building utils ;; package building utils
#+quicklisp
(defun ql-system-equals (a b) (defun ql-system-equals (a b)
(string= (ql::short-description a) (string= (ql::short-description a)
(ql::short-description b))) (ql::short-description b)))
#+quicklisp
(defun remove-system-duplicates-test (systems) (defun remove-system-duplicates-test (systems)
(remove-duplicates systems (remove-duplicates systems
:test #'string=)) :test #'string=))
#+quicklisp
(alexandria:define-constant +github-quicklisp-source-url-template+ (alexandria:define-constant +github-quicklisp-source-url-template+
"https://raw.githubusercontent.com/quicklisp/quicklisp-projects/master/projects/~a/source.txt" "https://raw.githubusercontent.com/quicklisp/quicklisp-projects/master/projects/~a/source.txt"
:test #'string=) :test #'string=)
#+quicklisp
(defun get-quicklisp-original-file (system-name) (defun get-quicklisp-original-file (system-name)
(multiple-value-bind (stream response-code) (multiple-value-bind (stream response-code)
(get-url-content (format nil (get-url-content (format nil
@ -981,10 +985,12 @@ to the array"
(fields (text-utils:split-words line))) (fields (text-utils:split-words line)))
fields)))) fields))))
#+quicklisp
(defun asdf-depends-on (&optional (system-name config:+program-name+)) (defun asdf-depends-on (&optional (system-name config:+program-name+))
(let ((symbol-system (alexandria:symbolicate (string-upcase system-name)))) (let ((symbol-system (alexandria:symbolicate (string-upcase system-name))))
(asdf:system-depends-on (asdf:find-system symbol-system)))) (asdf:system-depends-on (asdf:find-system symbol-system))))
#+quicklisp
(defun all-dependencies (system-name) (defun all-dependencies (system-name)
(flet ((get-direct-dependencies (system-name) (flet ((get-direct-dependencies (system-name)
(remove-system-duplicates-test (asdf-depends-on system-name)))) (remove-system-duplicates-test (asdf-depends-on system-name))))
@ -997,6 +1003,7 @@ to the array"
(all-dependencies i)))) (all-dependencies i))))
(sort results #'string<)))) (sort results #'string<))))
#+quicklisp
(defun all-program-dependencies (&optional download) (defun all-program-dependencies (&optional download)
(let* ((dependencies (all-dependencies config:+program-name+)) (let* ((dependencies (all-dependencies config:+program-name+))
(clean-dependencies (mapcar (lambda (a) (clean-dependencies (mapcar (lambda (a)