Fri Jul 3 11:50:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix methods and method-maps bounds.
hunk ./src/object-map.lisp 43
- (warn "life object ~A" (class-of object))
+ (warn "life object ~A" object)
hunk ./src/objects/method.lisp 88
- (loop for id from 1 to length do
+ (loop for id from 0 below length do ;; exception: methods is < lenght
hunk ./src/overload-resolution.lisp 96
- (end (smoke-array-length (smoke-module-method-maps smoke))))
+ (end (1+ (smoke-array-length (smoke-module-method-maps smoke)))))