Default to quicklisp's software directory

file.lisp

@@ -16,9 +16,9 @@
   (loop for dir in (directory (all-directories path))
      collect (car (last (pathname-directory dir)))))
 
-(defun all-texis (path)
-  (merge-pathnames "*/*.texi" (truename path)))
+(defun all-texis ()
+  (merge-pathnames "*/*.texi" (quicklisp-software)))
 
-(defun get-texi-pathnames (path)
-  (loop for texi in (directory (all-texis path))
+(defun get-texi-pathnames ()
+  (loop for texi in (directory (all-texis))
        collect texi))

quickref.lisp

@@ -65,5 +65,5 @@
   (ql:update-all-dists :prompt nil)
   (ql:update-client :prompt nil)
   (build-releases)
-  (build-texis (quicklisp-software) makeinfo-path)
+  (build-texis makeinfo-path)
   (build-index))

website.lisp

@@ -137,11 +137,11 @@
     (when (not (string= out ""))
       (log-texi-error out texi))))
 
-(defun build-texis (path-to-texis makeinfo-path)
+(defun build-texis (makeinfo-path)
   (let ((quickref-dir (from-homedir "quickref/")))
     (if (probe-file quickref-dir)
 	(clean-directory quickref-dir)
 	(ensure-directories-exist quickref-dir)))
-  (let ((texis (get-texi-pathnames path-to-texis)))
+  (let ((texis (get-texi-pathnames)))
     (dolist (texi texis)
       (build-texi texi makeinfo-path))))