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

Add fallback for non Quicklisp systems

parent 22af72f6
......@@ -59,8 +59,10 @@
(clean-or-create (from-quickref-dir "website/"))))
(defun find-readme (release-name)
(let ((asd-file (ql-dist:base-directory
(ql-dist:find-release release-name))))
(let* ((release (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.*"
asd-file)))))
(defun file-to-string (pathname)
......
Markdown is supported
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