anchor.diff:                                    out #+sbcl(make-instance 'count-line-stream))))
             (uiop/run-program:run-program
              (list (sh) "-lc" (format nil "cd ~S;~A"
  -                                    (#+win32 mingw-namestring #-win32 identity src)
  +                                    (#+win32 mingw-namestring #-win32 princ-to-string src)
                                       "./install.sh")) :output t)))
         (format *error-output* "done.~%")))
     (cons t argv))
  
positive.code:   (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))
                         :direction :output :if-exists :supersede :if-does-not-exist :create)
      (format out "~s"
              `(lambda (list)
  
negative.code:     (let* ((src (get-opt "src"))
             (compiler (format nil "~A lisp=~A --no-rc run -- --disable-debugger" *ros-path* (get-opt "sbcl.compiler")))
             (cmd (list (sh) "-lc" (format nil "cd ~S;~A ~A ~A"
                                           (#+win32 mingw-namestring #-win32 princ-to-string src)
                                           "./make.sh" (format nil "'--xc-host=~A'"  compiler)
                                           (format nil "'--prefix=~A'"
                                                   (funcall #+win32 (lambda (x)
  