anchor.diff:      (:lambda (theta)
         (radians-to-degrees theta)))
   
  -  (defgoals radians-to-degrees-1
  +  (in-test-suite geometry-test-suite-1) ;; X
  +
  +  (defgoals radians-to-degrees-1 (...)
         (:documentation "Ensure...")
       ("Pi Radians => 180 Degrees"
        (:params-form pi)
  
positive.code:   (defsuite geometry-test-suite-1
        (:class test-suite))
    
    (deftest* radians-to-degrees-1 geometry-test-suite-1
      (:object #'radians-to-degrees)
      (:summary "Ensure...")
      (:setup-lamba ()) ;; no-op
  
negative.code:                                           :name (quote ,name)
                                            :default-test-class ,dtc
                                            ,@(format-properties))))
             (register-test-suite ,instance)
             (values ,instance))))))
  
  
  ;; (defsuite foo-suite)
  ;; (defsuite foo-suite (:default-test-class lisp-test))
  
  ;; (defclass foo-test-suite (test-suite) ())
  ;; (defsuite foo-suite (:class foo-test-suite))
  
  
  (declaim (type test-suite *test-suite*))
  (defvar *test-suite*)
  (setf (documentation *test-suite* 'variable)
        "Default test suite, within the active lexical environment.
  
  See also: 
  * `TEST-SUITE' [Class]
  * `DEFSUITE' [Macro]
  * `IN-TEST-SUITE' [Macro]
  * `FIND-TEST-SUITE' [Function]")
  
  
  (defmacro in-test-suite (name)
    "Specify that the test suite named NAME will be bound to
  `*TEST-SUITE*' within the active lexical environment.
  
  NAME will not be evaluated
  
  See also: 
  * `TEST-SUITE' [Class]
  * `DEFSUITE' [Macro]
  * `IN-TEST-SUITE' [Macro]
  * `FIND-TEST-SUITE' [Function]"
    ;; FIXME: Try to ensure IN-TEST-SUITE will be applied local to:
    ;; 1. evaluation of a file
    ;; 2. evaluation of forms from an input stream
    ;;
    ;; Consider defining *TEST-SUITE* as a  thread-local variable (TO DO)
    ;; 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  
  
    )
  