[armedbear-cvs] r13268 - trunk/abcl/test/lisp/ansi

[Mark Evenson]

Author: mevenson
Date: Thu Apr 14 07:16:26 2011
New Revision: 13268

Log:
Start of tool grab and analyze ANSI error reports from SLIME.

Added:
   trunk/abcl/test/lisp/ansi/slime-ansi.el

Added: trunk/abcl/test/lisp/ansi/slime-ansi.el
==============================================================================
--- (empty file)
+++ trunk/abcl/test/lisp/ansi/slime-ansi.el	Thu Apr 14 07:16:26 2011
@@ -0,0 +1,11 @@
+(defun copy-previous-ansi-failures ()
+  "From the SLIME REPL buffer, copy the previous ANSI error report to kill ring."
+  (interactive)
+  (save-excursion 
+    (unless 
+        (search-backward "<--- Invocation of ")
+      (error "Failed to find end of test invocation"))
+    (previous-line 4)
+    (let ((end (point)))
+      (backward-sexp)
+      (copy-region-as-kill (point) end))))