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