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:          :finally (return-from :assoc nil))))
  
  #-(and clisp (not debug-weak))
  (defmethod weak-alist-remove-assoc (item (self weak-alist)
                                      &key (test (function eql))
                                      (test-not nil) (key (function identity)))
  
negative.code:     (maphash (lambda (k v) (declare (ignore k v)) (incf count)) self)
      count))
  
  #-(and (or ccl clisp) (not debug-weak))
  (defgeneric dump-wht (weak-hash-table &optional out))
  #-(and (or ccl clisp) (not debug-weak))
  (defmethod dump-wht ((self weak-hash-table) &optional (out *standard-output*))
    (format out "~A~%" (class-name (class-of self)))
  