diff options
| -rw-r--r-- | logikorr.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/logikorr.lisp b/logikorr.lisp index d9f0098..a6d6fa4 100644 --- a/logikorr.lisp +++ b/logikorr.lisp @@ -227,7 +227,7 @@ div.autocomplete ul li { (if (student-last-name student) (format out "~&~A, ~A" (student-last-name student) (student-first-name student)) (format out "~&~A" (student-first-name student))) - (format out "~&~A" (coerce (student-score student) 'list)) + (format out "~&(~{~3S~^ ~} )" (coerce (student-score student) 'list)) (format out "~%~%"))))) (defun start-logikorr () |