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

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

View file

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

View file

@ -1,6 +1,7 @@
(defpackage #:project-docs
(uiop:define-package #:project-docs
(:use #:cl)
(:nicknames #:project-docs/docs)
(:import-from #:40ants-doc
#:defsection
#:defsection-copy)
@ -18,7 +19,12 @@
;; 40ANTS-DOC-THEME-40ANTS system will bring
;; as dependency a full 40ANTS-DOC but we don't want
;; 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
(find-symbol "40ANTS-THEME"
(find-package "40ANTS-DOC-THEME-40ANTS"))))