anchor.diff:  ;  ((functionp #'block))
   ;  nil)
   
  -(define-test "NUMBERP recognizes numbers"
  -  ((numberp 42))
  -  t)
  -
  -(define-test "NUMBERP recognizes characters"
  -  ((numberp #\a))
  -  t)
  -
   (define-test "STRINGP recognizes strings"
     ((stringp "some string"))
     t)
   
  -(define-test "EQL wants same type of numbers"
  -  ((eql 65 #\A))
  +(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"
  
positive.code:   ((atom (cons 23 42)))
    nil)
  
  (define-test "CHARACTERP recognizes characters"
    ((characterp #\a))
    t)
  
  (define-test "FUNCTIONP recognizes functions"
    ((functionp #'%backquote))
  
negative.code: 	 (setq a 23 b 5 c 42)) nil nil nil))
    42)
  
  (define-test "IDENTITY"
    ((identity t))
    t)
  
  (define-test "LAST works"
    ((last '(1 2 3)))
  