(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)
;; alien values) both messy to do by hand and very important
;; for performance of later code which uses the return value.
(declaim (ftype (function ,(lisp-arg-types)
- (values ,@(lisp-result-types)))
+ (values ,@(lisp-result-types) &optional))
,lisp-name))
(defun ,lisp-name ,(lisp-args)
,@(docs)