anchor.diff:         (let* ((mcl-sock
                  (openmcl-socket:make-socket :address-family :internet
                                              :type :datagram
  -                                           :local-host (when local-host (host-to-hostname local-host))
  +                                           :local-host local-port
                                              :local-port local-port
   					   :input-timeout timeout
   					   :format (to-format element-type protocol)
  
positive.code:     (ecase protocol
        (:stream
         (let ((mcl-sock
  	      (openmcl-socket:make-socket :remote-host (host-to-hostname host)
  					  :remote-port port
  					  :local-host (when local-host (host-to-hostname local-host))
  					  :local-port local-port
  					  :format (to-format element-type protocol)
  					  :external-format ccl:*default-external-format*
  
negative.code: 	 :text)
  	(t :binary)))
  
  #+ccl-1.11-sockets
  (defun socket-connect (host port &key (protocol :stream) element-type
                                     timeout deadline nodelay
                                     local-host local-port)
    (when (eq nodelay :if-supported)
      (setf nodelay t))
    (with-mapped-conditions ()
      (let* ((remote (when (and host port)
                       (openmcl-socket:resolve-address :host host :port port :socket-type protocol)))
             (mcl-sock (openmcl-socket:make-socket :type protocol
                                                   :address-family (openmcl-socket:socket-address-family remote)
                                                   :remote-address remote
                                                   :local-host local-host
                                                   :local-port local-port
                                                   :format (to-format element-type protocol)
                                                   :external-format ccl:*default-external-format*
                                                   :deadline deadline
                                                   :nodelay nodelay
                                                   :connect-timeout timeout
                                                   :input-timeout timeout)))
        (ecase protocol
          (:stream
           (make-stream-socket :stream mcl-sock :socket mcl-sock))
          (:datagram
           (make-datagram-socket mcl-sock :connected-p (and remote t)))))))
  
  #-ccl-1.11-sockets
  (defun socket-connect (host port &key (protocol :stream) element-type
  		       timeout deadline nodelay
                         local-host local-port)
  