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