http://sourceforge.jp/ticket/browse.php?group_id=4980&tid=27694 対応(CommonLisp版)
trunk/cl-igo/matrix.lisp (diff)| @@ -32,4 +32,4 @@ | ||
| 32 | 32 | (declare ((unsigned-byte 16) left-id right-id)) |
| 33 | 33 | (the (signed-byte 16) |
| 34 | 34 | (aref (matrix matrix) |
| 35 | - (+ (* (right-size matrix) right-id) left-id)))) | |
| \ No newline at end of file | ||
| 35 | + (+ (* (left-size matrix) right-id) left-id)))) | |
| \ No newline at end of file |
