From 53d17efdfb4a156acff341c32dd11e09449e84d5 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 7 May 1992 09:12:04 +0000 Subject: [PATCH] Missed a place where I changed a name. --- code/hash.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/hash.lisp b/code/hash.lisp index 9f1356339..e22974bcb 100644 --- a/code/hash.lisp +++ b/code/hash.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.13 1992/05/07 08:48:08 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.14 1992/05/07 09:12:04 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -165,7 +165,7 @@ (let* ((size (ceiling size rehash-threshold)) (length (if (<= size 37) 37 (almost-primify size))) (vector (make-array length :initial-element nil))) - (make-hash-table-structure + (%make-hash-table :test test :test-fun test-fun :hash-fun hash-fun -- GitLab