Platform-independent pathnames in make-qbook

diff --git a/docs/make-qbook.lisp b/docs/make-qbook.lisp
index 6fa5a93..8144c94 100644 (file)
--- a/docs/make-qbook.lisp
+++ b/docs/make-qbook.lisp
@@ -1,8 +1,13 @@
 (asdf:oos 'asdf:load-op :FiveAM)
 (asdf:oos 'asdf:load-op :qbook)
 
-(asdf:oos 'qbook:publish-op :fiveam
+(asdf:oos 'qbook:publish-op :FiveAM
           :generator (make-instance 'qbook:html-generator
                                     :title "FiveAM"
-                                    :output-directory "./html/"))
+                                    :output-directory
+                                    (merge-pathnames
+                                        (make-pathname :directory '(:relative "docs" "html"))
+                                        (asdf:component-pathname (asdf:find-system :FiveAM)))))
+
+