Plaster
New
List
Login
common-lisp
default
anonymous
2018.03.16 17:22:53
(defmethod report-on ((result test-result) (report minimal)) (format (output report) "~{~A~^ :: ~}" (remove nil (list 'constantia (and (boundp '*parent*) *parent* (name (expression *parent*))) (name (expression result))))))
Raw
Annotate
Repaste
Edit