anchor.diff:    (subseq (storage sink) 0))
   
   (defvar *proxy-url* nil)
  -(defvar *proxy* nil
  -  "instance of proxy-url")
  -(defvar *proxy-server* nil
  -  "proxy server address and port")
  -(defvar *proxy-user* nil
  -  "set proxy username if authorization is required to use the proxy")
  -(defvar *proxy-pass* nil
  -  "set proxy password if authorization is required to use the proxy")
   
   (defun full-proxy-path (host port path)
     (format nil "~:[http~;https~]://~A~:[:~D~;~*~]~A"
  
positive.code:          (setf state (funcall state (aref urlstring pos)))
           (incf pos))))))
  
  (defun url (thing)
    (if (stringp thing)
        (parse-urlstring thing)
        thing))
  
  (defgeneric request-buffer (method url)
  
negative.code: (defun initial-install (&key (client-url *client-info-url*) dist-url)
    (setf *quickstart-parameters*
          (list :proxy-url *proxy-url*
                :initial-dist-url dist-url))
    (ensure-directories-exist (qmerge "tmp/"))
    (let ((client-info (fetch-client-info client-url))
  