X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-type.lisp;h=e44501f2806baedcb6c10e1b84a4f56400f8edba;hb=62c09fabe8aa8f1bd75bf4db4c20e195a1b6bc1d;hp=557f6db0b0e7bba54654c095b7b4f59752133d4d;hpb=9489abab7f981b8eea2aec8a883f2eb48d4cb138;p=sbcl.git

diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp
index 557f6db..e44501f 100644
--- a/src/code/cross-type.lisp
+++ b/src/code/cross-type.lisp
@@ -86,7 +86,7 @@
 		 '(array character list symbol))
 	   raw-result)
 	  (t
-	   (error "can't handle TYPE-OF ~S in cross-compilation")))))
+	   (error "can't handle TYPE-OF ~S in cross-compilation" object)))))
 
 ;;; Is SYMBOL in the CL package? Note that we're testing this on the
 ;;; cross-compilation host, which could do things any old way. In