anchor.diff:               (test-read "$bar")))
       (string= (test-read "$bar")
                'bar)
  -    (eq (test-read/suppress1 "$bar foo")
  +    (eq (test-read/suppress1 "$undefined-package%%:bar foo")
           'foo)))
  
positive.code:   (each
      (= 1
         (test-read "#; foo
  foo
  1"))
      (= 2
         (test-read/suppress1 "#; foo
  foo
  1
  2
  "))
      (= 2
         (test-read "#; foo
  #+(or)
  foo
  1
  2
  "))))
  
  
negative.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%%:undefined-package%% undefined-package%%:foo] bar")
          'bar)))
  
  (define-reader-test (#\^) dishes:thunk-reader
    (each
      (equal (car (test-read "^(progn (print 'baz))"))
             'lambda)
      (equal (test-read/suppress1 "^(progn (print 'undefined-package%%:baz)) foo")
             'foo)))
  
  (define-reader-test (#\/) dishes:unescapable-string-reader
  