Commit 6db76b52 authored by Antoine Martin's avatar Antoine Martin
Browse files

Add function to get list of directory basenames

parent 7dbd7e8c
......@@ -4,7 +4,8 @@
:starts-with-subseq)
(:export :print-primary-systems
:get-primary-system-name
:print-columns))
:print-columns
:get-directory-list))
(in-package :quickref)
......@@ -64,3 +65,7 @@
(format file
"<tr><td></td><td>~a</td><td></td><td>~a</td><td></td><td>~a</td></tr>~%"
(car f) (car s) (car th))))))
(defun get-directory-list (path)
(loop for dir in (directory path)
collect (car (last (pathname-directory dir)))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment