anchor.diff:    ((atom (cons 23 42)))
     nil)
   
  +(define-test "CONSP"
  +  ((consp (cons 1 1)))
  +  t)
  +
  +(define-test "CONSP fails on atoms"
  +  ((consp 'a))
  +  nil)
  +
  +(define-test "CONSP fails on numbers"
  +  ((consp 1))
  +  nil)
  +
  +(define-test "CONSP fails on characters"
  +  ((consp #\1))
  +  nil)
  +
  +(define-test "CONSP fails on strings"
  +  ((consp "1"))
  +  nil)
  +
  +(define-test "CONSP fails on arrays"
  +  ((consp (make-array 1)))
  +  nil)
  +
  +(define-test "SYMBOLP"
  +  ((symbolp 'a))
  +  t)
  +
  +(define-test "SYMBOLP fails on cells"
  +  ((symbolp (list 'a)))
  +  nil)
  +
  +(define-test "SYMBOLP fails on numbers"
  +  ((symbolp 1))
  +  nil)
  +
  +(define-test "SYMBOLP fails on characters"
  +  ((symbolp #\1))
  +  nil)
  +
  +(define-test "SYMBOLP fails on strings"
  +  ((symbolp "1"))
  +  nil)
  +
  +(define-test "SYMBOLP fails on arrays"
  +  ((symbolp (make-array 1)))
  +  nil)
  +
  +(define-test "NUMBERP recognizes numbers"
  +  ((numberp 42))
  +  t)
  +
  +(define-test "NUMBERP recognizes characters"
  +  ((numberp #\a))
  +  t)
  +
  +(define-test "NUMBERP fails on arrays"
  +  ((numberp (make-array 1)))
  +  nil)
  +
  +(define-test "NUMBERP fails on symbols"
  +  ((numberp 'a))
  +  nil)
  +
   (define-test "CHARACTERP recognizes characters"
     ((characterp #\a))
     t)
  +
  +(define-test "CHARACTERP fails on symbols"
  +  ((characterp 'a))
  +  nil)
  +
  +(define-test "CHARACTERP fails on cells"
  +  ((characterp (list 1)))
  +  nil)
  +
  +(define-test "CHARACTERP fails on numbers"
  +  ((characterp 1))
  +  nil)
  +
  +(define-test "CHARACTERP fails on arrays"
  +  ((characterp (make-array 1)))
  +  nil)
  +
  +(define-test "CHARACTERP fails on strings"
  +  ((characterp "1"))
  +  nil)
  +
  +(define-test "EQL wants same type of numbers"
  +  ((eql 65 #\A))
  +  nil)
   
   (define-test "FUNCTIONP recognizes functions"
     ((functionp #'%backquote))
  
positive.code: 	 (setq a 23 b 5 c 42)) nil nil nil))
    42)
  
  (define-test "RPLACA returns cons"
    ((rplaca (cons nil nil) 42))
    (cons 42 nil))
  
  (define-test "RPLACD returns cons"
    ((rplacd (cons nil nil) 42))
    (cons nil 42))
  
  (define-test "LAST works"
    ((last '(1 2 3)))
  
negative.code: ;  ((functionp #'block))
  ;  nil)
  
  (define-test "STRINGP recognizes strings"
    ((stringp "some string"))
    t)
  
  (define-test "STRINGP fails on numbers"
    ((stringp 1))
    nil)
  
  (define-test "STRINGP fails on symbols"
    ((stringp 'a))
    nil)
  
  (define-test "CODE-CHAR converts number to char"
  