From ac3e79dbf41ea40daab9c2ea77edfdb08d6cd3cb Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 21 Nov 1990 08:57:57 +0000
Subject: [PATCH] Changed ``%primitive sxhash-simple-string'' to
 ``%sxhash-simple-string''

---
 code/hash.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/hash.lisp b/code/hash.lisp
index 74f9d13ff..eacb65614 100644
--- a/code/hash.lisp
+++ b/code/hash.lisp
@@ -381,7 +381,7 @@
 		     (the fixnum ,place))))))
 
 (defmacro sxhash-simple-string (sequence)
-  `(truly-the index (%primitive sxhash-simple-string ,sequence)))
+  `(%sxhash-simple-string ,sequence))
 
 (defmacro sxhash-string (sequence)
   (let ((data (gensym))
@@ -391,7 +391,7 @@
 		       (,start)
 		       (,end))
        (if (zerop ,start)
-	   (truly-the index (%primitive sxhash-simple-substring ,data ,end))
+	   (%sxhash-simple-substring ,data ,end)
 	   (sxhash-simple-string (coerce (the string ,sequence)
 					 'simple-string))))))
 
-- 
GitLab