external/lift.darcs/dev/report-locations.lisp

   1 (in-package #:lift)
   2
   3 (defmethod generate-report-summary-pathname :around ()
   4   (let ((basepath (call-next-method)))
   5     (add-implementation-specific-directory-name basepath)))
   6
   7 #+(or)
   8 (defmethod html-report-pathname :around (pathname)
   9   (declare (ignore pathname))
  10   (let ((basepath (call-next-method)))
  11     (add-implementation-specific-directory-name basepath)))
  12
  13 (defun add-implementation-specific-directory-name (basepath)
  14     (merge-pathnames
  15      (make-pathname
  16       :directory `(:relative
  17                    ,(asdf::implementation-specific-directory-name)))
  18    basepath))
  19