From b37e3f37f173eea9c8149109f73f9b34c6a1515c Mon Sep 17 00:00:00 2001 From: Henrik Hjelte Date: Mon, 21 Aug 2006 10:29:48 +0200 Subject: [PATCH] Platform-independent pathnames in make-qbook --- docs/make-qbook.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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))))) + + -- 1.7.10.4