/[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.30 by dtc, Thu Jan 13 16:53:24 2000 UTC revision 1.31 by dtc, Thu Jan 13 16:54:31 2000 UTC
# Line 855  Line 855 
855    (typecase s-expr    (typecase s-expr
856      ;; The pointers and immediate types.      ;; The pointers and immediate types.
857      (list (sxhash-list s-expr depth))      (list (sxhash-list s-expr depth))
858      (fixnum (logand s-expr (1- most-positive-fixnum)))      (fixnum (ldb sxhash-bits-byte s-expr))
859      (instance      (instance
860       (if (typep s-expr 'structure-object)       (if (typep s-expr 'structure-object)
861           (internal-sxhash (class-name (layout-class (%instance-layout s-expr)))           (internal-sxhash (class-name (layout-class (%instance-layout s-expr)))

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5