4.3BSD/usr/lib/lisp/hash.x

(File hash.l)
(maphash-equal lambda |1+| Internal-bcdcall getdisc quote eq bcdp cxr getd symbolp funcall car cdr progn null not cond setq go greaterp and prog vsize |1-| loop vref real-hash-table let)
(equal-hash-table-rehash lambda hash-value car hash-key puthash equal - eq =& = |1+| setq vset setf null cond lessp < not >= do new-vector hash-table-size times hash-table-good-size cdr + rehash-after-n-misses vref real-hash-table let let*)
(remhash-equal lambda |1-| |1+| return vset setf car hash-key equal cond bigp not cdr null and zerop real-hash-table rehash-after-n-misses vref hash-table-size sxhash remainder do)
(puthash-equal-internal (lambda . local) |1-| cons make-hash-element hash-value if prog1 return hash-table-fullness |1+| vset setf car hash-key equal or puthash-equal Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp cond hash-table-rehash-size hash-table-rehash-function funcall bigp not cdr null and zerop real-hash-table rehash-after-n-misses vref hash-table-size sxhash remainder do)
(swaphash-equal lambda puthash-equal-internal)
(puthash-equal lambda puthash-equal-internal)
(g00410::gethash-equal lambda caddr cadr quote list)
(gethash-equal lambda |1-| |1+| hash-value return setq car hash-key equal cond bigp not cdr null and zerop real-hash-table rehash-after-n-misses vref hash-table-size sxhash remainder do)
(make-equal-hash-table lambda vsetprop + new-vector vector let make-equal-hash-table-internal * hash-table-good-size cddr ferror eq cond caseq selectq car setq go null and prog loop quote)
(alter-equal-hash-table macro defstruct-expand-alter-macro)
(make-equal-hash-table-internal macro defstruct-expand-cons-macro)
(real-hash-table macro defstruct-expand-ref-macro)
(hash-table-fullness macro defstruct-expand-ref-macro)
(rehash-after-n-misses macro defstruct-expand-ref-macro)
(hash-table-size macro defstruct-expand-ref-macro)
(hash-table-rehash-size macro defstruct-expand-ref-macro)
(hash-table-rehash-function macro defstruct-expand-ref-macro)
(sxhash-string lambda |1+| getcharn cdr rot setq fixnum-BitXor boole logxor minusp cond if greaterp > flatc do)
(sxhash lambda fix floatp bignum-to-list bigp + <& < >= setf car prog1 pop - sxhash rot cdr setq null not atom do dtpr fixnum-BitXor boole logxor minusp if typep eq stringp get_pname sxhash-string symbolp cond)
(maphash lambda |1+| Internal-bcdcall getdisc quote eq bcdp cxr getd symbolp funcall car cdr progn null not cond setq go greaterp and prog vsize |1-| loop vref real-hash-table let)
(si:lookhash lambda return |1+| rplacd cdr cond list setq go greaterp and prog vsize |1-| loop vref real-hash-table let)
(hash-table-rehash lambda hash-value car hash-key puthash equal - eq =& = |1+| setq vset setf null cond lessp < not >= do new-vector hash-table-size times hash-table-good-size cdr + rehash-after-n-misses vref real-hash-table let let*)
(remhash lambda |1-| |1+| return vset setf car hash-key eq cond bigp not cdr null and zerop real-hash-table rehash-after-n-misses vref hash-table-size maknum |\\| si:hash-code do)
(puthash-internal (lambda . local) |1-| cons make-hash-element hash-value if prog1 return hash-table-fullness |1+| vset setf car hash-key or puthash Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp cond hash-table-rehash-size hash-table-rehash-function funcall bigp not cdr null and zerop real-hash-table rehash-after-n-misses vref hash-table-size maknum |\\| si:hash-code do)
(swaphash lambda puthash-internal)
(puthash lambda puthash-internal)
(g00123::gethash lambda caddr cadr quote list)
(gethash lambda |1-| |1+| hash-value return setq car hash-key eq cond bigp not cdr null and zerop real-hash-table rehash-after-n-misses vref hash-table-size maknum |\\| si:hash-code do)
(hash-table-good-size lambda + bigp cdr null |\\| zerop not and do |1+| oddp or fix max setq)
(make-hash-table lambda vsetprop + new-vector vector let make-hash-table-internal * hash-table-good-size cddr ferror eq cond caseq selectq car setq go null and prog loop quote)
(alter-hash-table macro defstruct-expand-alter-macro)
(make-hash-table-internal macro defstruct-expand-cons-macro)
(real-hash-table macro defstruct-expand-ref-macro)
(hash-table-fullness macro defstruct-expand-ref-macro)
(rehash-after-n-misses macro defstruct-expand-ref-macro)
(hash-table-size macro defstruct-expand-ref-macro)
(hash-table-rehash-size macro defstruct-expand-ref-macro)
(hash-table-rehash-function macro defstruct-expand-ref-macro)