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:     (assoc key b :test (%hash-table-test h))))
  
  (defun (setf gethash) (new-value key h &optional default)
    (let ((t (%hash-table-test h)))
      (%with-hash-bucket b i h key
        (if (assoc key b :test t)
          ; Modify existing value.
          (setf (assoc key b :test t) new-value)
          ; Add new value/key pair.
          (setf (aref (%hash-table-hash h) i) (acons key new-value b)))))
    new-value)
  
negative.code: 
  ; Get bucket list and its index.
  (defmacro %with-hash-bucket (bucket idx h key &rest body)
    `(with (,idx (%make-hash-index ,h ,key)
  	      ,bucket (aref (%hash-table-hash ,h) ,idx))
      ,@body))
  
  (defun gethash (key h &optional default)
  