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
  
positive.code:                                           :name (quote ,name)
                                            :default-test-class ,dtc
                                            ,@(format-properties))))
             #+TO-DO (register-test-suite ,instance)
             (values ,instance))))))
  
  
  ;; (defsuite foo-suite)
  ;; (defsuite foo-suite (:default-test-class lisp-test))
  
negative.code:     (:depends-on #:info.metacommunity.cltl.utils) ;;;; ?
     )
    
    (in-test-suite utils-test-suite-1) ;; X
  
    (deftest compute-class-1 (ident)
      "Ensure..."
      (compute-class ident))
    
    (defgoals simple-goals-1 (compute-class-1  )
        (:documentation "Ensure...")
      ("Symbol => Class" 
       (:params-form 'string)
  