anchor.diff:                (concatenate 'string
                              (when scheme
                                (encode-escaped-encoding
  -                              ;; for upper case lisps  ; why ever do this
  -                              #+(or ) (string-downcase (symbol-name scheme))
  -                              (symbol-name scheme)
  +                              ;; for upper case lisps - so long as parsing maps to a symbol
  +                              (string-downcase (symbol-name scheme))
                                 *reserved-characters* escape))
                              (when scheme ":")
                              (when (or host (eq :file scheme)) "//")
  
positive.code:                     :fragment fragment
                      :escaped escape
                      :userinfo userinfo))))
                  
          uri))))
  
  
  
negative.code: 
    (:method (thing &key (class 'uri) (package *package*) (parse-uri-string *parse-uri-string*)
                    (escape (and *escape-uri-string* (escape-p thing))))
      (multiple-value-bind (scheme host port path query fragment userinfo)
                           (funcall parse-uri-string thing)
        (when scheme
  