anchor.diff:                                    (format nil ":~D" port)))
         (add-line "Connection: close")
         ;; FIXME: get this version string from somewhere else.
  -      (add-line "User-Agent: quicklisp-bootstrap/2013121600")
  +      (add-line "User-Agent: quicklisp-bootstrap/"
  +                qlqs-info:*version*)
         (add-newline sink)
         (sink-buffer sink))))
   
  
positive.code:            #:abcl
             #:allegro
             #:ccl
             #:clisp
             #:cmucl
             #:cormanlisp
  
negative.code:   (:reexport-from #:ccl
                    #:make-socket))
  
  
  ;;; CLASP
  
  (define-implementation-package :clasp #:qlqs-clasp
    (:documentation "CLASP - http://github.com/drmeister/clasp")
    (:class clasp)
    (:prep
     (require 'sockets))
    (:intern #:host-network-address)
    (:reexport-from #:sb-bsd-sockets
                    #:get-host-by-name
                    #:host-ent-address
                    #:socket-connect
                    #:socket-make-stream
                    #:inet-socket))
  
  
  ;;; GNU CLISP
  
  (define-implementation-package :clisp #:qlqs-clisp
  