From cf23b9594b3902181861f4ffa08f06fad758d5c0 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 8 Jan 2026 08:06:55 -0700 Subject: cleaning up unused variables --- lisp/git/git.lisp | 1 - lisp/queue/queue.lisp | 2 +- 2 files changed, 1 insertion(+), 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 () -- cgit v1.3