Don't remove logs everytime a new one is created

website.lisp

@@ -115,7 +115,6 @@
       (format file "</body>~%"))))
 
 (defun log-texi-error (err texi)
-  (clean-or-create (from-homedir "texi-logfiles/"))
   (let ((filepathname (from-homedir
 		       (format nil "texi-logfiles/~A.log"
 			       (pathname-name texi)))))
@@ -142,6 +141,7 @@
 
 (defun build-texis (makeinfo-path)
   (clean-or-create (from-homedir "quickref/"))
+  (clean-or-create (from-homedir "texi-logfiles/"))
   (let ((texis (get-texi-pathnames)))
     (dolist (texi texis)
       (build-texi texi makeinfo-path))))