anchor.diff:  (definterface open-connection (host port)
     (:implementation t
       (declare (ignorable host port))
  -    (error "Sorry, quicklisp in implementation ~S is not supported yet."
  +    (error "Sorry, Quicklisp in implementation ~S is not supported yet."
              (lisp-implementation-type)))
     (:implementation allegro
       (qlqs-allegro:make-socket :remote-host host
  
positive.code: (defpackage #:qlqs-info
    (:export #:*version*))
  
  (defvar qlqs-info:*version* "2015-01-28")
  
  (defpackage #:qlqs-impl
    (:use #:cl)
  
negative.code:                  :dist-version <version>~%~%"))
  
  (defvar *after-load-message*
    (format nil "~&~%  ==== QUICKLISP QUICKSTART ~A LOADED ====~%~%    ~
                 To continue with installation, evaluate:  (quicklisp-quickstart:install)~%~%    ~
                 For other installation options, evaluate: (quicklisp-quickstart:help)~%~%"
            qlqs-info:*version*))
  
  (defvar *after-initial-setup-message*
    (with-output-to-string (*standard-output*)
      (format t "~&~%  ==== QUICKLISP INSTALLED ====~%~%")
      (format t "    To load Quicklisp every time you start Lisp, evaluate: (ql:add-to-init-file)~%~%")
      (format t "    To load a system, use: (ql:quickload \"system-name\")~%~%")
      (format t "    To find systems, use: (ql:system-apropos \"term\")~%~%")
      (format t "    For more information, see http://www.quicklisp.org/beta/~%~%")))
  
  (defun initial-install (&key (client-url *client-info-url*) dist-url)
  