/[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.21 by wlott, Wed Nov 4 17:51:03 1992 UTC revision 1.21.1.1 by ram, Wed Feb 10 22:42:03 1993 UTC
# Line 511  Line 511 
511      (list (sxhash-list s-expr depth))      (list (sxhash-list s-expr depth))
512      (fixnum      (fixnum
513       (ldb sxhash-bits-byte s-expr))       (ldb sxhash-bits-byte s-expr))
514      (structure      (instance
515       (internal-sxhash (type-of s-expr) depth))       (if (typep s-expr 'structure-object)
516             (internal-sxhash (class-name (layout-class (%instance-layout s-expr)))
517                              depth)
518             42))
519      ;; Other-pointer types.      ;; Other-pointer types.
520      (simple-string (sxhash-simple-string s-expr))      (simple-string (sxhash-simple-string s-expr))
521      (symbol (sxhash-simple-string (symbol-name s-expr)))      (symbol (sxhash-simple-string (symbol-name s-expr)))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.21.1.1

  ViewVC Help
Powered by ViewVC 1.1.5