New way of getting texis path

file.lisp

@@ -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)