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 @@
(:export :print-primary-systems
(in-package :quickref)
......@@ -64,3 +65,7 @@
(format file
(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