anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (eval-when (:compile-toplevel :load-toplevel :execute)
  -  (closure-template:compile-template :common-lisp-backend
  -                                     (merge-pathnames "src/directory-publisher.tmpl"
  -                                                      (asdf:component-pathname (asdf:find-system '#:restas-directory-publisher)))))
  -
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -;;;; Plugin variables
  +  (closure-template:compile-cl-templates
  +   (merge-pathnames "src/directory-publisher.tmpl"
  +                    (asdf:system-source-directory '#:restas-directory-publisher))))
  +
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;; module params
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (defvar *directory* nil)
  
positive.code:                                                        (finding index-path
                                                                  such-that (fad:file-exists-p index-path))))
                                                 (if *autoindex*
                                                     (funcall *autoindex-template*
                                                              (directory-autoindex-info path relative-path))
                                                     hunchentoot:+http-not-found+)))
        ((not (fad:file-exists-p path)) hunchentoot:+http-not-found+)
        #+sbcl ((find (pathname-type path) 
                      *enable-cgi-by-type* 
                      :test #'string=) (hunchentoot-cgi::handle-cgi-script path))
        (t path))))
  
negative.code: (defvar *directory-index-files* '("index.html" "index.htm"))
  
  (defvar *autoindex* t)
  
  (defvar *enable-cgi-by-type* nil)
  
  