anchor.diff:    ((functionp #'car))
     t)
   
  -(define-test "FUNCTIONP doesn't recognize built-in special forms"
  -  ((functionp #'block))
  -  nil)
  +;(define-test "FUNCTIONP doesn't recognize built-in special forms"
  +;  ((functionp #'block))
  +;  nil)
   
   (define-test "NUMBERP recognizes numbers"
     ((numberp 42))
  
positive.code:   #\A)
  
  (define-test "SETQ returns the last value set"
    ((setq a 23 b 5 c 42))
    42)
  
  (define-test "RPLACA returns cons"
  
negative.code: ;;;;; TRE environment
  ;;;;; Copyright (C) 2006,2009 Sven Klose <pixel@copei.de>
  ;;;;;
  ;;;;; Early built-in function tests
  
  (define-test "CAR accepts NIL"
    ((car nil))
  