Commit bbd9076e authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed system-home in initialize.lisp for now.

parent 165ceb84
Loading
Loading
Loading
Loading
Loading
+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)