summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--logikorr.lisp2
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 ()