anchor.diff:  (defclass rootfs-test-goal (test-goal)
     ...)
   
  +
  +;;; % Test Recording
   
   (defclass test-record (test-utility)
     ;; NOTE: TEST-RECORD was defined primarily for application in
  
positive.code:    ))
  
  (defmethod print-label ((goal lisp-test-goal) (stream stream))
    (format stream "~<~A =?=> ~A~> (~A)"
            (test-parameters goal)
            (test-expect-state goal)
            (function-name (test-predicate goal))))
  
negative.code:   ((test
      :initarg :test
      :accessor test-utility-test)))
  
  ;; %% Goals for Test Definition
  
  (defclass test-goal (test-utility)
    ;; effectively, a test goal encapsulates a set of parameters for a
  