anchor.diff:            version))
   
   (defvar *help-message*
  -  (format nil "~&~%  ==== quicklisp quickstart install help ====~%~%    ~
  +  (format nil "~&~%  ==== QUICKLISP QUICKSTART INSTALL HELP ====~%~%    ~
                  quicklisp-quickstart:install can take the following ~
                  optional arguments:~%~%      ~
                    :path \"/path/to/installation/\"~%~%      ~
  
positive.code: (defpackage #:qlqs-info
    (:export #:*version*))
  
  (defvar qlqs-info:*version* "2015-01-28")
  
  (defpackage #:qlqs-impl
    (:use #:cl)
  
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
  