anchor.diff:    (:implementation ccl
       (qlqs-ccl:make-socket :remote-host host
                            :remote-port port))
  +  (:implementation clasp
  +    (let* ((endpoint (qlqs-clasp:host-ent-address
  +                      (qlqs-clasp:get-host-by-name host)))
  +           (socket (make-instance 'qlqs-clasp:inet-socket
  +                                  :protocol :tcp
  +                                  :type :stream)))
  +      (qlqs-clasp:socket-connect socket endpoint port)
  +      (qlqs-clasp:socket-make-stream socket
  +                                  :element-type '(unsigned-byte 8)
  +                                  :input t
  +                                  :output t
  +                                  :buffering :full)))
     (:implementation clisp
       (qlqs-clisp:socket-connect port host :element-type '(unsigned-byte 8)))
     (:implementation cmucl
  
positive.code:   (:reexport-from #:ccl
                    #:make-socket))
  
  ;;; GNU CLISP
  
  (define-implementation-package :clisp #:qlqs-clisp
  
negative.code:            #:abcl
             #:allegro
             #:ccl
             #:clasp
             #:clisp
             #:cmucl
             #:cormanlisp
  