Fri Jul 3 11:50:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Fix methods and method-maps bounds.

--- old-smoke/src/overload-resolution.lisp 2014-10-30 08:13:30.000000000 +0100

+++ new-smoke/src/overload-resolution.lisp 2014-10-30 08:13:30.000000000 +0100

@@ -93,7 +93,7 @@

(let* ((start 1) ;; 0 is "no method"

(class-id (id class))

(smoke (smoke class))

- (end (smoke-array-length (smoke-module-method-maps smoke))))

+ (end (1+ (smoke-array-length (smoke-module-method-maps smoke)))))

(declare (type (smoke-index 0) start end))

(loop until (> start end) do

(let* ((index (the smoke-index (floor (+ end start) 2)))