Loading build.lisp +9 −15 Original line number Diff line number Diff line Loading @@ -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) Loading @@ -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) Loading
build.lisp +9 −15 Original line number Diff line number Diff line Loading @@ -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) Loading @@ -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)