Commit ae55a357 authored by Antoine Martin's avatar Antoine Martin
Browse files

Add fallback for non Quicklisp systems

parent 22af72f6
...@@ -59,8 +59,10 @@ ...@@ -59,8 +59,10 @@
(clean-or-create (from-quickref-dir "website/")))) (clean-or-create (from-quickref-dir "website/"))))
(defun find-readme (release-name) (defun find-readme (release-name)
(let ((asd-file (ql-dist:base-directory (let* ((release (ql-dist:find-release release-name))
(ql-dist:find-release release-name)))) (asd-file (if release
(ql-dist:base-directory release)
(asdf:system-source-directory release-name))))
(car (directory (merge-pathnames "README.*" (car (directory (merge-pathnames "README.*"
asd-file))))) asd-file)))))
(defun file-to-string (pathname) (defun file-to-string (pathname)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment