Move log-texi-error to file.lisp

file.lisp

@@ -32,3 +32,13 @@
   (if (probe-file directory)
       (clean-directory directory)
       (ensure-directories-exist directory)))
+
+(defun log-texi-error (err texi)
+  (let ((filepathname (from-homedir
+		       (format nil "texi-logfiles/~A.log"
+			       (pathname-name texi)))))
+    (with-open-file (file filepathname
+			  :direction :output
+			  :if-exists :supersede
+			  :if-does-not-exist :create)
+      (format file err))))

website.lisp

@@ -116,16 +116,6 @@
 	(print-columns dir-list length file))
       (format file "</body>~%"))))
 
-(defun log-texi-error (err texi)
-  (let ((filepathname (from-homedir
-		       (format nil "texi-logfiles/~A.log"
-			       (pathname-name texi)))))
-    (with-open-file (file filepathname
-			  :direction :output
-			  :if-exists :supersede
-			  :if-does-not-exist :create)
-      (format file err))))
-
 (defun build-texi (texi makeinfo-path &key (log-errors t))
   (let ((out (with-output-to-string (out)
 	       (sb-ext:run-program