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:       ;; support a syntax similar to ASDF:DEFSYSTEM
        (:class test-suite)
      (:default-test-class lisp-test)
      (:depends-on #:info.metacommunity.cltl.utils) ;;;; ?
     )
    
    (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))
    
    (defgoals simple-goals-1 (compute-class-1  )
        (:documentation "Ensure...")
      ("Symbol => Class" 
       (:params-form 'string)
       (:expect-form (values (find-class 'string))))
      ("Class => Class" 
       (:params-form (find-class 'ratio))
       (:expect-form (values (find-class 'ratio)))))
    
  
negative.code:   (with-properties (properties)
      (let* ((lp (find-property :lambda %unspecified%))
             (ob (find-property :object)) ;; will be evaluted
             (c (find-property :class %unspecified%)))
        (when (eq lp %unspecified%)
          (error "DEFTEST ~S absent of :LAMBDA property" name))
        (with-gensym (%suite class test object)
          `(let* ((,%suite ,(if suitep 
                                 `(find-test-suite (quote ,suite) t)
                                 `(values *test-suite*)))
  