Use keywords for loop specific symbols

2025-01-03 16:24:56 +01:00 · 2025-01-03 16:24:56 +01:00 · 2f01a098ea
commit 2f01a098ea
parent 05fed06cc4
1 changed files with 6 additions and 6 deletions
--- a/src/assessment/nps.lisp
+++ b/src/assessment/nps.lisp
@ -10,12 +10,12 @@
  (check-type data list)
  (unless data (error "Empty DATA list."))
  (let ((clean-data (remove-if (lambda (x) (or (> x 10) (< x 1))) data)))
-    (loop for score in clean-data
-          counting (>= score 9) into promoters
-          counting (<= score 6) into detractors
-          finally (return (list promoters
-                                detractors
-                                (length clean-data))))))
+    (loop :for score :in clean-data
+          :counting (>= score 9) :into promoters
+          :counting (<= score 6) :into detractors
+          :finally (return (list promoters
+                                 detractors
+                                 (length clean-data))))))

 ;;;
 ;;; CALCULATOR