anchor.diff:    (each
       (= 1
          (test-read "#; foo
  -foo
  +undefined-package%%:foo
   1"))
       (= 2
          (test-read/suppress1 "#; foo
  -foo
  +undefined-package%%:foo
   1
   2
   "))
       (= 2
          (test-read "#; foo
   #+(or)
  -foo
  -1
  +undefined-package%%:foo
  +undefined-package%%:1
   2
   "))))
   
  
positive.code:         'dishes:run-time-symbol-reader)
      (not (eq (test-read "[dishes run-time-symbol-reader]")
               'dishes:run-time-symbol-reader))
      (eq (test-read/suppress1 "[undefined-packag%% foo] bar")
          'bar)))
  
  (define-reader-test (#\^) dishes:thunk-reader
    (each
      (equal (car (test-read "^(progn (print 'baz))"))
             'lambda)
      (equal (test-read/suppress1 "^(progn (print 'baz)) foo")
             'foo)))
  
  (define-reader-test (#\/) dishes:unescapable-string-reader
  
negative.code:              (test-read "$bar")))
      (string= (test-read "$bar")
               'bar)
      (eq (test-read/suppress1 "$undefined-package%%:bar foo")
          'foo)))
  