anchor.diff:  (defvar *enable-cgi-by-type* nil)
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;; native namestrings
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +
  +(defun native-namestring (path)
  +  #+sbcl (sb-ext:native-namestring path)
  +  #-sbcl (namestring path))
  +
  +(defun parse-native-namestring (thing)
  +  #+sbcl (sb-ext:parse-native-namestring thing)
  +  #-sbcl (parse-namestring thing))
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;; directory info
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  
positive.code:                 symbol)
          (format nil "~A B" bytes))))
  
  (defun path-info (path)
    "Information on pathname as plist"
    (let* ((stat (isys:stat (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))))
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
  (define-route route ("*path" :method :get)
    (let* ((relative-path (parse-native-namestring (format nil "~{~A~^/~}" path)))
           (path (merge-pathnames relative-path
                                  *directory*)))
      (cond
  