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