From c95e1c913434a72adea1a00b8779aed053bcc343 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Wed, 3 Feb 2010 10:32:27 -0700 Subject: [PATCH] Allow skipped test name field width to be as narrow as possible --- tests/test-init.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.34.1