anchor.diff:  
   ;;"https://common-lisp.net/project/armedbear/releases/1.3.3/abcl-bin-1.3.3.tar.gz"
   
  +(defun abcl-bin-impl ()
  +  (merge-pathnames (format nil "impls/~A/~A/abcl-bin/" (uname-m) (uname)) (homedir)))
  +
   (defun abcl-bin-argv-parse (argv)
     (set-opt "as" (getf argv :version))
     (when (position "--without-install" (getf argv :argv) :test 'equal)
  
positive.code:   (format t "~%Extracting archive:~A~%" (get-opt "download.archive"))
    (expand 
     (get-opt "download.archive")
     (ensure-directories-exist (merge-pathnames (format nil "impls/~A/~A/abcl-bin/" (uname-m) (uname)) (homedir))))
    (let ((path (merge-pathnames (format nil "impls/~A/~A/abcl-bin/~A/" (uname-m) (uname) (get-opt "as")) (homedir))))
      (and (probe-file path)
           (uiop/filesystem:delete-directory-tree 
            path :validate t)))
    (ql-impl-util:rename-directory
     (merge-pathnames (format nil "impls/~A/~A/abcl-bin/abcl-bin-~A/" (uname-m) (uname) (getf argv :version)) (homedir))
     (merge-pathnames (format nil "impls/~A/~A/abcl-bin/~A/" (uname-m) (uname) (get-opt "as")) (homedir)))
    (cons t argv))
  
  (push `("abcl-bin" . (abcl-bin-version
                        abcl-bin-argv-parse
                        abcl-bin-download
                        abcl-bin-expand
                        setup))
        *install-cmds*)
  
negative.code:   (set-opt "download.archive" (let ((pos (position #\/ (get-opt "download.uri") :from-end t)))
                                  (when pos 
                                    (merge-pathnames (format nil "archives/~A" (subseq (get-opt "download.uri") (1+ pos))) (homedir)))))
    (set-opt "prefix" (abcl-bin-impl))
    (set-opt "src" (merge-pathnames (format nil "src/~A-~A/" (getf argv :target) (getf argv :version)) (homedir)))
    (cons t argv))
  
  