anchor.diff:    t)
   
   (defun install (&key ((:path *home*) *home*)
  -                ((:proxy *proxy-url*) *proxy-url*))
  +                     ((:proxy *proxy-url*) *proxy-url*)
  +                     ((:user *proxy-user*) *proxy-user*)
  +                     ((:pass *proxy-pass*) *proxy-pass*))
     (setf *home* (merge-pathnames *home*))
     (let ((setup-file (qmerge "setup.lisp")))
       (when (probe-file setup-file)
  
positive.code:                            (= port 443))
                         port
                         path))
  
  (defun make-request-buffer (host port path &key (method "GET"))
    (setf method (string method))
  
negative.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"
  