anchor.diff:    "log-form does not interfere with the usual return value"
     (assert-equal 1978 (log-form (* 2 23 43)))
     "log-form records the code which it has been passed"
  -  (assert-equal ___ (length *log*))
  -  (assert-equal ___ (first *log*))
  +  (assert-equal 1 (length *log*))
  +  (assert-equal '(* 2 23 43) (first *log*))
     "macros evaluating to more macros is ok, if confusing"
     (assert-equal 35 (log-form (log-form (- 2013 1978))))
     (assert-equal 3 (length *log*))
  
positive.code:      preceded by a comma (,) are evaluated, rather then left as literals"
    (let ((num 5)
          (word 'dolphin))
      (true-or-false? ___  (equal '(1 3 5) `(1 3 5)))
      (true-or-false? ___  (equal '(1 3 5) `(1 3 num)))
      (assert-equal ____ `(1 3 ,num))
      (assert-equal ____ `(word ,word ,word word))))
  
  
  (define-test test-at-form
  
negative.code:   (assert-equal 1978 (log-form-with-value (* 2 23 43)))
    "log-form records the code which it has been passed"
    (assert-equal 1 (length *log-with-value*))
  (format t "+++++++++  ~S~%" *log-with-value*)
    (assert-equal '(:form (* 2 23 43) :value 1978) (first *log-with-value*))
    "macros evaluating to more macros is ok, if confusing"
    (assert-equal 35 (log-form-with-value (log-form-with-value (- 2013 1978))))
  (format t "+++++++++  ~S~%" *log-with-value*)
    (assert-equal 3 (length *log-with-value*))
    (assert-equal '(:form (log-form-with-value (- 2013 1978)) :value 35) (first *log-with-value*))
  (format t "+++++++++  ~S~%" *log-with-value*)
    (assert-equal '(:form (- 2013 1978) :value 35) (second *log-with-value*)))
  