Add failtail to irepl, fix up cantbuild to leave a comment on the issue with the log

Author: quicklisp

git.lisp

@@ -39,6 +39,14 @@
       (run "git" "commit" "-m" message))
     (list :committed (name source) :with message)))
 
+(defmacro with-issue-number ((var source) &body body)
+  (let ((source-var (copy-symbol 'source)))
+    `(let* ((,source-var (source-designator ,source))
+	    (,var (github-issue-number ,source-var)))
+       (unless ,var
+	 (error "Can't find issue number for ~A" ,source-var))
+       ,@body)))
+
 (defun set-issue-label (source label)
   (setf source (source-designator source))
   (let ((issue-number (github-issue-number source)))
@@ -49,6 +57,13 @@
                                 :number issue-number
                                 :body (githappy:js "labels" (list label)))))
 
+(defun comment-on-issue (source comment)
+  (with-issue-number (number source)
+    (githappy:create-repo-issue-comment :body (githappy:js "body" comment)
+					:issue-number number
+					:repo "quicklisp-projects"
+					:owner "quicklisp")))
+
 (defun mark-canbuild (source)
   (set-issue-label source "canbuild"))
 

irepl.lisp

@@ -126,12 +126,15 @@
 
 (define-irepl-command skip
   (let ((index (position-if-not (=jref '("labels" :* "name"))
-				(all-issues *irepl-state*))))
+                                (all-issues *irepl-state*))))
     (if index
-	(progn
-	  (setf (issue-index *irepl-state*) index)
-	  (invoke-irepl-command 'show))
-	(format t "; No issue without labels~%"))))
+        (progn
+          (setf (issue-index *irepl-state*) index)
+          (invoke-irepl-command 'show))
+        (format t "; No issue without labels~%"))))
+
+(define-irepl-command failtail
+  (failtail))
 
 (defvar *irepl-guess-patterns*
   "https://github.com/")
@@ -142,9 +145,15 @@
     :canbuild))
 
 (define-irepl-command cantbuild
-  (when *last-source*
-    (mark-cantbuild *last-source*)
-    :cantbuild))
+  (cond (*last-source*
+         (mark-cantbuild *last-source*)
+         (let ((log-url (publish-source-failure *last-source*)))
+           (comment-on-issue *last-source*
+                             (format nil "Failure log here: ~A"
+                                     log-url)))
+         :cantbuild)
+        (t
+         (warn "No last-source defined"))))
 
 (define-irepl-command commit
   (when *last-source*