Add SOURCE-SYSTEM-NAMES.

quicklisp · Mar 4, 2015 · 3d5d53c · 3d5d53c
1 parent 3c2c250
commit 3d5d53c
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/html-failure-report.lisp b/html-failure-report.lisp
@@ -25,6 +25,9 @@
          (push (find-system-file system-file-name) result)))
       result)))
 
+(defun source-system-names (source)
+  (mapcar 'pathname-name (source-system-files source)))
+
 (defun primary-system-file (source)
   (block nil
     (let ((files (source-system-files source)))