/[cmucl]/src/code/hash.lisp
ViewVC logotype

Diff of /src/code/hash.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by wlott, Sat May 16 16:12:44 1992 UTC revision 1.18 by wlott, Sat Jun 27 21:41:22 1992 UTC
# Line 165  Line 165 
165      (let* ((size (ceiling size rehash-threshold))      (let* ((size (ceiling size rehash-threshold))
166             (length (if (<= size 37) 37 (almost-primify size)))             (length (if (<= size 37) 37 (almost-primify size)))
167             (vector (make-array length :initial-element nil)))             (vector (make-array length :initial-element nil)))
168          (declare (type index size length)
169                   (type simple-vector vector))
170        (%make-hash-table        (%make-hash-table
171         :test test         :test test
172         :test-fun test-fun         :test-fun test-fun

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5