anchor.diff:  
     (defsuite geometry-test-suite-1
         (:class test-suite))
  -  
  +
  + (macroexpand-1 (quote
     (deftest radians-to-degrees-1 (geometry-test-suite-1)
       (:object #'radians-to-degrees)
       (:summary "Ensure...")
  
positive.code:                              `(test-suite-default-test-class ,%suite)
                               `(find-class ,c t ,env)))
                  (,object ,(values ob))
                  (,%name ,(if (eq n %unspecified%)
                               `(gentemp "UNSPECIFIED-")
                               `(quote ,n)))
                    ;; FIXME: :LAMBDA only applicable for LISP-TEST
                  (,test (make-instance ,class
                                        :name ,%name
                                        :object ,object
                                        :lambda (lambda ,@lp)
                                        ,@(map-properties))))
  
negative.code:     ;; (:cleanup-lamba ()) ;; no-op    
      (:lambda (theta)
        (radians-to-degrees theta)))
   ))
  
    (in-test-suite geometry-test-suite-1) ;; X
  
    (defgoals radians-to-degrees-1.1 (radians-to-degrees-1)
        (:documentation "Ensure...")
      ("Pi Radians => 180 Degrees"
       (:params-form pi)
  