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:   (let ((x 0)
          (y 0))
      (double-setf-SAFER x y (+ x 100))
      (assert-equal x ____)
      (assert-equal y ____)))
  
  
  ;; ----
  
negative.code:      preceded by a comma (,) are evaluated, rather than left as literals"
    (let ((num 5)
          (word 'dolphin))
      (true-or-false? t  (equal '(1 3 5) `(1 3 5)))
      (true-or-false? nil  (equal '(1 3 5) `(1 3 num)))
      (assert-equal '(1 3 5) `(1 3 ,num))
      (assert-equal '(word dolphin dolphin word) `(word ,word ,word word))))
  
  
  (define-test test-at-form
  