anchor.diff:      (:depends-on #:info.metacommunity.cltl.utils) ;;;; ?
      )
     
  -  (in-test-suite utils-test-suite-1)
  +  (in-test-suite utils-test-suite-1) ;; X
   
     (deftest compute-class-1 (ident)
       "Ensure..."
       (compute-class ident))
     
  -  (defgoals compute-class-1 
  +  (defgoals simple-goals-1 (compute-class-1  )
         (:documentation "Ensure...")
       ("Symbol => Class" 
        (:params-form 'string)
  
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:     (:lambda (theta)
        (radians-to-degrees theta)))
  
    (in-test-suite geometry-test-suite-1) ;; X
  
    (defgoals radians-to-degrees-1 (...)
        (:documentation "Ensure...")
      ("Pi Radians => 180 Degrees"
       (:params-form pi)
  