anchor.diff:                                    (merge-pathnames (format nil "archives/~A" (subseq (get-opt "download.uri") (1+ pos))) (homedir)))))
     (set-opt "prefix" (merge-pathnames (format nil "impls/~A/~A/~A/~A/" (uname-m) (uname) (getf argv :target) (get-opt "as")) (homedir)))
     (set-opt "src" (merge-pathnames (format nil "src/~A-~A/" (getf argv :target) (getf argv :version)) (homedir)))
  +  (labels ((with (opt default)
  +             (set-opt opt
  +                      (cond ((position (format nil "--with-~A" opt) (getf argv :argv) :test 'equal) t)
  +                            ((position (format nil "--without-~A" opt) (getf argv :argv) :test 'equal) nil)
  +                            (t default)))))
  +    (with "thread" t)
  +    (with "core-compression" t)
  +    (with "ldb" nil)
  +    (with "xref-for-internals" nil))
     (cons t argv))
   
   (defun sbcl-start (argv)
  
positive.code:             'start
              'sbcl-download
              'sbcl-expand
              'sbcl-make
              'sbcl-install
              'setup))
  
negative.code:     (unsetenv "SBCL_HOME")
      (setenv "INSTALL_ROOT" (format nil "~A" install-root))
      (with-open-file (out log-path :direction :output :if-exists :append :if-does-not-exist :create)
        (format out "~&--~&~A~%" (date))
        (let ((*standard-output* (make-broadcast-stream
                                  out #+sbcl(make-instance 'count-line-stream))))
          (uiop/run-program:run-program "sh install.sh" :output t)))
  