home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / hash.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  8.4 KB  |  219 lines
  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.  
  219.