anchor.diff:    (is-true
      (let ((ht (read-from-string "#h{}")))
        (and (zerop (hash-table-count ht))
  -          (eq (hash-table-test ht) 'eql)))))
  +          (eq (hash-table-test ht) #-clisp 'eql
  +                                   #+clisp 'ext:fasthash-eql)))))
   
   (test literal-hash-tables.creation.empty-hash-table-test-eq
     (finishes
  
positive.code:   (is-true
     (let ((ht (read-from-string "#h{1 => 3}")))
       (and (= 1 (hash-table-count ht))
            (eq (hash-table-test ht) 'eql)
            (= 3 (gethash 1 ht))))))
  
  (test literal-hash-tables.creation.one-element-hash-table-test-eq
  
negative.code:   (is-true
     (let ((ht (read-from-string "#h:eq{:a => :test}")))
       (and (= 1 (hash-table-count ht))
            (eq (hash-table-test ht) #-clisp 'eq
                                     #+clisp 'ext:fasthash-eq)
            (eq :test (gethash :a ht))))))
  
  (test literal-hash-tables.error.only-key
  