anchor.diff:                               `(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
  +                                      :name (quote ,name)
                                         :object ,object
                                         :lambda (lambda ,@lp)
                                         ,@(map-properties))))
  
positive.code: 
    (defsuite geometry-test-suite-1
        (:class test-suite))
    
    (deftest radians-to-degrees-1 (geometry-test-suite-1)
      (:object #'radians-to-degrees)
      (:summary "Ensure...")
  
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)
  