anchor.diff:        (if (plist-contains-p test-result :compare-fun)
           (format NIL "compare-fun: ~S" (getf test-result :compare-fun)))))))
   
  -; start-all-lines-with-whitespace: string -> string
  -; purpose: produces a string equal to the initial string, but with each line beginning with
  -; at least 2 spaces before the first non-whitespace character. Additional spaces are prefixed
  -; to each line as necessary to ensure that there are at least 2 spaces before the first non-
  -; whitespace character on each line. Lines containing no non-whitespace characters still get
  -; the whitespace prefix.
   (defun start-all-lines-with-whitespace (input-text &key (always-add-whitespace NIL))
  +  "start-all-lines-with-whitespace: string -> string
  +purpose: produces a string equal to the initial string, but with each line beginning with at least 2 spaces before the first non-whitespace character. Additional spaces are prefixed to each line as necessary to ensure that there are at least 2 spaces before the first non- whitespace character on each line. Lines containing no non-whitespace characters still get the whitespace prefix."
     (format NIL "~{~a~^~%~}"
   	  (map 'list (lambda (line)
   		       (start-line-with-whitespace line 2 :always-add-whitespace always-add-whitespace)) (split-sequence:split-sequence #\Newline input-text))))
     
  -; start-line-with-whitespace: string nat -> string
  -; purpose: produces a string equal to the input string, with at least whitespace-quantity
  -; whitespace characters preceding the first non-whitespace character. Additional spaces are
  -; prefixed if necessary to ensure that there are at least whitespace-quantity leading space
  -; characters in the string. Lines containing no non-whitespace characters still get the
  -; whitespace prefix.
   (defun start-line-with-whitespace (input-text whitespace-quantity &key (always-add-whitespace NIL))
  +  "start-line-with-whitespace: string nat -> string
  +purpose: produces a string equal to the input string, with at least whitespace-quantity whitespace characters preceding the first non-whitespace character. Additional spaces are prefixed if necessary to ensure that there are at least whitespace-quantity leading space characters in the string. Lines containing no non-whitespace characters still get the whitespace prefix."
     (cond
       ((<= whitespace-quantity 0) input-text)
       ((and
  
positive.code: 						     (- whitespace-quantity 1)
  						     :always-add-whitespace always-add-whitespace)))))
  
  ; starts-with-whitespace-p: string -> bool
  ; purpose: produces T if the input string starts with a space, otherwise produces NIL
  (defun starts-with-whitespace-p (input-text)
    (cond
      ((eql (length input-text) 0) NIL)
      ((char= (elt input-text 0) #\Space) T)
      (T NIL)))
  
  ; plist-contains-p: plist any -> bool
  ; purpose: produces T if the input plist contains a key matching the second parameter, otherwise produces NIL
  (defun plist-contains-p (input-plist desired-key)
    (loop for plist-key in input-plist by #'cddr do (when (eql plist-key desired-key) (return-from plist-contains-p T)))
    NIL)
  
  ; next-report-index: -> nat
  ; purpose: produces the next unusued test number and increments the global counter.
  (defvar *report-test-index* 0)
  (defun next-test-index ()
    (setf *report-test-index* (+ 1 *report-test-index*))
    *report-test-index*)
  
  ; print-test-plan: -> string
  ; purpose: prints and returns the test plan string in the TAP format.
  (defun print-test-plan ()
    (let ((result (get-test-plan)))
      (format T result)
      result))
  
  ; get-test-plan: -> string
  ; purpose: returns the test plan string in the TAP format.
  (defun get-test-plan ()
    (format NIL "1..~a" *report-test-index*))
  
negative.code:       (if (not (equalp diagnostic-text ""))
  	  (format NIL "~%~a" (start-all-lines-with-whitespace diagnostic-text :always-add-whitespace T)) ""))))
  
  (defun get-diagnostic-text (test-result)
    "get-diagnostic-text: structured-test -> string
  purpose: produces a string containing the diagnostic text, in the TAP format, for the test that is passed in."
    (format NIL "~{~a~^~&~}"
      (remove NIL (list
        (if (plist-contains-p test-result :test-value)
  