Skip to content
Snippets Groups Projects
Commit b8b32482 authored by ram's avatar ram
Browse files

Changed WITH-SYMBOL package hashtable lookup to not repeated call REM when

going down a collision chain.
parent 139059d9
Branches
Tags
No related merge requests found
......@@ -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))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment