From f7573853a52645ace0fa1989781d2454ed653961 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 19 Feb 2006 19:53:52 +0000 Subject: [PATCH] Definition of type gclosure moved before it's first use in the file Organization: Straylight/Edgeware From: espen --- glib/gcallback.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp index fe27314..ab86470 100644 --- a/glib/gcallback.lisp +++ b/glib/gcallback.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: gcallback.lisp,v 1.30 2006/02/19 19:31:14 espen Exp $ +;; $Id: gcallback.lisp,v 1.31 2006/02/19 19:53:52 espen Exp $ (in-package "GLIB") @@ -29,6 +29,9 @@ (use-prefix "g") ;;;; Callback invokation +(deftype gclosure () 'pointer) +(register-type 'gclosure '|g_closure_get_type|) + (defun register-callback-function (function) (check-type function (or null symbol function)) (register-user-data function)) @@ -317,9 +320,6 @@ (defbinding signal-handler-is-connected-p () boolean (instance ginstance) (handler-id unsigned-int)) -(deftype gclosure () 'pointer) -(register-type 'gclosure '|g_closure_get_type|) - (defbinding (callback-closure-new "clg_callback_closure_new") () gclosure (callback-id unsigned-int) (callback callback) -- [mdw]