[armedbear-cvs] r13044 - branches/0.23.x/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Nov 22 15:19:59 2010
New Revision: 13044

Log:
Backport line number table fix.

Modified:
   branches/0.23.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: branches/0.23.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- branches/0.23.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ branches/0.23.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Mon Nov 22 15:19:59 2010
@@ -6770,7 +6770,7 @@
     (class-add-method class-file method)
     (when (fixnump *source-line-number*)
       (let ((table (make-line-numbers-attribute)))
-        (method-add-attribute method table)
+        (code-add-attribute *current-code-attribute* table)
         (line-numbers-add-line table 0 *source-line-number*)))
 
     (dolist (var (compiland-arg-vars compiland))