src/objects/method.lisp
Fri Jul 3 11:50:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix methods and method-maps bounds.
--- old-smoke/src/objects/method.lisp 2014-10-30 08:13:28.000000000 +0100
+++ new-smoke/src/objects/method.lisp 2014-10-30 08:13:28.000000000 +0100
@@ -85,7 +85,7 @@
(optimize (speed 3)))
(let ((method (make-smoke-method :smoke smoke :id 0))
(length (smoke-array-length (smoke-module-methods smoke))))
- (loop for id from 1 to length do
+ (loop for id from 0 below length do ;; exception: methods is < lenght
(setf (smoke-method-id method) id)
(funcall function method))))