anchor.diff:    (aref (parse-url) "path"))
   
   (defun request-path-components ()
  -  (subseq (path-pathlist (request-uri)) *request-path-offset*))
  +  (subseq (remove-if #'empty-string? (path-pathlist (request-uri))) *request-path-offset*))
  
positive.code: ;;;;; tré – Copyright (c) 2012–2014 Sven Michael Klose <pixel@copei.de>
  
  (defvar *request-path-offset* nil)
  (defvar *base-url* nil)
  
  (defun parse-request-path ()
    (with (path  (%%%href *_SERVER* "SCRIPT_NAME")
           comp  (path-pathlist path)
           ofs   (? comp
                    (-- (length comp))
                    0))
  
negative.code: 
  (parse-request-path)
  
  (defun request-uri () 
    (aref *_SERVER* "REQUEST_URI"))
  
  (dont-obfuscate parse_url)
  
  (defun parse-url ()
    (parse_url (request-uri)))
  