anchor.diff:    (array-dimension (wht-buckets self) 0))
   
   #-(and (or ccl clisp) (not debug-weak))
  +(defgeneric wht-iterator (weak-hash-table))
  +#-(and (or ccl clisp) (not debug-weak))
   (defmethod wht-iterator ((self weak-hash-table))
     (let ((current-bucket 0)
           (current-pairs  nil))
  
positive.code:     self))
  
  #-(and (or ccl clisp) (not debug-weak))
  (defmethod check-reduce-size ((self weak-hash-table) result-values)
    (let ((threshold-count (truncate (hash-table-size self)
                                     (hash-table-rehash-threshold self))))
  
negative.code:                         (values nil nil nil)))))))
  
  #-(and (or ccl clisp) (not debug-weak))
  (defgeneric %rehash-table (weak-hash-table new-size))
  #-(and (or ccl clisp) (not debug-weak))
  (defmethod %rehash-table ((self weak-hash-table) new-size)
    (let ((new (make-hash-table
                :weak             (wht-pair-type self)
  