anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
   (define-route route ("*path" :method :get)
  -  (let* ((relative-path (pathname (format nil "~{~A~^/~}" path)))
  +  (let* ((relative-path (parse-native-namestring (format nil "~{~A~^/~}" path)))
            (path (merge-pathnames relative-path
                                   *directory*)))
       (cond
  
positive.code: (defvar *enable-cgi-by-type* nil)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; directory info
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
negative.code:                 symbol)
          (format nil "~A B" bytes))))
  
  
  (defun path-info (path)
    "Information on pathname as plist"
    (let* ((stat (isys:stat (native-namestring path)))
           (last-modified (local-time:format-timestring nil
                                                        (local-time:unix-to-timestamp (isys:stat-mtime stat))
                                                        :format '((:day 2) #\- :short-month #\- :year #\Space (:hour 2) #\: (:min 2))))
  