From f595e05cebd378ebe8c848edce5b5a37b34e308f Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sat, 29 Dec 2007 19:21:26 +0000 Subject: [PATCH] Fixed wrong initarg in GLIB-ERROR definition Organization: Straylight/Edgeware From: espen --- glib/gerror.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/glib/gerror.lisp b/glib/gerror.lisp index 69b39e9..18289d1 100644 --- a/glib/gerror.lisp +++ b/glib/gerror.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gerror.lisp,v 1.8 2007-09-07 07:32:26 espen Exp $ +;; $Id: gerror.lisp,v 1.9 2007-12-29 19:21:26 espen Exp $ (in-package "GLIB") @@ -40,7 +40,7 @@ (defbinding (%gerror-free "g_error_free") () nil (location pointer)) (define-condition glib-error (error) - ((code :initarg :domain :reader gerror-code) + ((code :initarg :code :reader gerror-code) (message :initarg :message :reader gerror-message)) (:report (lambda (condition stream) (write-string (gerror-message condition) stream)))) -- [mdw]