Commit 73af580f authored by Antoine Martin's avatar Antoine Martin
Browse files

Use UIOP:RUN-PROGRAM in BUILD-TEXI

parent 76e97c68
......@@ -102,19 +102,20 @@ The resulting file is written at ~/quickref/index.html"
(html-path (from-quickref-dir
(format nil "website/~A.html" texi-name))))
(format t "Generating html file for ~A~%" texi-name)
(let ((out (with-output-to-string (out)
(sb-ext:run-program
*makeinfo-path*
(nconc
(list "--html" (namestring texi)
"-o" (namestring html-path)
"--css-ref" "/document.css"
"-c" "TOP_NODE_UP_URL=/"
"--no-split")
(if *log-errors*
'("--force")
nil))
:output out))))
(let ((out (nth-value 2 (uiop:run-program
(nconc
(list *makeinfo-path*
"--html" (namestring texi)
"-o" (namestring html-path)
"--css-ref" "/document.css"
"-c" "TOP_NODE_UP_URL=/"
"--no-split")
(if *log-errors*
'("--force")
nil))
:output :string
:error-output :output
:ignore-error-status t))))
(when (not (string= out ""))
(if *log-errors*
(log-texi-error out texi)
......
Markdown is supported
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