anchor.diff:      (cons (list* "env" "-i" command))
       (string (format NIL "env -i ~a" command)))
     #-unix
  +  command
     command)
   
   (defun find-components (item component &key (key #'identity) (test #'eql))
  
positive.code:   (make-pathname :type "o" :defaults pathname))
  
  (defun archive-file (pathname)
    (make-pathname :type "a"
                   :defaults pathname))
  
  (defun sharedobject-file (pathname)
    (make-pathname :type #+unix "so"
                         #+windows "dll"
                   :defaults pathname))
  
  (defvar *nothing* (make-symbol "NOTHING"))
  (defun merge-options (options &optional defaults)
  
negative.code: |#
  
  (in-package #:org.shirakumo.abcd)
  #+:verbose (require :verbose)
  #+:verbose (setf (v:repl-level) :trace)
  
  (defun ensure-list (thing)
    (if (listp thing)
  