anchor.diff:  (definterface host-address (host)
     (:implementation t
       host)
  +  (:implementation mkcl
  +    (qlqs-mkcl:host-ent-address (qlqs-mkcl:get-host-by-name host)))
     (:implementation sbcl
       (qlqs-sbcl:host-ent-address (qlqs-sbcl:get-host-by-name host))))
   
  
positive.code:   (:implementation lispworks
      (qlqs-lispworks:open-tcp-stream host port
                                     :direction :io
                                     :read-timeout nil
                                     :element-type '(unsigned-byte 8)
                                     :timeout 5))
    (:implementation sbcl
      (let* ((endpoint (qlqs-sbcl:host-ent-address
                        (qlqs-sbcl:get-host-by-name host)))
  
negative.code:                                   (format nil ":~D" port)))
        (add-line "Connection: close")
        ;; FIXME: get this version string from somewhere else.
        (add-line "User-Agent: quicklisp-bootstrap/"
                  qlqs-info:*version*)
        (add-newline sink)
        (sink-buffer sink))))
  
  