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:           version))
  
  (defvar *help-message*
    (format nil "~&~%  ==== quicklisp quickstart install help ====~%~%    ~
                 quicklisp-quickstart:install can take the following ~
                 optional arguments:~%~%      ~
                   :path \"/path/to/installation/\"~%~%      ~
  
negative.code:           (return-from install (load setup-file))))))
    (if (find-package '#:ql)
        (progn
          (write-line "!!! Quicklisp has already been set up !!!")
          (write-string *after-initial-setup-message*)
          t)
        (call-with-quiet-compilation
  