From 394224eadd2e53b487a950798e53b83bed5760c0 Mon Sep 17 00:00:00 2001 From: eriedaberrie Date: Thu, 7 Nov 2024 15:18:18 -0800 Subject: [PATCH] chore: sync-music: capitalize comments --- sync-music/actions.lisp | 2 +- sync-music/sync-music.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/sync-music/actions.lisp b/sync-music/actions.lisp index 2adb9c4..0109337 100644 --- a/sync-music/actions.lisp +++ b/sync-music/actions.lisp @@ -79,6 +79,6 @@ Pushes status message about this action to QUEUE if given.")) (defmethod action-perform-describe ((a directory-action)) (format nil "Ensuring `~A` exists..." (action-target a))) -;; NOTE: delete actions are equal to copy actions to the same target +;; NOTE: Delete actions are equal to copy actions to the same target (defmethod fset:compare ((a1 action) (a2 action)) (fset:compare-slots a1 a2 #'action-target)) diff --git a/sync-music/sync-music.lisp b/sync-music/sync-music.lisp index 644e3ef..663bdb4 100644 --- a/sync-music/sync-music.lisp +++ b/sync-music/sync-music.lisp @@ -91,7 +91,7 @@ total task count as arguments." (defun clean-directory (target) "Delete all empty folders and folders containing only empty folders in TARGET." - ;; NOTE: want (every #'clean-directory ...) but without short-circuiting + ;; NOTE: Want (every #'clean-directory ...) but without short-circuiting (and (every #'identity (mapcar #'clean-directory (uiop:subdirectories target))) (null (uiop:directory-files target))