/[cmucl]/src/code/hash.lisp
ViewVC logotype

Diff of /src/code/hash.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by dtc, Thu Jul 6 05:41:27 2000 UTC revision 1.39 by dtc, Thu Jul 6 18:36:37 2000 UTC
# Line 831  Line 831 
831    (let ((data (gensym))    (let ((data (gensym))
832          (start (gensym))          (start (gensym))
833          (end (gensym)))          (end (gensym)))
834      `(with-array-data ((,data (the string ,sequence))      `(with-array-data ((,data (the (values string &rest t) ,sequence))
835                         (,start)                         (,start)
836                         (,end))                         (,end))
837         (if (zerop ,start)         (if (zerop ,start)
838             (%sxhash-simple-substring ,data ,end)             (%sxhash-simple-substring ,data ,end)
839             (sxhash-simple-string (coerce (the string ,sequence)             (sxhash-simple-string (coerce (the (values string &rest t)
840                                                  ,sequence)
841                                           'simple-string))))))                                           'simple-string))))))
842    
843  (defmacro sxhash-list (sequence depth &key (equalp nil))  (defmacro sxhash-list (sequence depth &key (equalp nil))

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5