printing locations of method definitions. closes #182

j/abstractarray.j

@@ -1361,4 +1361,4 @@ end
 
 summary{T,N}(s::SubArray{T,N}) =
     strcat(dims2string(size(s)), " SubArray of ",
-           summary(s.parent))
+           summary(s.parent))

src/boot.j

@@ -256,7 +256,7 @@ function append_any(xs...)
     for x = xs
         n += length(x)
     end
-    out = Array{Any,1}((n,))
+    out = Array(Any, n)
     i = 1
     for x = xs
         for y = x

src/gf.c

@@ -1200,8 +1200,25 @@ static void print_methlist(char *name, jl_methlist_t *ml)
     while (ml != NULL) {
         ios_printf(s, "%s", name);
         jl_show((jl_value_t*)ml->sig);
-        if (ml->func == NULL)  // mark dummy cache entries
+        if (ml->func == NULL)  {
+            // mark dummy cache entries
             ios_printf(s, " *");
+        }
+        else {
+            jl_lambda_info_t *li = ml->func->linfo;
+            if (li != NULL && li->ast != NULL && jl_is_expr(li->ast)) {
+                jl_expr_t *body1 = (jl_expr_t*)jl_exprarg(jl_lam_body((jl_expr_t*)li->ast),0);
+                if (jl_is_expr(body1) &&
+                    ((jl_expr_t*)body1)->head == line_sym) {
+                    long lno = jl_unbox_long(jl_exprarg(body1, 0));
+                    char *fname = ((jl_sym_t*)jl_exprarg(body1, 1))->name;
+                    char *sep = strrchr(fname, '/');
+                    if (sep)
+                        fname = sep+1;
+                    ios_printf(s, " at %s:%d", fname, lno);
+                }
+            }
+        }
         //if (ml->func && ml->func->linfo && ml->func->linfo->ast &&
         //    ml->func->linfo->inferred) {
         //    jl_show(ml->func->linfo->ast);