run all make files

make.lisp

#!/usr/bin/env clisp
(setf *bookpaths* '(
                    ("platform/architecture" "book") 
                    ("platform/requirements" "book")
                    ("zszj/userGuide/agents" "book")))

(setf *root* (namestring (cd)))

(defun make-books (paths)
  (if (null paths)
      'done
      (let ((path (car (car paths)))
	    (file (nth 1 (car paths))))
        (progn
          (run-shell-command (concatenate 'string 
					  "export DOC_PATH=" path ";"
					  "export FILE=" file ";"
					  "make install"))
          (make-books (cdr paths))))))