X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=00661e52e010a3c31d40fed41e4119e98455fbdb;hp=8ce12ed654669429407a30489f7e992304e77c04;hb=c95e1c913434a72adea1a00b8779aed053bcc343;hpb=26720328bdd7d8f28c3247063c477f05f3a7251e

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 8ce12ed..00661e5 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -173,8 +173,8 @@
 
            (format *report-stream* "~&Tests skipped:")
            (if skip-tests
-               (let ((max-test-name 20))
-                 (dolist (skipped skip-tests)
+               (let ((max-test-name (length (symbol-name (caar skip-tests)))))
+                 (dolist (skipped (cdr skip-tests))
                    (let ((len (length (symbol-name (car skipped)))))
                      (when (> len max-test-name)
                        (setq max-test-name len))))