2
;;;; Author: Paul Dietz
3
;;;; Created: Sun Jan 26 21:30:42 2003
4
;;;; Contains: Tests of HASH-TABLE and related interface
9
(notnot-mv (find-class 'hash-table))
13
(loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
14
#0aNIL #2a((a b)(c d)) #p"foo"
15
"bar" #\a 3/5 #c(1.0 2.0))
16
when (typep e 'hash-table)
21
(let ((c (find-class 'hash-table)))
22
(loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
23
#0aNIL #2a((a b)(c d)) #p"foo"
24
"bar" #\a 3/5 #c(1.0 2.0))
30
(notnot-mv (typep (make-hash-table) 'hash-table))
34
(notnot-mv (typep (make-hash-table) (find-class 'hash-table)))