anchor.diff:    (:use "COMMON-LISP"
           "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM")
     (:export "*DEBUG-ON-ERROR*" "WITH-DEBUGGER-ON-ERROR"
  -           "DEFINE-TEST" "TEST" "ASSERT-TRUE" "EXPECT-CONDITION"
  +           "DEFINE-TEST" "TEST" "ASSERT-TRUE" "ASSERT-FALSE" "EXPECT-CONDITION"
   
              "*VERBOSE-TALLY*" "*VERBOSE-PROGRESS*")
     (:documentation "
  
positive.code:            (progress-failure 'equivalent ',expression 't ,vresult
                               (list ,@(mapcan (lambda (place) `(',place ,place)) places))
                               ,format-control ,@format-arguments)))))
  
  
  (defmacro expect-condition (condition-class expression)
  
negative.code: 
      AGPL3
      
      Copyright Pascal J. Bourguignon 2010 - 2015
      
      This program is free software: you can redistribute it and/or modify
      it under the terms of the GNU Affero General Public License as published by
  