anchor.diff:  	(unless more (return nil))
   	(funcall function key value)))))
   
  -(defun compute-hash (key style)
  -  (ecase style
  -    (eq (eq-hash key))
  -    (eql (eql-hash key))
  -    (equal (sxhash key))
  -    (equalp (equalp-hash key))))
  -
   (defun eq-hash (object)
     (lisp-object-address object))
   
  
positive.code:   (check-type rehash-size (or (integer 1 *) (float (1.0) *)))
    (check-type rehash-threshold (real 0 1))
    (%make-hash-table :test test
  		    :rehash-size rehash-size
  		    :rehash-threshold rehash-threshold
  		    :storage (make-array (* size 2) :initial-element *hash-table-unbound-value*)))
  
  (defun gethash (key hash-table &optional default)
    (check-type hash-table hash-table)
  
negative.code: 
  (defun find-hash-table-slot-1 (key hash-table)
    (do* ((free-slot nil)
          (hash (funcall (hash-table-hash-function hash-table) key))
          (size (hash-table-size hash-table))
          (test (hash-table-test hash-table))
          (storage (hash-table-storage hash-table))
  