Commit 0b1b03a6 authored by Dave Cooper's avatar Dave Cooper
Browse files

report crawler output.

parent bbfd4cee
Loading
Loading
Loading
Loading
Loading
+6 −2
Original line number Diff line number Diff line
@@ -14,8 +14,12 @@

(defun make-site ()
  (gendl:start-gendl!)
  (let ((port (gwl::server-port)))
    (gwl:crawl :url-path "/clf-site" :port port :output-root (merge-pathnames ".public/" (glisp:system-home :clf-site)))))
  (let ((port (gwl::server-port))
	(output-root (merge-pathnames ".public/" (glisp:system-home :clf-site))))

    (format t "Crawling clf-site and outputting into ~a...~%" output-root)
    
    (gwl:crawl :url-path "/clf-site" :port port :output-root output-root)))

(make-site)