diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-11-26 13:45:00 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-11-26 13:45:00 +0100 |
| commit | da8acd0a54c59604d405b74b101961abcc8e4f1d (patch) | |
| tree | db3460d87e050ba14e724a54dd223ab29425fd74 | |
| parent | 226ca14e2a7c26320f507e614319d44ea26ffb68 (diff) | |
Adapt database format to the conventions.
| -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 () |