Commit 0e41a5b1 authored by Antoine Martin's avatar Antoine Martin
Browse files

New way of getting texis path

parent db48e5a7
......@@ -30,17 +30,10 @@
nil
(list (pathname-name file)))))
(defun all-texis ()
(merge-pathnames "*/*.texi" (quicklisp-software)))
(defun get-texi-pathnames ()
(loop for texi in (directory (all-texis))
collect texi))
(defun quicklisp-software ()
(namestring
(merge-pathnames "software/"
(ql-dist:base-directory (ql-dist:dist "quicklisp")))))
(loop for pathname in (directory
(all-files (from-quickref-dir "texis/")))
collect pathname))
(defun clean-or-create (directory)
(if (probe-file directory)
......
Markdown is supported
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