Commit 000d53d1 authored by Dave Cooper's avatar Dave Cooper
Browse files

see if it builds now

parent bc7e71cc
Loading
Loading
Loading
Loading
Loading
+9 −15
Original line number Diff line number Diff line
@@ -4,17 +4,9 @@
;; load and/or install quicklisp in dcooper
;;


(unless (find-package :quicklisp)
  (if (probe-file "/home/dcooper/quicklisp/setup.lisp")
      (load "/home/dcooper/quicklisp/setup.lisp")
      (progn
        (sb-ext:run-program "/usr/bin/curl" (list "https://beta.quicklisp.org/quicklisp.lisp"
                                                  "-o"
                                                  "/home/dcooper/quicklisp.lisp"))
        (load "/home/dcooper/quicklisp.lisp")
        (funcall (read-from-string "quicklisp-quickstart:install"))
        (probe-file "./quicklisp/setup.lisp"))))
(let ((homedir (or (probe-file "/home/dcooper/")
                   (probe-file "/home/dcooper8/"))))
  (load (merge-pathnames "quicklisp/setup.lisp" homedir)))

(pushnew (make-pathname :defaults *load-truename* :name nil :type nil)
	 quicklisp:*local-project-directories* :test #'equalp)
@@ -29,20 +21,22 @@

(ql:quickload :clf-site)

(gendl:start-gendl!)

(in-package :gwl-user)

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

  (let ((output-root (merge-pathnames "output/" (glisp:system-home :clf-site))))

    (format t "~&~%Crawling clf-site and outputting into ~a~%~%" output-root)

    (let ((current *developing?*))
      (setq *developing?* nil)
      (gwl:crawl :url-path "/clf" :port port :output-root output-root)
      (gwl:crawl :url-path "/clf" :output-root output-root)
      (setq *developing?* current))))
(clf-site::initialize!)
(sleep 1)
(make-site)