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