sbcl.sbcl/tests/clos-hash.impure.lisp

3 lines
124 B
Common Lisp

(test-util:with-test (:name :very-random-hashes)
(dotimes (i 10000) (fmakunbound 'foo) (eval '(defgeneric foo (a b c)))))