paku/setup-lisp
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Use a hack to not signal error on missing quicklisp-client import.

Browse source
This commit is contained in:
Alexander Artemenko 2023-08-21 16:28:51 +00:00
parent 99efbd4524
commit ba1fb09ed7
2 changed files with 9 additions and 3 deletions

2
changelog.lisp
View file

@ -1,4 +1,4 @@
(defpackage #:project-docs/changelog (uiop:define-package #:project-docs/changelog
(:use #:cl) (:use #:cl)
(:import-from #:40ants-doc/changelog (:import-from #:40ants-doc/changelog
#:defchangelog)) #:defchangelog))

10
docs.lisp
View file

@ -1,6 +1,7 @@
(defpackage #:project-docs (uiop:define-package #:project-docs
(:use #:cl) (:use #:cl)
(:nicknames #:project-docs/docs) (:nicknames #:project-docs/docs)
(:import-from #:40ants-doc (:import-from #:40ants-doc
#:defsection #:defsection
#:defsection-copy) #:defsection-copy)
@ -18,7 +19,12 @@
;; 40ANTS-DOC-THEME-40ANTS system will bring ;; 40ANTS-DOC-THEME-40ANTS system will bring
;; as dependency a full 40ANTS-DOC but we don't want ;; as dependency a full 40ANTS-DOC but we don't want
;; unnecessary dependencies here: ;; unnecessary dependencies here:
(ql:quickload :40ants-doc-theme-40ants) #+quicklisp
(uiop:symbol-call :ql :quickload
:40ants-doc-theme-40ants)
#-quicklisp
(asdf:load-system :40ants-doc-theme-40ants)
(list :theme (list :theme
(find-symbol "40ANTS-THEME" (find-symbol "40ANTS-THEME"
(find-package "40ANTS-DOC-THEME-40ANTS")))) (find-package "40ANTS-DOC-THEME-40ANTS"))))