projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.21.50:
[sbcl.git]
/
src
/
code
/
target-sxhash.lisp
diff --git
a/src/code/target-sxhash.lisp
b/src/code/target-sxhash.lisp
index
df0ec12
..
35fdcdc
100644
(file)
--- a/
src/code/target-sxhash.lisp
+++ b/
src/code/target-sxhash.lisp
@@
-164,7
+164,7
@@
(mixf result (sxhash-number (realpart x)))
(mixf result (sxhash-number (imagpart x)))
result))))
(mixf result (sxhash-number (realpart x)))
(mixf result (sxhash-number (imagpart x)))
result))))
- (sxhash-recurse (x &optional (depthoid +max-hash-depthoid+))
+ (sxhash-recurse (x depthoid)
(declare (type index depthoid))
(typecase x
;; we test for LIST here, rather than CONS, because the
(declare (type index depthoid))
(typecase x
;; we test for LIST here, rather than CONS, because the
@@
-209,7
+209,7
@@
(number (sxhash-number x))
(generic-function (sxhash-instance x))
(t 42))))
(number (sxhash-number x))
(generic-function (sxhash-instance x))
(t 42))))
- (sxhash-recurse x)))
+ (sxhash-recurse x +max-hash-depthoid+)))
\f
;;;; the PSXHASH function
\f
;;;; the PSXHASH function