anchor.diff:    ;; (loop for (flag . value) on flags by #'cddr
     ;;       when (consp value)
     ;;       do ())
  -  )
  +  flags)
   
   (defun assembled-file (pathname)
     (make-pathname :type "o" :defaults pathname))
  
positive.code:     (T (princ-to-string thing))))
  
  (defmacro shellify (&body options)
    `(format NIL ,(format NIL "~{~~@[~a~~]~^ ~}" (mapcar #'first options))
             ,@(apply #'append (mapcar #'rest options))))
  
  (defmacro with-cleaned-files ((files form) &body body)
  
negative.code:             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))))
  