X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/b033ae9fe8b3589ba7f5f58f4595670b61456b59..44ad7044e286d3219ec4bba45b4aae575dffcd66:/glib/defpackage.lisp

diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp
index a467005..33ef768 100644
--- a/glib/defpackage.lisp
+++ b/glib/defpackage.lisp
@@ -20,13 +20,14 @@
 ;; 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.19 2007-01-14 22:47:36 espen Exp $
+;; $Id: defpackage.lisp,v 1.27 2008-10-09 18:20:52 espen Exp $
 
 
 (defpackage "GLIB"
   (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
   #+cmu(:use "PCL" "EXT")
   #+sbcl(:use "SB-MOP" "SB-EXT")
+  #+sb-thread(:use "SB-THREAD")
   #+clisp(:use "CLOS")
   #+clisp(:import-from "EXT" "RUN-PROGRAM")
   #+clisp(:shadowing-import-from "GFFI" "SLOT-DEFINITION-TYPE")
@@ -34,8 +35,10 @@
 
   ;; Symbols from glib.lisp  
   (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "USER-DATA-EXISTS-P"
-	   "UPDATE-USER-DATA" "DESTROY-USER-DATA" "QUARK" "QUARK-INTERN"
-	   "QUARK-TO-STRING" "GLIST" "GSLIST")
+	   "UPDATE-USER-DATA" "DESTROY-USER-DATA" "TAKE-USER-DATA"
+	   "WITH-USER-DATA" "USER-DATA-ID" "QUARK" "QUARK-INTERN" 
+	   "QUARK-TO-STRING" "GLIST" "GSLIST" "REALLOCATE-MEMORY" 
+	   "USER-CALLBACK" "GSIZE" "SLICE-ALLOC")
   ;; Symbols from gtype.lisp  
   (:export "TYPE-NUMBER" "GTYPE" "TYPE-QUERY" "TYPE-INSTANCE-SIZE"
 	   "TYPE-CLASS-SIZE" "TYPE-CLASS-REF" "TYPE-CLASS-UNREF"
@@ -64,16 +67,19 @@
   ;; Symbols from gcallback.lisp  
   (:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK" 
 	   "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE"
+	   "SOURCE-REMOVE" "+PRIORITY-DEFAULT-IDLE+" "+PRIORITY-DEFAULT+"
+	   "+PRIORITY-HIGH+" "+PRIORITY-HIGH-IDLE+" "+PRIORITY-LOW+"
 	   "ENSURE-SIGNAL-ID" "SIGNAL-LIST-NAMES" "SIGNAL-LOOKUP" 
 	   "SIGNAL-LIST-IDS" "DESCRIBE-SIGNAL" "DEFINE-SIGNAL-HANDLER"
-	   "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE"
+	   "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE" "INVOKE-SOURCE-CALLBACK"
 	   "SIGNAL-STOP-EMISSION" "SIGNAL-ADD-EMISSION-HOOK"
 	   "SIGNAL-REMOVE-EMISSION-HOOK" "SIGNAL-HAS-HANDLER-PENDING-P"
 	   "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK" 
 	   "SIGNAL-HANDLER-DISCONNECT" "SIGNAL-HANDLER-IS-CONNECTED-P" 
 	   "COMPUTE-SIGNAL-FUNCTION" "SIGNAL-CONNECT" "COMPUTE-SIGNAL-ID"
 	   "SIGNAL-EMIT-WITH-DETAIL" "SIGNAL-EMIT" "DEFINE-CALLBACK-MARSHAL"
-	   "WITH-CALLBACK-FUNCTION" "SIGNAL-NEW" "*SIGNAL-STOP-EMISSION*")
+	   "WITH-CALLBACK-FUNCTION" "SIGNAL-NEW" "*SIGNAL-STOP-EMISSION*"
+	   "CONNECT-FLAGS")
   ;; Symbols from gobject.lisp  
   (:export "GOBJECT-CLASS" "INSTANCE-SLOTS-P" "DIRECT-PROPERTY-SLOT-DEFINITION"
 	   "SLOT-DEFINITION-PNAME" "CONSTRUCT-ONLY-PROPERTY-P" 
@@ -83,9 +89,9 @@
 	   "USER-DATA-DESTROY-CALLBACK" "USER-DATA-P" "UNSET-USER-DATA"
 	   "QUERY-OBJECT-CLASS-PROPERTIES" "SLOT-DEFINITIONS" 
 	   "EXPAND-GOBJECT-TYPE" "GOBJECT-DEPENDENCIES" "SIGNAL-NAME-TO-STRING"
-	   "REFERENCED")
+	   "REFERENCED" "INITIALLY-UNOWNED")
   ;; 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"