;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
(code :allocation :alien :type int :reader gerror-code)
(message :allocation :alien :type string :reader gerror-message))
(:metaclass struct-class)
(code :allocation :alien :type int :reader gerror-code)
(message :allocation :alien :type string :reader gerror-message))
(:metaclass struct-class)
(message :initarg :message :reader gerror-message))
(:report (lambda (condition stream)
(write-string (gerror-message condition) stream))))
(message :initarg :message :reader gerror-message))
(:report (lambda (condition stream)
(write-string (gerror-message condition) stream))))
(define-type-method from-alien-form ((type gerror-signal) gerror &key (ref :free))
(declare (ignore type))
`(let ((gerror ,(from-alien-form 'gerror gerror :ref ref)))
(define-type-method from-alien-form ((type gerror-signal) gerror &key (ref :free))
(declare (ignore type))
`(let ((gerror ,(from-alien-form 'gerror gerror :ref ref)))