From b8b32482a3ce237a8e47505de4c2ffff2ac6637f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 13 Mar 1992 23:27:54 +0000 Subject: [PATCH] Changed WITH-SYMBOL package hashtable lookup to not repeated call REM when going down a collision chain. --- code/package.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/package.lisp b/code/package.lisp index 7418b6429..275e53900 100644 --- a/code/package.lisp +++ b/code/package.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/package.lisp,v 1.16 1992/02/24 02:28:56 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.17 1992/03/13 23:27:54 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -292,7 +292,9 @@ ((zerop ,ehash) (setq ,index-var nil) (go DOIT))) - (setq ,index-var (rem (+ ,index-var ,h2) ,len)) + (setq ,index-var (+ ,index-var ,h2)) + (when (>= ,index-var ,len) + (setq ,index-var (- ,index-var ,len))) (go LOOP) DOIT (return (progn ,@forms)))))) -- GitLab