Loading GNUmakefile +1 −1 Original line number Diff line number Diff line Loading @@ -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 bin/make-helper.lisp +4 −3 Original line number Diff line number Diff line Loading @@ -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)) Loading Loading
GNUmakefile +1 −1 Original line number Diff line number Diff line Loading @@ -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
bin/make-helper.lisp +4 −3 Original line number Diff line number Diff line Loading @@ -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)) Loading