anchor.diff:      self))
   
   #-(and (or ccl clisp) (not debug-weak))
  +(defgeneric check-reduce-size (weak-hash-table result-values))
  +#-(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))))
  
positive.code:          :finally (return-from :assoc nil))))
  
  #-(and clisp (not debug-weak))
  (defmethod weak-alist-value (item (self weak-alist)
                               &key (test (function eql)) (test-not nil))
    (cdr (weak-alist-assoc item self :test test :test-not test-not)))
  
  #-(and clisp (not debug-weak))
  (defmethod (setf weak-alist-value) (value item (self weak-alist)
                                      &key (test (function eql)) (test-not nil))
  
negative.code:          :finally (return-from :assoc nil))))
  
  #-(and clisp (not debug-weak))
  (defgeneric weak-alist-rassoc (item weak-alist &key test test-not key))
  #-(and clisp (not debug-weak))
  (defmethod weak-alist-rassoc (item (self weak-alist) &key (test (function eql))
                                (test-not nil) (key (function identity)))
    (if test-not
  