;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;; 02111-1307, USA.
;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;; 02111-1307, USA.
-(dolist (type `(non-weak weak key-weak value-weak))
- (dolist (test `(eq eql equal))
- (dolist (size `(0 1 100))
- (dolist (rehash-size `(1.1 9.9))
- (dolist (rehash-threshold `(0.2 .9))
- (dolist (data `(() (1 2) (1 2 3 4)))
+(dolist (type '(non-weak weak key-weak value-weak))
+ (dolist (test '(eq eql equal))
+ (dolist (size '(0 1 100))
+ (dolist (rehash-size '(1.1 9.9))
+ (dolist (rehash-threshold '(0.2 .9))
+ (dolist (data '(() (1 2) (1 2 3 4)))
(Assert (eql rehash-size (hash-table-rehash-size ht)))
(Assert (eql rehash-threshold (hash-table-rehash-threshold ht))))))))))
(Assert (eql rehash-size (hash-table-rehash-size ht)))
(Assert (eql rehash-threshold (hash-table-rehash-threshold ht))))))))))
(make-weak-hashtable weak)
(make-key-weak-hashtable key-weak)
(make-value-weak-hashtable value-weak))
(make-weak-hashtable weak)
(make-key-weak-hashtable key-weak)
(make-value-weak-hashtable value-weak))
;; Test that weak hash-tables are properly handled
(loop for (type expected-count expected-k-sum expected-v-sum) in
;; Test that weak hash-tables are properly handled
(loop for (type expected-count expected-k-sum expected-v-sum) in