Changeset 13333
- Timestamp:
- 06/16/11 05:25:43 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/HashTableFunctions.java
r13310 r13333 47 47 Symbol.EQUALP.getSymbolFunction(); 48 48 49 @DocString(name="%make-hash-table")50 49 private static final Primitive _MAKE_HASH_TABLE 51 50 = new pf__make_hash_table(); 51 @DocString(name="%make-hash-table") 52 52 private static final class pf__make_hash_table extends Primitive { 53 53 pf__make_hash_table() { … … 74 74 }; 75 75 76 @DocString(name="%make-weak-hash-table") 76 77 77 private static final Primitive _MAKE_WEAK_HASH_TABLE 78 78 = new pf__make_weak_hash_table(); 79 79 @DocString(name="%make-weak-hash-table") 80 80 private static final class pf__make_weak_hash_table extends Primitive { 81 81 pf__make_weak_hash_table() { … … 107 107 }; 108 108 109 @DocString(name="gethash",110 args="key hash-table &optional default => value, present-p",111 doc="Returns the value associated with KEY in HASH-TABLE.")112 109 private static final Primitive GETHASH 113 110 = new pf_gethash(); 111 @DocString(name="gethash", 112 args="key hash-table &optional default", 113 returns="value, present-p", 114 doc="Returns the value associated with KEY in HASH-TABLE.") 114 115 private static final class pf_gethash extends Primitive { 115 116 pf_gethash() { … … 138 139 }; 139 140 140 @DocString(name="gethash1",141 args="key hash-table => value")142 141 private static final Primitive GETHASH1 143 142 = new pf_gethash1(); 143 @DocString(name="gethash1", 144 args="key hash-table", returns="value") 144 145 private static final class pf_gethash1 extends Primitive { 145 146 pf_gethash1() { … … 164 165 }; 165 166 166 // ### puthash key hash-table new-value &optional default => value167 @DocString(name="puthash",168 args="key hash-table new-value &optional default => value")169 167 private static final Primitive PUTHASH 170 168 = new pf_puthash(); 171 169 @DocString(name="puthash", 170 args="key hash-table new-value &optional default", returns="value") 172 171 private static final class pf_puthash extends Primitive { 173 172 pf_puthash() { … … 195 194 }; 196 195 197 @DocString(name="remhash",198 args="key hash-table => generalized-boolean",199 doc="Removes the value for KEY in HASH-TABLE, if any.")200 196 private static final Primitive REMHASH 201 197 = new pf_remhash(); 198 @DocString(name="remhash", 199 args="key hash-table", returns="generalized-boolean", 200 doc="Removes the value for KEY in HASH-TABLE, if any.") 202 201 private static final class pf_remhash extends Primitive { 203 202 pf_remhash() { … … 213 212 }; 214 213 215 @DocString(name="clrhash",216 args="hash-table => hash-table")217 214 private static final Primitive CLRHASH 218 215 = new pf_clrhash(); 216 @DocString(name="clrhash", 217 args="hash-table", returns="hash-table") 219 218 private static final class pf_clrhash extends Primitive { 220 219 pf_clrhash() { … … 233 232 }; 234 233 234 private static final Primitive HASH_TABLE_COUNT 235 = new pf_hash_table_count(); 235 236 @DocString(name="hash-table-count", 236 237 args="hash-table", 237 238 doc="Returns the number of entries in HASH-TABLE.") 238 private static final Primitive HASH_TABLE_COUNT239 = new pf_hash_table_count();240 239 private static final class pf_hash_table_count extends Primitive { 241 240 pf_hash_table_count() { … … 252 251 }; 253 252 253 private static final Primitive SXHASH 254 = new pf_sxhash(); 254 255 @DocString(name="sxhash", 255 256 args="object => hash-code") 256 private static final Primitive SXHASH257 = new pf_sxhash();258 257 private static final class pf_sxhash extends Primitive { 259 258 pf_sxhash() { … … 283 282 }; 284 283 284 private static final Primitive HASH_TABLE_P 285 = new pf_hash_table_p(); 285 286 @DocString(name="hash-table-p", 286 287 args="object", 287 288 doc="Whether OBJECT is an instance of a hash-table.") 288 private static final Primitive HASH_TABLE_P289 = new pf_hash_table_p();290 289 private static final class pf_hash_table_p extends Primitive { 291 290 pf_hash_table_p(){ … … 300 299 }; 301 300 301 private static final Primitive HASH_TABLE_ENTRIES 302 = new pf_hash_table_entries(); 302 303 @DocString(name="hah-table-entries", 303 304 args="hash-table", 304 305 doc="Returns a list of all key/values pairs in HASH-TABLE.") 305 private static final Primitive HASH_TABLE_ENTRIES306 = new pf_hash_table_entries();307 306 private static final class pf_hash_table_entries extends Primitive { 308 307 pf_hash_table_entries() { … … 319 318 }; 320 319 320 private static final Primitive HASH_TABLE_TEST 321 = new pf_hash_table_test(); 321 322 @DocString(name="hash-table-test", 322 323 args="hash-table", 323 324 doc="Return the test used for the keys of HASH-TABLE.") 324 private static final Primitive HASH_TABLE_TEST325 = new pf_hash_table_test();326 325 private static final class pf_hash_table_test extends Primitive { 327 326 pf_hash_table_test() { … … 337 336 }; 338 337 338 private static final Primitive HASH_TABLE_SIZE 339 = new pf_hash_table_size(); 339 340 @DocString(name="hash-table-size", 340 341 args="hash-table", 341 342 doc="Returns the number of storage buckets in HASH-TABLE.") 342 private static final Primitive HASH_TABLE_SIZE343 = new pf_hash_table_size();344 343 private static final class pf_hash_table_size extends Primitive { 345 344 pf_hash_table_size() { … … 356 355 }; 357 356 357 private static final Primitive HASH_TABLE_REHASH_SIZE 358 = new pf_hash_table_rehash_size(); 358 359 @DocString(name="hash-table-rehash-size", 359 360 args="hash-table") 360 private static final Primitive HASH_TABLE_REHASH_SIZE361 = new pf_hash_table_rehash_size();362 361 private static final class pf_hash_table_rehash_size extends Primitive { 363 362 pf_hash_table_rehash_size() { … … 374 373 }; 375 374 375 private static final Primitive HASH_TABLE_REHASH_THRESHOLD 376 = new pf_hash_table_rehash_threshold(); 376 377 @DocString(name="hash-table-rehash-threshold", 377 378 args="hash-table") 378 private static final Primitive HASH_TABLE_REHASH_THRESHOLD379 = new pf_hash_table_rehash_threshold();380 379 private static final class pf_hash_table_rehash_threshold extends Primitive { 381 380 pf_hash_table_rehash_threshold() { … … 392 391 }; 393 392 393 private static final Primitive MAPHASH 394 = new pf_maphash(); 394 395 @DocString(name="maphash", 395 396 args="function hash-table", … … 397 398 + " the function is called with two arguments--the key and the" 398 399 + " value of that entry.") 399 private static final Primitive MAPHASH400 = new pf_maphash();401 400 private static final class pf_maphash extends Primitive { 402 401 pf_maphash() { … … 413 412 }; 414 413 414 private static final Primitive HASH_TABLE_WEAKNESS 415 = new pf_hash_table_weakness(); 415 416 @DocString(name="hash-table-weakness", 416 417 args="hash-table", 417 418 doc="Return weakness property of HASH-TABLE, or NIL if it has none.") 418 private static final Primitive HASH_TABLE_WEAKNESS419 = new pf_hash_table_weakness();420 419 private static final class pf_hash_table_weakness extends Primitive { 421 420 pf_hash_table_weakness() {
Note: See TracChangeset
for help on using the changeset viewer.