anchor.diff:    (:implementation lispworks
       (qlqs-lispworks:open-tcp-stream host port
                                      :direction :io
  +                                   :errorp t
                                      :read-timeout nil
                                      :element-type '(unsigned-byte 8)
                                      :timeout 5))
  +  (:implementation mkcl
  +    (let* ((endpoint (qlqs-mkcl:host-ent-address
  +                      (qlqs-mkcl:get-host-by-name host)))
  +           (socket (make-instance 'qlqs-mkcl:inet-socket
  +                                  :protocol :tcp
  +                                  :type :stream)))
  +      (qlqs-mkcl:socket-connect socket endpoint port)
  +      (qlqs-mkcl:socket-make-stream socket
  +                                   :element-type '(unsigned-byte 8)
  +                                   :input t
  +                                   :output t
  +                                   :buffering :full)))
     (:implementation sbcl
       (let* ((endpoint (qlqs-sbcl:host-ent-address
                         (qlqs-sbcl:get-host-by-name host)))
  
positive.code:         (write-line "!!! Quicklisp has already been set up. !!!")
          (write-string *after-initial-setup-message*)
          t)
        (call-with-quiet-compilation #'initial-install)))
  
  ;;; Try to canonicalize to an absolute pathname; helps on Lisps where
  ;;; *default-pathname-defaults* isn't an absolute pathname at startup
  ;;; (e.g. CCL, CMUCL)
  (setf *default-pathname-defaults* (truename *default-pathname-defaults*))
  
  (write-string *after-load-message*)
  
  
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))))
  
  