Google
 

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))