From: Henrik Hjelte <henrik@evahjelte.com>
Date: Mon, 21 Aug 2006 08:29:48 +0000 (+0200)
Subject:  Platform-independent pathnames in make-qbook
X-Git-Url: http://repo.macrolet.net/gitweb/?p=fiveam.git;a=commitdiff_plain;h=b37e3f37f173eea9c8149109f73f9b34c6a1515c

 Platform-independent pathnames in make-qbook
---

diff --git a/docs/make-qbook.lisp b/docs/make-qbook.lisp
index 6fa5a93..8144c94 100644
--- 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)))))
+
+