anchor.diff:    (:export #:install
              #:help
              #:*proxy-url*
  -           #:*proxy-user*
  -           #:*proxy-pass*
              #:*asdf-url*
              #:*quicklisp-tar-url*
              #:*setup-url*
  
positive.code:   (subseq (storage sink) 0))
  
  (defvar *proxy-url* nil)
  (defvar *proxy-user* nil)
  (defvar *proxy-pass* nil)
  
  (defun full-proxy-path (host port path)
    (format nil "~:[http~;https~]://~A~:[:~D~;~*~]~A"
  
negative.code:                (case char
                   (#\/
                    (setf (port url) nil)
                    (incf pos)
                    (mark)
                    #'in-path)
                   (t
                    (if proxy-auth
                        #'in-proxy-user
                        #'in-host))))
               (in-proxy-user (char)
                 (case char
                   (:end
                    (error "~S is not a valid PROXY URL" urlstring))
                   (#\:
                    (setf (proxy-user url) (save))
                    (incf pos)
                    (mark)
                    #'in-proxy-pass)
                   (t
                    #'in-proxy-user)))
               (in-proxy-pass (char)
                 (case char
                   (:end
                    (error "~S is not a valid PROXY URL" urlstring))
                   (#\@
                    (setf (proxy-pass url) (save))
                    (incf pos)
                    (mark)
                    #'in-host)
                   (t
                    #'in-proxy-pass)))
               (in-host (char)
                 (case char
                   ((#\/ :end)
  