anchor.diff:  
   (defun make-exact-path-handler (path sub-handler)
     "Make a handler that handles the request with SUB-HANDLER if the
  -file name of the request is exactyl the given PATH."
  +file name of the request is exactly the given PATH."
     (lambda (request)
       (maybe-handle (string= path (script-name request))
         (handle-request sub-handler request))))
  
positive.code:     (let ((mismatch (mismatch (script-name request) prefix :test #'char=)))
        (maybe-handle (or (null mismatch) (>= mismatch (length prefix)))
          (handle-request sub-handler request)))))
  
  (defun make-regex-handler (regex sub-handler)
    "Make a handler that handles the request with SUB-HANDLER if the
  
negative.code: ;;; instance, it may not work on windows beacuse of \ vs /. See the
  ;;; old create-folder-dispatcher-and-handler to see if there's any
  ;;; goodness that needs to be brought over.
  (defun make-static-file-handler (document-root &optional uri-prefix)
    "Make a handler that maps the requested URI to a file under
  DOCUMENT-ROOT and serves it if it exists. Does a basic sanity check to
  dissalow requests for things like ../../../etc/passwd. Also maps
  directory names to index.html in that directory. If URI-PREFIX is
  supplied, it will strip that from the URI before mapping it to a
  file."
    (lambda (request)
      (let ((script-name (url-decode (script-name request))))
        (unless (safe-filename-p script-name)
          (abort-request-handler request +http-forbidden+))
        (let ((file (resolve-file (enough-url script-name uri-prefix) document-root)))
          (serve-file request file)))))
  
  (defun safe-filename-p (script-name)
    "Verify that a script-name, translated to a file doesn't contain any
  