X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/36d29912fa3b6cda520e0022b1876c35242a8e49..b7c49e0c03879ad0af9fcfd0910357290f32d35a:/glib/defpackage.lisp?ds=sidebyside

diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp
index dbaae3b..0ea858b 100644
--- a/glib/defpackage.lisp
+++ b/glib/defpackage.lisp
@@ -1,5 +1,5 @@
 ;; Common Lisp bindings for GTK+ v2.x
-;; Copyright 1999-2005 Espen S. Johnsen <espen@users.sf.net>
+;; Copyright 1999-2006 Espen S. Johnsen <espen@users.sf.net>
 ;;
 ;; Permission is hereby granted, free of charge, to any person obtaining
 ;; a copy of this software and associated documentation files (the
@@ -20,9 +20,8 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: defpackage.lisp,v 1.13 2006-04-25 20:55:22 espen Exp $
+;; $Id: defpackage.lisp,v 1.20 2007-02-19 13:07:46 espen Exp $
 
-;(export 'kernel::type-expand-1 "KERNEL")
 
 (defpackage "GLIB"
   (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
@@ -40,16 +39,17 @@
   ;; Symbols from gtype.lisp  
   (:export "TYPE-NUMBER" "GTYPE" "TYPE-QUERY" "TYPE-INSTANCE-SIZE"
 	   "TYPE-CLASS-SIZE" "TYPE-CLASS-REF" "TYPE-CLASS-UNREF"
-	    "TYPE-CLASS-PEEK" "TYPE-NUMBER-FROM-GLIB-NAME"
-	    "REGISTER-TYPE" "REGISTER-TYPE-ALIAS""REGISTER-NEW-TYPE"
-	    "FIND-TYPE-NUMBER" "TYPE-FROM-NUMBER" "SUPERTYPE"
-	    "GINSTANCE-CLASS" "GINSTANCE" "REGISTER-DERIVABLE-TYPE"
-	    "INIT-TYPES-IN-LIBRARY" "DEFINE-TYPES-BY-INTROSPECTION")
+	   "TYPE-CLASS-PEEK" "TYPE-NUMBER-FROM-GLIB-NAME"
+	   "REGISTER-TYPE" "REGISTER-TYPE-ALIAS""REGISTER-NEW-TYPE"
+	   "FIND-TYPE-NUMBER" "TYPE-FROM-NUMBER" "SUPERTYPE"
+	   "GINSTANCE-CLASS" "GINSTANCE" "REGISTER-DERIVABLE-TYPE"
+	   "INIT-TYPES-IN-LIBRARY" "DEFINE-TYPES-BY-INTROSPECTION"
+	   "TYPE-FROM-GLIB-NAME")
   ;; Symbols from gparam.lisp  
   (:export "GVALUE" "GVALUE-INIT" "GVALUE-NEW" "GVALUE-FREE" "GVALUE-TYPE" 
-	   "GVALUE-GET" "GVALUE-SET" "VALUE-P" "WITH-GVALUE" "+GVALUE-SIZE+"
-	   "+GVALUE-VALUE-OFFSET+" "PARAM-FLAG-TYPE" "PARAM" "PARAM-CHAR"
-	   "PARAM-UNSIGNED-CHAR" "PARAM-BOOLEAN" "PARAM-INT" 
+	   "GVALUE-GET" "GVALUE-SET" "GVALUE-UNSET" "VALUE-P" "WITH-GVALUE" 
+	   "+GVALUE-SIZE+" "+GVALUE-VALUE-OFFSET+" "PARAM-FLAG-TYPE" "PARAM" 
+	   "PARAM-CHAR" "PARAM-UNSIGNED-CHAR" "PARAM-BOOLEAN" "PARAM-INT" 
 	   "PARAM-UNSIGNED-INT" "PARAM-LONG" "PARAM-UNSIGNED-LONG"
 	   "PARAM-UNICHAR" "PARAM-ENUM" "PARAM-FLAGS" "PARAM-SINGLE-FLOAT"
 	   "PARAM-DOUBLE-FLOAT" "PARAM-STRING" "PARAM-PARAM" "PARAM-BOXED"
@@ -71,14 +71,13 @@
 	   "SIGNAL-REMOVE-EMISSION-HOOK" "SIGNAL-HAS-HANDLER-PENDING-P"
 	   "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK" 
 	   "SIGNAL-HANDLER-DISCONNECT" "SIGNAL-HANDLER-IS-CONNECTED-P" 
-	   "make-callback-closure"
 	   "COMPUTE-SIGNAL-FUNCTION" "SIGNAL-CONNECT" "COMPUTE-SIGNAL-ID"
 	   "SIGNAL-EMIT-WITH-DETAIL" "SIGNAL-EMIT" "DEFINE-CALLBACK-MARSHAL"
-	   "WITH-CALLBACK-FUNCTION")
+	   "WITH-CALLBACK-FUNCTION" "SIGNAL-NEW" "*SIGNAL-STOP-EMISSION*")
   ;; Symbols from gobject.lisp  
   (:export "GOBJECT-CLASS" "INSTANCE-SLOTS-P" "DIRECT-PROPERTY-SLOT-DEFINITION"
-	   "SLOT-DEFINITION-PNAME" "SLOT-READABLE-P" "SLOT-WRITABLE-P"
-	   "CONSTRUCT-ONLY-PROPERTY-P" "EFFECTIVE-PROPERTY-SLOT-DEFINITION"
+	   "SLOT-DEFINITION-PNAME" "CONSTRUCT-ONLY-PROPERTY-P" 
+	   "EFFECTIVE-PROPERTY-SLOT-DEFINITION"
 	   "DIRECT-USER-DATA-SLOT-DEFINITION" "EFFECTIVE-USER-DATA-SLOT-DEFINITION"
 	   "GOBJECT" "OBJECT-FREEZE-NOTIFY" "OBJECT-THAW-NOTIFY" "USER-DATA"
 	   "USER-DATA-DESTROY-CALLBACK" "USER-DATA-P" "UNSET-USER-DATA"
@@ -86,11 +85,13 @@
 	   "EXPAND-GOBJECT-TYPE" "GOBJECT-DEPENDENCIES" "SIGNAL-NAME-TO-STRING"
 	   "REFERENCED")
   ;; Symbols from ginterface.lisp  
-  (:export "GINTERFACE" "GINTERFACE-CLASS" "QUERY-OBJECT-INTERFACE-PROPERTIES")
+  (:export "INTERFACE" "INTERFACE-CLASS" "QUERY-OBJECT-INTERFACE-PROPERTIES")
   ;; Symbols from gerror.lisp  
   (:export "GERROR" "GERROR-DOMAIN" "GERROR-CODE" "GERROR-MESSAGE" 
 	   "GLIB-ERROR" "GLIB-FILE-ERROR" "SIGNAL-GERROR" 
 	   "GERROR-SIGNAL" "LOG-LEVELS" "LOG-DOMAIN" "LOG-MESSAGE" 
 	   "UNKNOWN-LOG-LEVEL" "ERROR-LOG-LEVEL" "CRITICAL-LOG-LEVEL" 
-	   "WARNING-LOG-LEVEL" "INFO-LOG-LEVEL" "DEBUG-LOG-LEVEL"))
+	   "WARNING-LOG-LEVEL" "INFO-LOG-LEVEL" "DEBUG-LOG-LEVEL")
+  ;; Symbols from genum.lisp  
+  (:export "QUERY-ENUM-VALUES"))