X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fboot.lisp;h=5f6bbcaf15c08af47bf7798612d62e1590c62c5d;hb=a4ea8cefca32d80fb894106bb1f43677f587cdc4;hp=d233b93130711be851ba5cca8adf5fed9da2da7d;hpb=64b68149034e7cafa679bbfe3eea082fc07c2515;p=jscl.git

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)))