anchor.diff:  	(dolist (example-group example-groups)
   	  (format t "~%~A~%" (description example-group))
   	  (loop for example in (examples example-group)
  -	     for success = (eval (behavior example))
  +	     for expectation = (eval (behavior example))
  +	     for success = (passedp expectation)
   	     do (incf examples-count)
   	     unless success do (incf failures-count)
   	       and do (setf failures-summary
   			 (concatenate 'string failures-summary
   				      (summarize-failure example-group
   							 example
  +							 expectation
   							 failures-count)))
   	     do (format t "- ~A~A~%" (description example)
   			           (if success ""
  
positive.code:     ())
  
    (defmacro => (form should matcher result)
      `(equalp ,form ,result))
  
    (defun current-example-group ()
      (first (last example-groups)))
  
negative.code: 		examples-count failures-count)))
      (values))
  
    (defun summarize-failure (example-group example expectation failure-num)
      (format nil "~D)~%'~A ~A' FAILED~%expected: ~D~%     got: ~D (using equalp)"
  	    failure-num
  	    (description example-group)
  	    (description example)
  	    (expected expectation)
  	    (actual expectation)))
  
    (defun clear-examples ()
      (setf shared-examples (make-hash-table :test #'equal))
  