Commit a52d88f2 authored by Gail Zacharias's avatar Gail Zacharias

use quotes when passing random directory name to shell

parent 945bc9ae
...@@ -104,11 +104,11 @@ written consent from Genworks International.") ...@@ -104,11 +104,11 @@ written consent from Genworks International.")
(with-format (com.genworks.dom-writers:latex (merge-pathnames "pdf/tutorial.tex" *system-home*)) (with-format (com.genworks.dom-writers:latex (merge-pathnames "pdf/tutorial.tex" *system-home*))
(write-the-object object (:base)))) (write-the-object object (:base))))
(run-prog (format nil "cd ~a; ~a -interaction=nonstopmode tutorial.tex" pdf-path pdftex-path)) (run-prog (format nil "cd '~a'; ~a -interaction=nonstopmode tutorial.tex" pdf-path pdftex-path))
(run-prog (format nil "cd ~a; ~a tutorial" pdf-path makeindex-path)) (run-prog (format nil "cd '~a'; ~a tutorial" pdf-path makeindex-path))
(dotimes (n level) (dotimes (n level)
(run-prog (format nil "cd ~a; ~a -interaction=nonstopmode tutorial.tex" (run-prog (format nil "cd '~a'; ~a -interaction=nonstopmode tutorial.tex"
pdf-path pdftex-path))))) pdf-path pdftex-path)))))
(define-object assembly (com.genworks.dom:assembly) (define-object assembly (com.genworks.dom:assembly)
......
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