3 (defmethod generate-report-summary-pathname :around
()
4 (let ((basepath (call-next-method)))
5 (add-implementation-specific-directory-name basepath
)))
8 (defmethod html-report-pathname :around
(pathname)
9 (declare (ignore pathname
))
10 (let ((basepath (call-next-method)))
11 (add-implementation-specific-directory-name basepath
)))
13 (defun add-implementation-specific-directory-name (basepath)
16 :directory
`(:relative
17 ,(asdf::implementation-specific-directory-name
)))