X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-alieneval.lisp;h=ff91742582974e2cefae206d1684775266016c5b;hb=4c16a9ef1bd70752c2d40d65211ecb76956bbd1d;hp=fe4aff5e366ca94201a467242aafa0edf760d8e4;hpb=d7ca32c95549ea9dd6c68b813c4ac1f1d66984e1;p=sbcl.git

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index fe4aff5..ff91742 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -178,9 +178,10 @@
 (def!method print-object ((value alien-value) stream)
   (print-unreadable-object (value stream)
     (format stream
-	    "~S :SAP #X~8,'0X"
+	    "~S ~S #X~8,'0X ~S ~S"
 	    'alien-value
-	    (sap-int (alien-value-sap value)))))
+	    :sap (sap-int (alien-value-sap value))
+	    :type (unparse-alien-type (alien-value-type value)))))
 
 #!-sb-fluid (declaim (inline null-alien))
 (defun null-alien (x)