anchor.diff:             #:*directory*
              #:*directory-index-files*
              #:*autoindex*
  -           #:*autoindex-template*
              #:*enable-cgi-by-type*
              #:*ignore-pathname-p*
              #:default-pathname-info
              #:*pathname-info*
  -           #:hidden-pathname-p))
  +           #:hidden-pathname-p
  +
  +           #:view))
   
   (in-package #:restas.directory-publisher)
   
  
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: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (closure-template:compile-cl-templates
     (merge-pathnames "src/directory-publisher.tmpl"
                      (asdf:system-source-directory '#:restas-directory-publisher))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; module params
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defvar *directory* nil)
  