From 9b1342bb2ddb2a520c26bfb3f61dafccf22b2e59 Mon Sep 17 00:00:00 2001
From: Gary King <gwking@franz.com>
Date: Wed, 15 Jul 2009 12:37:49 -0400
Subject: [PATCH] fixed minor glitches in test result web page generation

---
 GNUmakefile          | 2 +-
 bin/make-helper.lisp | 7 ++++---
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/GNUmakefile b/GNUmakefile
index d09b6d72..b255a04b 100644
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -57,6 +57,6 @@ test-all: FORCE
 		make test lisp=$$lisp; \
 	done
 	sbcl --userinit /dev/null --sysinit /dev/null --load bin/make-helper.lisp \
-		--eval "(write-test-pages)" --eval "(quit)"
+		--eval "(write-test-web-pages)" --eval "(quit)"
 
 FORCE:
\ No newline at end of file
diff --git a/bin/make-helper.lisp b/bin/make-helper.lisp
index acbf93eb..2070916a 100644
--- a/bin/make-helper.lisp
+++ b/bin/make-helper.lisp
@@ -267,13 +267,14 @@ None of %c, %F, %p, %x, %X, %Z, %z are implemented."
      (merge-pathnames (make-pathname :name "asdf" :type "lisp"))
      output)))
 
-(defun write-web-pages ()
-  (let* ((*default-pathname-defaults* (make-pathname :name nil :type nil :defaults *load-truename*))
+(defun write-test-web-pages ()
+  (let* ((*default-pathname-defaults* 
+	  (make-pathname :name nil :type nil :defaults *load-truename*))
 	 (source (merge-pathnames
 		  (make-pathname
 		   :directory '(:relative "results"))))
 	 (output (merge-pathnames (make-pathname 
-				   :directory '(:relative :back "website" "output")
+				   :directory '(:relative "website" "output")
 				   :name "test-results"
 				   :type "html"))))
     (print (list source output))
-- 
GitLab