anchor.diff:              while parent
               do (push-component parent)))
       (format NIL "~{~a~^/~}" comps)))
  +
  +(defun component-output-pathname (component)
  +  (funcall asdf::*output-translation-function*
  +           (asdf:component-pathname component)))
  +
  +(defun minimal-shell-namestring (pathname)
  +  (uiop:native-namestring
  +   (uiop:enough-pathname
  +    pathname (uiop:getcwd))))
  
positive.code: 
  (defun merge-flags (flags &optional defaults)
    ;; Merge inexistent
    (loop for (flag . value) on defaults by #'cddr
          unless (getf flags flag)
          do (push value flags)
             (push flag flags))
  
negative.code:   ;; (loop for (flag . value) on flags by #'cddr
    ;;       when (consp value)
    ;;       do ())
    flags)
  
  (defun assembled-file (pathname)
    (make-pathname :type "o" :defaults pathname))
  