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: 	 (setf (connected-p usocket) t)
  	 usocket)))))
  
  (defun socket-listen (host port
                             &key reuseaddress
                             (reuse-address nil reuse-address-supplied-p)
                             (backlog 5)
                             (element-type 'character))
  
negative.code:     (ecase protocol
        (:stream
         (let ((mcl-sock
  	      (openmcl-socket:make-socket :remote-host host
  					  :remote-port port
  					  :local-host local-host
  					  :local-port local-port
  					  :format (to-format element-type protocol)
  					  :external-format ccl:*default-external-format*
  