anchor.diff:    (cons t argv))
   
   (defun sbcl-config (argv)
  -  (with-open-file (out (merge-pathnames
  -                        (format nil "src/sbcl-~A/customize-target-features.lisp"
  -                                (getf argv :version)) (homedir))
  +  (with-open-file (out (ensure-directories-exist
  +                        (merge-pathnames
  +                         (format nil "src/sbcl-~A/customize-target-features.lisp"
  +                                 (getf argv :version)) (homedir)))
                          :direction :output :if-exists :supersede :if-does-not-exist :create)
       (format out "~s"
               `(lambda (list)
  
positive.code:            (*standard-output* (make-broadcast-stream out #+sbcl(make-instance 'count-line-stream))))
        (uiop/os:chdir src)
        (format t "~&chdir ~A~%" src)
        (uiop/run-program:run-program cmd :output t :ignore-error-status t)))
    (cons t argv))
  
  (defun sbcl-install (argv)
  
negative.code:                                   out #+sbcl(make-instance 'count-line-stream))))
            (uiop/run-program:run-program
             (list (sh) "-lc" (format nil "cd ~S;~A"
                                      (#+win32 mingw-namestring #-win32 princ-to-string src)
                                      "./install.sh")) :output t)))
        (format *error-output* "done.~%")))
    (cons t argv))
  