/[gcl]/gcl/tests/hash.tst
ViewVC logotype

Diff of /gcl/tests/hash.tst

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Thu Dec 20 20:29:54 2001 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 0  Line 1 
1    (PROGN (IN-PACKAGE (QUOTE SYS)) T)      T
2    
3    (MAKE-HASH-TABLE :TEST (QUOTE EQ) :SIZE 20)
4    #S(HASH-TABLE TEST EQ SIZE 20 %%SIZE 64 REHASH-SIZE 2.0 %%REHASH-SIZE 2
5           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 13 %%COUNT 0 %%HASH-VEKTOR
6           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
7    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
8    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
9    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
10    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
11    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
12    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
13    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
14    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
15    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
16    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
17    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
18    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
19    
20    (MAKE-HASH-TABLE :TEST (QUOTE EQL) :SIZE 2)
21    #S(HASH-TABLE TEST EQL SIZE 2 %%SIZE 4 REHASH-SIZE 2.0 %%REHASH-SIZE 2
22           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 2 %%COUNT 0 %%HASH-VEKTOR
23           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
24    
25    (MAKE-HASH-TABLE :TEST (QUOTE EQUAL) :SIZE 2)
26    #S(HASH-TABLE TEST EQUAL SIZE 2 %%SIZE 4 REHASH-SIZE 2.0 %%REHASH-SIZE 2
27           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 2 %%COUNT 0 %%HASH-VEKTOR
28           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
29    
30    (Progn (MAKE-HASH-TABLE :TEST (FUNCTION EQ) :SIZE 2) t) t
31    
32    (PROGN (MAKE-HASH-TABLE :TEST (FUNCTION EQL) :SIZE 2)T) T
33    
34    (MAKE-HASH-TABLE :SIZE NIL)
35    ERROR
36    
37    (MAKE-HASH-TABLE :SIZE -3)
38    ERROR
39    
40    (MAKE-HASH-TABLE :SIZE 2.0)
41    ERROR
42    
43    (MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE 1.5)
44    #S(HASH-TABLE TEST EQL SIZE 2 %%SIZE 4 REHASH-SIZE 1.5 %%REHASH-SIZE 2
45           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 2 %%COUNT 0 %%HASH-VEKTOR
46           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
47    
48    (MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE -1.5)
49    ERROR
50    
51    (MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE 0.5)
52    ERROR
53    
54    (MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE 1.0)
55    #S(HASH-TABLE TEST EQL SIZE 2 %%SIZE 4 REHASH-SIZE 1.0 %%REHASH-SIZE 4
56           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 2 %%COUNT 0 %%HASH-VEKTOR
57           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
58    
59    (MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE 5)
60    #S(HASH-TABLE TEST EQL SIZE 2 %%SIZE 4 REHASH-SIZE 5 %%REHASH-SIZE 2
61           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 2 %%COUNT 0 %%HASH-VEKTOR
62           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
63    
64    (MAKE-HASH-TABLE :SIZE 4 :REHASH-SIZE 5.0)
65    #S(HASH-TABLE TEST EQL SIZE 4 %%SIZE 8 REHASH-SIZE 5.0 %%REHASH-SIZE 8
66           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 3 %%COUNT 0 %%HASH-VEKTOR
67           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
68    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
69    
70    (MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE NIL)
71    ERROR
72    
73    (MAKE-HASH-TABLE :SIZE 2 :REHASH-THRESHOLD NIL)
74    ERROR
75    
76    (MAKE-HASH-TABLE :%%SIZE 3)
77    #S(HASH-TABLE TEST EQL SIZE 16 %%SIZE 3 REHASH-SIZE 2.0 %%REHASH-SIZE 2
78           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 13 %%COUNT 0 %%HASH-VEKTOR
79           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
80    
81    (SETQ TAB (MAKE-HASH-TABLE))
82    #S(HASH-TABLE TEST EQL SIZE 16 %%SIZE 32 REHASH-SIZE 2.0 %%REHASH-SIZE 2
83           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 13 %%COUNT 0 %%HASH-VEKTOR
84           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
85    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
86    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
87    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
88    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
89    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
90    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
91    
92    (SETF-GETHASH (QUOTE HALLO) TAB (QUOTE WIEGWHTS))
93    WIEGWHTS
94    
95    (SETF-GETHASH (QUOTE UHU) TAB (QUOTE KAUZ))
96    KAUZ
97    
98    (GETHASH (QUOTE UHU) TAB)
99    KAUZ
100    
101    (GETHASH UHU TAB)
102    ERROR
103    
104    (MAKE-HASH-TABLE)
105    #S(HASH-TABLE TEST EQL SIZE 16 %%SIZE 32 REHASH-SIZE 2.0 %%REHASH-SIZE 2
106           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 13 %%COUNT 0 %%HASH-VEKTOR
107           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
108    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
109    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
110    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
111    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
112    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
113    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
114    
115    (SETQ TAB NIL)
116    NIL
117    
118    (SETF-GETHASH (QUOTE UHU) TAB (QUOTE KAUS))
119    ERROR
120    
121    (GETHASH (QUOTE UHU) TAB)
122    ERROR
123    
124    (GETHASH (QUOTE OTTO) TAB)
125    ERROR
126    
127    (SETQ TAB (MAKE-HASH-TABLE))
128    #S(HASH-TABLE TEST EQL SIZE 16 %%SIZE 32 REHASH-SIZE 2.0 %%REHASH-SIZE 2
129           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 13 %%COUNT 0 %%HASH-VEKTOR
130           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
131    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
132    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
133    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
134    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
135    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
136    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
137    
138    (SETF-GETHASH (QUOTE UHU) TAB (QUOTE KAUS))
139    KAUS
140    
141    (GETHASH (QUOTE UHU) TAB)
142    KAUS
143    
144    (GETHASH (QUOTE OTTO) TAB)
145    NIL
146    
147    (SETF-GETHASH (QUOTE UHU) TAB (QUOTE KAUZ))
148    KAUZ
149    
150    (SETF-GETHASH TAB)
151    ERROR
152    
153    (REMHASH (QUOTE UHU) TAB)
154    T
155    
156    TAB
157    #S(HASH-TABLE TEST EQL SIZE 16 %%SIZE 32 REHASH-SIZE 2.0 %%REHASH-SIZE 2
158           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 13 %%COUNT 0 %%HASH-VEKTOR
159           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
160    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
161    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
162    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
163    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
164    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
165    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
166    
167    (CLRHASH TAB9)
168    ERROR
169    
170    (CLRHASH TAB)
171    #S(HASH-TABLE TEST EQL SIZE 16 %%SIZE 32 REHASH-SIZE 2.0 %%REHASH-SIZE 2
172           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 13 %%COUNT 0 %%HASH-VEKTOR
173           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
174    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
175    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
176    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
177    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
178    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
179    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
180    
181    (HASH-TABLE-COUNT TAB)
182    0
183    
184    (SETF-GETHASH (QUOTE KLAK) TAB (QUOTE KLASE))
185    KLASE
186    
187    (SETF-GETHASH (QUOTE KUNZE) TAB (QUOTE RIESE))
188    RIESE
189    
190    (HASH-TABLE-P TAB)
191    T
192    
193    (HASH-TABLE-COUNT TAB)
194    2
195    
196    (REMHASH (QUOTE KUNZE) TAB)
197    T
198    
199    (SETF-GETHASH (QUOTE WALD) TAB (QUOTE KHJGSFGJHDF))
200    KHJGSFGJHDF
201    
202    (GETHASH)
203    ERROR
204    
205    (REMHASH)
206    ERROR
207    
208    (CLRHASH TAB)
209    #S(HASH-TABLE TEST EQL SIZE 16 %%SIZE 32 REHASH-SIZE 2.0 %%REHASH-SIZE 2
210           REHASH-THRESHOLD 13 %%REHASH-THRESHOLD 13 %%COUNT 0 %%HASH-VEKTOR
211           #(%%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
212    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
213    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
214    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
215    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
216    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT
217    %%EMPTY-ELEMENT %%EMPTY-ELEMENT %%EMPTY-ELEMENT))
218    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26