anchor.diff:                                     :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: (definterface host-address (host)
    (:implementation t
      host)
    (:implementation sbcl
      (qlqs-sbcl:host-ent-address (qlqs-sbcl:get-host-by-name host))))
  
  
negative.code:                   #: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
  ;;;
  