Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/hash.clisp
There are no other files named hash.clisp in the archive.
(in-package 'lisp)
(export '(make-hash-table))
(defun make-hash-table (&key test size rehash-size rehash-threshold)
"Creates and returns a hash table. See manual for details."
(%sp-make-hash-table test size rehash-size rehash-threshold))
;;; The first entry (0) is the size of the hash table which is always prime.
(defun hash-table-size (ht)
"Returns the size of the hash table (this is always prime)."
(svref ht 0))