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