Loading source/initialize.lisp +3 −0 Original line number Diff line number Diff line (in-package :clf-site) #+nil (defparameter *site-home* (let ((source-pathname (glisp:source-pathname))) (probe-file (make-pathname :name nil :type nil :defaults (merge-pathnames "../" source-pathname))))) (defparameter *site-home* (glisp:system-home :clf-site)) (defun initialize! () (publish-shared :path "/clf-site" :object-type 'index-page) Loading Loading
source/initialize.lisp +3 −0 Original line number Diff line number Diff line (in-package :clf-site) #+nil (defparameter *site-home* (let ((source-pathname (glisp:source-pathname))) (probe-file (make-pathname :name nil :type nil :defaults (merge-pathnames "../" source-pathname))))) (defparameter *site-home* (glisp:system-home :clf-site)) (defun initialize! () (publish-shared :path "/clf-site" :object-type 'index-page) Loading