From f2dd1c31f3e9c6ce1e250ee5a1e71cb6f8cb5dd9 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 21 Nov 1990 08:54:35 +0000 Subject: [PATCH] Changed ``%primitive sxhash-simple-string'' to ``%sxhash-simple-string'' --- code/package.lisp | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/code/package.lisp b/code/package.lisp index 2a50f9ada..2d9b5a248 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -208,9 +208,7 @@ (let* ((vec (package-hashtable-table table)) (hash (package-hashtable-hash table)) (len (length vec)) - (sxhash (truly-the index - (%primitive sxhash-simple-string - (symbol-name symbol)))) + (sxhash (%sxhash-simple-string (symbol-name symbol))) (h2 (the fixnum (1+ (the fixnum (rem sxhash (the fixnum (- len 2)))))))) (declare (simple-vector vec) @@ -289,8 +287,7 @@ (defun nuke-symbol (table string) (declare (simple-string string)) (let* ((length (length string)) - (hash (truly-the index - (%primitive sxhash-simple-string string))) + (hash (%sxhash-simple-string string)) (ehash (entry-hash length hash))) (declare (fixnum length hash)) (with-symbol (index symbol table string length hash ehash) @@ -586,8 +583,7 @@ (defun find-symbol* (string length package) (declare (simple-string string) (fixnum length)) - (let* ((hash (truly-the index - (%primitive sxhash-simple-substring string length))) + (let* ((hash (%sxhash-simple-substring string length)) (ehash (entry-hash length hash))) (declare (fixnum hash ehash)) (with-symbol (found symbol (package-internal-symbols package) @@ -617,7 +613,7 @@ (defun find-external-symbol (string package) (declare (simple-string string)) (let* ((length (length string)) - (hash (truly-the index (%primitive sxhash-simple-string string))) + (hash (%sxhash-simple-string string)) (ehash (entry-hash length hash))) (declare (fixnum length hash)) (with-symbol (found symbol (package-external-symbols package) -- GitLab