/[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.39 by dtc, Thu Jul 6 18:36:37 2000 UTC revision 1.39.2.1 by pmai, Fri Oct 4 23:13:25 2002 UTC
# Line 835  Line 835 
835                         (,start)                         (,start)
836                         (,end))                         (,end))
837         (if (zerop ,start)         (if (zerop ,start)
838             (%sxhash-simple-substring ,data ,end)             (%sxhash-simple-substring ,data ,start ,end)
839             (sxhash-simple-string (coerce (the (values string &rest t)             (sxhash-simple-string (coerce (the (values string &rest t)
840                                                ,sequence)                                                ,sequence)
841                                           'simple-string))))))                                           'simple-string))))))
# Line 867  Line 867 
867    (declare (type index depth) (values hash))    (declare (type index depth) (values hash))
868    (typecase s-expr    (typecase s-expr
869      ;; The pointers and immediate types.      ;; The pointers and immediate types.
870      (list (sxhash-list s-expr depth))      (list
871      (fixnum (ldb sxhash-bits-byte s-expr))       (sxhash-list s-expr depth))
872      (character (char-code (char-upcase s-expr)))      (fixnum
873         (ldb sxhash-bits-byte s-expr))
874        (character
875         (char-code (char-upcase s-expr)))
876      (instance      (instance
877       (if (typep s-expr 'structure-object)       (if (typep s-expr 'structure-object)
878           (internal-sxhash (class-name (layout-class (%instance-layout s-expr)))           (internal-sxhash (class-name (layout-class (%instance-layout s-expr)))
879                            depth)                            depth)
880           42))           42))
881      ;; Other-pointer types.      ;; Other-pointer types.
882      (simple-string (sxhash-simple-string s-expr))      #+unicode
883      (symbol (sxhash-simple-string (symbol-name s-expr)))      (simple-base-string
884         (sxhash-simple-string s-expr))
885        (simple-string
886         (sxhash-simple-string s-expr))
887        (symbol
888         (sxhash-simple-string (symbol-name s-expr)))
889      (number      (number
890       (etypecase s-expr       (etypecase s-expr
891         (integer (ldb sxhash-bits-byte s-expr))         (integer (ldb sxhash-bits-byte s-expr))

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

  ViewVC Help
Powered by ViewVC 1.1.5