anchor.diff:      (assoc key b :test (%hash-table-test h))))
   
   (defun (setf gethash) (new-value key h &optional default)
  -  (let ((t (%hash-table-test h)))
  +  (with (tst (%hash-table-test h))
       (%with-hash-bucket b i h key
  -      (if (assoc key b :test t)
  +      (if (assoc key b :test tst)
           ; Modify existing value.
  -        (setf (assoc key b :test t) new-value)
  +        (setf (assoc key b :test tst) new-value)
           ; Add new value/key pair.
           (setf (aref (%hash-table-hash h) i) (acons key new-value b)))))
     new-value)
  
positive.code: 
  (defun %make-hash-index-string (h str)
    "Make hash index from string."
    (let ((k 0)
  	(l (length str)))
      (do ((i 0 (1+ i)))
          ((or (= i l) (> i 7)) (mod k (%hash-table-size h)))
        (setf k (+ k (elt str i))))))
  
negative.code: (defun make-hash-table (&key test size rehash-size rehash-threshold)
    "Create a new hash table."
    (make-%hash-table
      :test (or test #'eq) :size 157
      :rehash-size rehash-size :rehash-threshold rehash-threshold
      :hash (make-array 157)))
  
  