anchor.diff:  (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
  +    :test (or test #'eq) :size 157
       :rehash-size rehash-size :rehash-threshold rehash-threshold
       :hash (make-array 157)))
   
  
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:     (assoc key b :test (%hash-table-test h))))
  
  (defun (setf gethash) (new-value key h &optional default)
    (with (tst (%hash-table-test h))
      (%with-hash-bucket b i h key
        (if (assoc key b :test tst)
          ; Modify existing 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)
  