[defdoc-cvs] CVS update: DefDoc/website/website.lisp

[Rahul Jain]

Update of /project/defdoc/cvsroot/DefDoc/website
In directory common-lisp.net:/tmp/cvs-serv30592/website

Modified Files:
	website.lisp 
Log Message:
since current clc require doesn't take user-packages into account, use asdf directly
fix link urls to include a "/" after "src"

Date: Sun Feb 15 00:26:36 2004
Author: rjain

Index: DefDoc/website/website.lisp
diff -u DefDoc/website/website.lisp:1.1 DefDoc/website/website.lisp:1.2
--- DefDoc/website/website.lisp:1.1	Sun Feb 15 00:02:02 2004
+++ DefDoc/website/website.lisp	Sun Feb 15 00:26:36 2004
@@ -1,3 +1,5 @@
+(asdf:operate 'asdf:load-op :defdoc)
+
 (defpackage :defdoc.website
     (:use :defdoc :defdoc.elements :defdoc.layout :common-lisp :defdoc.frontends.basic))
 
@@ -26,16 +28,16 @@
                       "The code is very incomplete, but what there is is "
                       (link (url (gen-src-link "/")) "publically available")". "
                       "There are definitions for various types of "
-                      (link (url (gen-src-link "elements/")) "document elements")". "
+                      (link (url (gen-src-link "/elements/")) "document elements")". "
                       "There are also definitions for the abstract types of "
-                      (link (url (gen-src-link "layout/")) "layout engines")
+                      (link (url (gen-src-link "/layout/")) "layout engines")
                       " as well as the "
-                      (link (url (gen-src-link "layout/html-engine.lisp")) " HTML layout engine")". "
+                      (link (url (gen-src-link "/layout/html-engine.lisp")) " HTML layout engine")". "
                       "Finally, there is a "
-                      (link (url (gen-src-link "frontends/basic/")) "basic frontend")", "
+                      (link (url (gen-src-link "/frontends/basic/")) "basic frontend")", "
                       "essentially a few simple macros for creating "(DefDoc)" documents. "
                       "A more fully-featured frontend is planned, which will be sensitive to the "
                       "current context and allow texual content to be entered unquoted.")
            (paragraph ()
                       "This site is actually a "(DefDoc)" "
-                      (link (url (gen-src-link "../website/website.lisp")) "document")".")))
+                      (link (url (gen-src-link "/../website/website.lisp")) "document")".")))