Skip to content
Snippets Groups Projects
Commit ac3e79db authored by wlott's avatar wlott
Browse files

Changed ``%primitive sxhash-simple-string'' to ``%sxhash-simple-string''

parent f2dd1c31
No related branches found
No related tags found
No related merge requests found
...@@ -381,7 +381,7 @@ ...@@ -381,7 +381,7 @@
(the fixnum ,place)))))) (the fixnum ,place))))))
(defmacro sxhash-simple-string (sequence) (defmacro sxhash-simple-string (sequence)
`(truly-the index (%primitive sxhash-simple-string ,sequence))) `(%sxhash-simple-string ,sequence))
(defmacro sxhash-string (sequence) (defmacro sxhash-string (sequence)
(let ((data (gensym)) (let ((data (gensym))
...@@ -391,7 +391,7 @@ ...@@ -391,7 +391,7 @@
(,start) (,start)
(,end)) (,end))
(if (zerop ,start) (if (zerop ,start)
(truly-the index (%primitive sxhash-simple-substring ,data ,end)) (%sxhash-simple-substring ,data ,end)
(sxhash-simple-string (coerce (the string ,sequence) (sxhash-simple-string (coerce (the string ,sequence)
'simple-string)))))) 'simple-string))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment