cleaning up unused variables

2 files changed, 1 insertions, 2 deletions

diff --git a/lisp/git/git.lisp b/lisp/git/git.lisp
index a73a5d3..601a312 100644
--- a/lisp/git/git.lisp
+++ b/lisp/git/git.lisp
@@ -82,7 +82,6 @@
   (let* ((output (make-array '(0) :element-type 'character :fill-pointer 0 :adjustable t))
          (fulldir (subseq (remote git-update-task) 15 (- (length (remote git-update-task)) 4)))
          (org (first (ppcre:split "/" fulldir)))
-         (repo (second (ppcre:split "/" fulldir)))
          (status-command (format nil "cd ~a/~a ; git status" (pwd git-update-task) fulldir))
          (fetch-command (format nil "cd ~a/~a ; git fetch --prune" (pwd git-update-task) fulldir))
          (branch-command (format nil "cd ~a/~a ; PAGER=cat git branch | grep -F '*' | awk '{print $2}'" (pwd git-update-task) fulldir))
diff --git a/lisp/queue/queue.lisp b/lisp/queue/queue.lisp
index ecd517f..47b9e65 100644
--- a/lisp/queue/queue.lisp
+++ b/lisp/queue/queue.lisp
@@ -12,7 +12,7 @@
 (defvar *queue-mutex* (sb-thread:make-mutex))
 
 (defmacro with-error-handled-thread ((thread-name level) &body body)
-  "`level' is either :warning or :critical."
+  (declare (ignore level))
   (let ((thread-fn (intern (string-upcase thread-name) *package*)))
     `(progn
        (defun ,thread-fn ()