From da8acd0a54c59604d405b74b101961abcc8e4f1d Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 26 Nov 2009 13:45:00 +0100 Subject: Adapt database format to the conventions. --- logikorr.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 () -- cgit v1.2.3