From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Fri, 8 Apr 2005 20:29:38 +0000 (+0000)
Subject: 0.8.21.27: trivial micro-optimization of SXHASH: remove &OPTIONAL from
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5498f6df0e050e4bdb1957e3f2f107de2e54e67a;p=sbcl.git

0.8.21.27: trivial micro-optimization of SXHASH: remove &OPTIONAL from
  (LABELS SXHASH-RECURSE).
---

diff --git a/src/code/target-sxhash.lisp b/src/code/target-sxhash.lisp
index df0ec12..35fdcdc 100644
--- 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))))
-	   (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
@@ -209,7 +209,7 @@
 	       (number (sxhash-number x))
 	       (generic-function (sxhash-instance x))
 	       (t 42))))
-    (sxhash-recurse x)))
+    (sxhash-recurse x +max-hash-depthoid+)))
 
 ;;;; the PSXHASH function
 
diff --git a/version.lisp-expr b/version.lisp-expr
index dd903df..1fddd51 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.21.26"
+"0.8.21.27"