[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www (build.el)

[Raymond Toy]

    Date: Tuesday, June 21, 2011 @ 06:05:49
  Author: rtoy
    Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www

Modified: build.el

Fix relative html links.

I don't know why this no longer works but after the upgrade to
common-lisp.net, the generated web pages no longer work on either
common-lisp.net or www.cons.org/cmucl.  By changing "../" to "./" we
get a working copy on common-lisp.net now.  (Actually the setup of the
webserver on common-lisp.net caused this to fail.  But www.cons.org
hasn't changed so I don't know why that fails now.)


----------+
 build.el |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)


Index: cmucl-www/cmucl-www/build.el
diff -u cmucl-www/cmucl-www/build.el:1.9 cmucl-www/cmucl-www/build.el:1.10
--- cmucl-www/cmucl-www/build.el:1.9	Wed Sep 29 16:59:58 2010
+++ cmucl-www/cmucl-www/build.el	Tue Jun 21 06:05:49 2011
@@ -92,7 +92,7 @@
 (defun wb-home-as-relative-url (path-components)
   (loop for path in path-components
         unless (string-match "\\.html\\'" path)
-        concat "../"))
+        concat "./"))
 
 ;; generate a title string for STR, from the information in
 ;; `wb-jumpbar-titles' if present, else defaulting to the file's