anchor.diff:  (defpackage #:quicklisp-quickstart
     (:use #:cl #:qlqs-impl #:qlqs-impl-util #:qlqs-http #:qlqs-minitar)
     (:export #:install
  +           #:help
              #:*proxy-url*
              #:*asdf-url*
              #:*quicklisp-tar-url*
              #:*setup-url*
  +           #:*help-message*
              #:*after-load-message*
              #:*after-initial-setup-message*))
   
  
positive.code:   (load (qmerge "setup.lisp"))
    (write-string *after-initial-setup-message*)
    (finish-output))
  
  (defun install (&key ((:path *home*) *home*)
                  ((:proxy *proxy-url*) *proxy-url*))
  
negative.code: (defvar *asdf-url* "http://beta.quicklisp.org/quickstart/asdf.lisp")
  (defvar *quicklisp-tar-url* "http://beta.quicklisp.org/quickstart/quicklisp.tar")
  (defvar *setup-url* "http://beta.quicklisp.org/quickstart/setup.lisp")
  (defvar *help-message*
    (format nil "~&~%  ==== quicklisp quickstart install help ====~%~%    ~
                 quicklisp-quickstart:install can take the following ~
                 optional arguments:~%~%      ~
                   :directory \"/path/to/installation/\"~%~%      ~
                   :proxy \"http://your.proxy:port/\"~%~%"))
  (defvar *after-load-message*
    (format nil "~&~%  ==== quicklisp quickstart loaded ====~%~%    ~
                 To continue with installation, evaluate: (quicklisp-quickstart:install)~%~%    ~
                 For installation options, evaluate: (quicklisp-quickstart:help)~%~%"))
  
  (defvar *after-initial-setup-message*
    (with-output-to-string (*standard-output*)
  