/[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.35 by dtc, Sat Jan 15 15:10:33 2000 UTC revision 1.36 by dtc, Sun Jan 16 20:10:39 2000 UTC
# Line 1019  Line 1019 
1019                      (internal-equalp-hash (realpart s-expr) 0)                      (internal-equalp-hash (realpart s-expr) 0)
1020                      (logxor (internal-equalp-hash (realpart s-expr) 0)                      (logxor (internal-equalp-hash (realpart s-expr) 0)
1021                              (internal-equalp-hash (realpart s-expr) 0))))))                              (internal-equalp-hash (realpart s-expr) 0))))))
1022      (simple-vector (vector-equalp-hash (truly-the simple-vector s-expr) depth))      (array
1023      (array (array-equalp-hash s-expr depth))       (typecase s-expr
1024           (simple-vector (vector-equalp-hash (truly-the simple-vector s-expr) depth))
1025           (vector (vector-equalp-hash s-expr depth))
1026           (t (array-equalp-hash s-expr depth))))
1027      ;; Everything else.      ;; Everything else.
1028      (t 42)))      (t 42)))
1029    

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

  ViewVC Help
Powered by ViewVC 1.1.5