2 (let ((ht (make-hash-table))
4 (setf (gethash key ht) 10)
5 (test (null (gethash "foo" ht)))
6 (test (equal (gethash key ht) 10))
7 (setf (gethash 'foo ht) "lisp")
8 (test (string= (gethash 'foo ht) "lisp")))
11 (let ((ht (make-hash-table :test #'equal)))
12 (setf (gethash "foo" ht) 10)
13 (test (equal (gethash "foo" ht) 10)))
16 (let ((ht (make-hash-table :test #'equal)))
17 (setf (gethash "foo" ht) 10)
18 (test (eq (remhash "foo" ht) t))
19 (test (eq (remhash "foo" ht) nil))
20 (test (null (gethash "foo" ht))))