anchor.diff:    (defsuite geometry-test-suite-1
         (:class test-suite))
     
  -  (deftest radians-to-degrees-1 geometry-test-suite-1
  +  (deftest radians-to-degrees-1 (geometry-test-suite-1)
       (:object #'radians-to-degrees)
       (:summary "Ensure...")
  -    (:setup-lamba ()) ;; no-op
  -    (:cleanup-lamba ()) ;; no-op    
  +    ;; (:setup-lamba ()) ;; no-op
  +    ;; (:cleanup-lamba ()) ;; no-op    
       (:lambda (theta)
         (radians-to-degrees theta)))
   
  
positive.code:   ;; for this purpose
    `(setq *test-suite* (find-test-suite (quote ,name))))
  
  
  #+TO-DO
  (defmacro deftest (name (&optional (suite *test-suite*))
                     &rest properties)
    ;; mirror DEFSUITE FORMAT-SPEC, FIND-SPEC, FORMAT-PROPERTIES here
    
    ;; ...
    )
  
  #+TO-DO
  (defmacro defgoals (name (test &optional (suite *test-suite*))
                      &rest properties)
    ;; mirror DEFSUITE FORMAT-SPEC, FIND-SPEC, FORMAT-PROPERTIES here  
  
    )
  
negative.code:   (in-test-suite utils-test-suite-1) ;; X
  
    (deftest compute-class-1 (ident)
      ;; DEFTEST-LIKE-DEFUN - Obosolete prototype
      ;; See also: measure-test.lisp in the igneous-math system
      "Ensure..."
      (compute-class ident))
    
  