Commit 9b1342bb authored by Gary King's avatar Gary King
Browse files

fixed minor glitches in test result web page generation

parent 2e282d16
......@@ -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
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment