[armedbear-cvs] r13043 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Nov 22 15:19:27 2010
New Revision: 13043

Log:
Fix our line number table generation;
put the line number table on the Code attribute
instead of on the method itself.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Mon Nov 22 15:19:27 2010
@@ -6792,7 +6792,7 @@
 
       (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))