Log failed builds of texis

website.lisp

@@ -113,15 +113,25 @@
       (print-columns dir-list length file))
     (format file "</body>~%")))
 
+(defun log-texi-error (err texi)
+  (with-open-file (file (format nil "texi-logfiles/~A.logfile" (pathname-name texi))
+			:direction :input
+			:if-exists :supersede
+			:if-does-not-exist :create)
+    (format file err)))
+
 (defun build-texis (path-to-texis texinfo-path)
   (clean-directory "quickref")
   (let ((texis (get-texi-pathnames path-to-texis)))
     (dolist (texi texis)
-      (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 *standard-output*))))
+      (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))))))