anchor.diff:                    #:socket-connect
                     #:socket-make-stream))
   
  +;;; MKCL
  +
  +(define-implementation-package :mkcl #:qlqs-mkcl
  +  (:class mkcl)
  +  (:documentation
  +   "ManKai Common Lisp - http://common-lisp.net/project/mkcl/")
  +  (:prep
  +   (require 'sockets))
  +  (:intern #:host-network-address)
  +  (:reexport-from #:sb-bsd-sockets
  +                  #:get-host-by-name
  +                  #:inet-socket
  +                  #:host-ent-address
  +                  #:socket-connect
  +                  #:socket-make-stream))
  +
   ;;;
   ;;; Utility function
   ;;;
  
positive.code:                                    :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: (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))))
  
  