anchor.diff:      (T (princ-to-string thing))))
   
   (defmacro shellify (&body options)
  -  `(format NIL ,(format NIL "~{~~@[~a~~]~^ ~}" (mapcar #'first options))
  +  `(format NIL ,(format NIL "~{~~@[~a ~~]~}" (mapcar #'first options))
              ,@(apply #'append (mapcar #'rest options))))
   
   (defmacro with-cleaned-files ((files form) &body body)
  
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))
  