Fix fn naming

src/assessment/sus.lisp

@@ -2,7 +2,7 @@
 
 (in-package :ml-qmetrics/assessment)
 
-(defun sus-score (values)
+(defun sus-calc-score (values)
   (let ((values (remove-if #'keywordp values)))
     (list :SCORE (* (apply #'+ values) 2.5))))
 
@@ -27,7 +27,7 @@
                                                                  (rest response)))
         :collect (cons :TIMESTAMP
                        (cons timestamp
-                             (append values (sus-score values))))))
+                             (append values (sus-calc-score values))))))
 ;;;
 ;;; DISPLAYER
 ;;;