diff options
| -rw-r--r-- | lisp/git/git.lisp | 1 | ||||
| -rw-r--r-- | lisp/queue/queue.lisp | 2 |
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 () |