diff --git a/main.lisp b/main.lisp index bf5bbe47c770280fc6ca842308642667c861b7cd..7ec3ddfd72c992a10e647688069e962d839d805f 100644 --- a/main.lisp +++ b/main.lisp @@ -8,13 +8,12 @@ (member d processed-pages :test #'string=)) dependencies))) -(defun make-site (&optional output-dir) - (let ((*output-dir* (or output-dir *output-dir*)) - (pages (populate-pages))) - (ensure-directories-exist *OUTPUT-DIR*) - (format t "Generating site in ~A.~%" *output-dir*) - (process-static *static-dir* *output-dir*) - (process-static (merge-pathnames #P"static/" *layout-dir*) *output-dir*) +(defun make-site (&optional (output-dir *output-dir*)) + (let ((pages (populate-pages))) + (ensure-directories-exist output-dir) + (format t "Generating site in ~A.~%" output-dir) + (process-static *static-dir* output-dir) + (process-static (merge-pathnames #P"static/" *layout-dir*) output-dir) (loop with processed-pages = '() with delayed-pages = '()