anchor.diff:      (download "https://common-lisp.net/project/ecl/files/" file)
       (with-output-to-string (*standard-output*)
         (funcall (intern (string :quickload) :ql)
  -	       :plump))
  +               :plump))
       (let* ((the-newest "current-release.tgz")
              (tgz-list
               (sort
  
positive.code:     (let* ((src (namestring (get-opt "src")))
             (cmd (format nil "make"))
             (*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))
  
  
negative.code:     (format t "~&prefix: ~s~%" impl-path)
      (ensure-directories-exist impl-path)
      (ensure-directories-exist log-path)
      (ros.util:chdir src)
      (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
  