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