diff options
| -rw-r--r-- | src/main.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/main.lisp b/src/main.lisp index 0706a33..2e80fc7 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -32,7 +32,9 @@ (max-results (gethash "maxResults" response)) (total (gethash "total" response))) - (watch-issues (gethash "issues" response)) + (loop for issue + across (gethash "issues" response) + do (watch-issue issue)) ;; Stop looping if we're on the last page of results. (when (> start-at @@ -50,6 +52,5 @@ (:authorization . ,(format nil "Basic ~A" basic-auth-token)))))) -(defun watch-issues (issues) - (loop for issue across issues do - (format t "Watching issue ~A~%" (gethash "key" issue)))) +(defun watch-issue (issue) + (format t "Watching issue ~A~%" (gethash "key" issue))) |