Commit 4e71db2a authored by Antoine Martin's avatar Antoine Martin
Browse files

Move log-texi-error to file.lisp

parent 3f7556c4
......@@ -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))))
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment