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

fixed minor glitches in test result web page generation

parent 2e282d16
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -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
+4 −3
Original line number Diff line number Diff line
@@ -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))