From: Christophe R. <cr...@us...> - 2003-08-19 13:12:05
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv24510/src/code Modified Files: target-alieneval.lisp Log Message: 0.8.2.44: Mostly contrib frobs ... merge sb-grovel string handling (Andreas Fuchs sbcl-devel 2003-08-19) ... hack at sb-posix designator concept until it doesn't blow up when given list types; ... implement opendir/readdir/closedir in sb-posix [not yet properly: everything is done with (* T) rather than (* DIR) and (* DIRENT), but the interface is fine]; ... add a FINISH-OUTPUT to sb-rt, so that the failing tests are printed before the backtrace, not during; ... print ALIEN-VALUEs' alien type in PRINT-OBJECT Index: target-alieneval.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/target-alieneval.lisp,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- target-alieneval.lisp 5 Jun 2003 06:24:27 -0000 1.23 +++ target-alieneval.lisp 19 Aug 2003 13:04:40 -0000 1.24 @@ -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) |