From a4ea8cefca32d80fb894106bb1f43677f587cdc4 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Wed, 21 Aug 2013 20:03:07 +0200 Subject: [PATCH] Fix FORMAT specifier X. --- src/boot.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/boot.lisp b/src/boot.lisp index d233b93..5f6bbca 100644 --- a/src/boot.lisp +++ b/src/boot.lisp @@ -520,7 +520,7 @@ `(let ((,g!x ,x)) (typecase ,g!x ,@clausules - (t (error "~X fell through etypecase expression." ,g!x)))))) + (t (error "~S fell through etypecase expression." ,g!x)))))) (defun notany (fn seq) (not (some fn seq))) -- 1.7.10.4