anchor.diff:                          'sbcl-make
                           'sbcl-install
                           'sbcl-backup-features
  +                        'sbcl-make-archive
                           'sbcl-clean
                           'setup))
         *install-cmds*)
  
positive.code:                 (set-difference origin opts)))))
    (cons t argv))
  
  (defun sbcl-clean (argv)
    (format t "~&Cleaning~%")
    (let ((src (get-opt "src")))
  
negative.code:                                    (getf argv :version)
                                     (nth (1+ pos) (getf argv :argv))))
                        (getf argv :version))))
    (when (position "--archive" (getf argv :argv) :test 'equal)
      (set-opt "archive" "t"))
    (when (position "--without-install" (getf argv :argv) :test 'equal)
      (set-opt "without-install" t))
    (set-opt "download.uri" (format nil "~@{~A~}" "https://github.com/sbcl/sbcl/archive/sbcl-"
  