anchor.diff:    (:constructor %make-hash-table)
     test
     size
  -  hash)
  -
  -(defun make-hash-table (&key (test #'eq) (size *default-hash-size*))
  -  (%make-hash-table :test test :size size :hash (make-array size)))
  +  buckets)
   
   (defun %make-hash-index-num (h k)
     (mod k (hash-table-size h)))
  
positive.code:   (let h (make-hash-table :test test)
      (dolist (i x h)
        (= (href h i.) .i))))
  
  (define-test "HREF symbol key"
    ((let h (make-hash-table :test #'eq)
  
negative.code: 
  (defmacro %with-hash-bucket (bucket idx h key &rest body)
    `(with (,idx    (%make-hash-index ,h ,key)
  	      ,bucket (aref (hash-table-buckets ,h) ,idx))
      ,@body))
  
  (defun href (h key)
  