From 5498f6df0e050e4bdb1957e3f2f107de2e54e67a Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 8 Apr 2005 20:29:38 +0000 Subject: [PATCH] 0.8.21.27: trivial micro-optimization of SXHASH: remove &OPTIONAL from (LABELS SXHASH-RECURSE). --- src/code/target-sxhash.lisp | 4 ++-- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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" -- 1.7.10.4