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     (merge-pathnames
   6      (make-pathname
   7       :directory `(:relative
   8                    ,(asdf::implementation-specific-directory-name)))
   9      basepath)))
  10