X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fassertoid.lisp;h=0e76532d70d7ce7df34e04d8a0411c982a9e9f00;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=f50270bb08fd379234dfa164f34175fa01450cb7;hpb=0957d59ccfaf3db9aaf79a7f4909a40ea0ca0dcd;p=sbcl.git

diff --git a/tests/assertoid.lisp b/tests/assertoid.lisp
index f50270b..0e76532 100644
--- a/tests/assertoid.lisp
+++ b/tests/assertoid.lisp
@@ -89,7 +89,7 @@
     (flet ((frob (evaloid)
 		 (let ((result (funcall evaloid expr)))
 		   (unless (funcall eval-expected-lambda result)
-		     (error "failed assertoid" expr))))
+		     (error "failed assertoid ~S" expr))))
 	   (compile-as-evaloid (optimizations)
              (lambda (expr)
 	       (funcall (compile nil