Split build-texis function

file.lisp

 (in-package :quickref)
 
+(defun from-homedir (relative-path)
+  (merge-pathnames relative-path (user-homedir-pathname)))
+
 (defun clean-directory (path)
   (dolist (dir (directory (merge-pathnames "*/" (truename path))))
     (sb-ext:delete-directory dir :recursive t))

website.lisp

@@ -114,24 +114,33 @@
     (format file "</body>~%")))
 
 (defun log-texi-error (err texi)
-  (with-open-file (file (format nil "texi-logfiles/~A.logfile" (pathname-name texi))
+  (with-open-file (file (format nil "texi-logfiles/~A.logfile"
+				(pathname-name texi))
 			:direction :output
 			:if-exists :supersede
 			:if-does-not-exist :create)
     (format file err)))
 
-(defun build-texis (path-to-texis texinfo-path)
-  (clean-directory "quickref")
+(defun build-texi (texi makeinfo-path)
+  (let ((out (with-output-to-string (out)
+	       (sb-ext:run-program
+		makeinfo-path
+		(list "--html" (namestring texi)
+		      "-o" (namestring
+			    (from-homedir
+			     (format nil "quickref/~A" (pathname-name texi))))
+		      "--css-ref" "/document.css"
+		      "-c" "TOP_NODE_UP_URL=/"
+		      "--force")
+		:output out))))
+    (when (not (string= out ""))
+      (log-texi-error out texi))))
+
+(defun build-texis (path-to-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)))
     (dolist (texi texis)
-      (let ((out (with-output-to-string (out)
-		   (sb-ext:run-program texinfo-path
-				       (list "--html" (namestring texi)
-					     "-o" (format nil "quickref/~A"
-							  (pathname-name texi))
-					     "--css-ref" "/document.css"
-					     "-c" "TOP_NODE_UP_URL=/"
-					     "--force")
-				       :output out))))
-	(when (not (string= out ""))
-	  (log-texi-error out texi))))))
+      (build-texi texi makeinfo-path))))