anchor.diff:    "File or directory name"
     (if (fad:directory-pathname-p path)
         (car (last (pathname-directory path)))
  -      (file-namestring path)))
  +      (let ((name (pathname-name path))
  +            (type (pathname-type path)))
  +        (if type
  +            (format nil "~A.~A" name type)
  +            name))))
   
   (defun hidden-file-p (path)
     (char= (char (path-last-name path)
  
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))))
  