Exporting new symbols

diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp
index 223aee770b979c9b7f468ad86074eb66a6181313..ae0eae1d24de404ea445d801361a8ee2be2d8c2d 100644 (file)
--- a/glib/defpackage.lisp
+++ b/glib/defpackage.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.
 
 ;; 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.25 2007-09-07 07:53:03 espen Exp $
+;; $Id: defpackage.lisp,v 1.26 2007-10-17 14:30:00 espen Exp $

 
 
 (defpackage "GLIB"
 
 
 (defpackage "GLIB"


@@ -35,9 +35,10 @@ (defpackage "GLIB"
 
   ;; Symbols from glib.lisp  
   (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "USER-DATA-EXISTS-P"
 
   ;; 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" "REALLOCATE-MEMORY"
-           "USER-CALLBACK")
+          "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"
   ;; Symbols from gtype.lisp  
   (:export "TYPE-NUMBER" "GTYPE" "TYPE-QUERY" "TYPE-INSTANCE-SIZE"
           "TYPE-CLASS-SIZE" "TYPE-CLASS-REF" "TYPE-CLASS-UNREF"


@@ -77,7 +78,8 @@ (defpackage "GLIB"
           "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"
           "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" 
   ;; Symbols from gobject.lisp  
   (:export "GOBJECT-CLASS" "INSTANCE-SLOTS-P" "DIRECT-PROPERTY-SLOT-DEFINITION"
           "SLOT-DEFINITION-PNAME" "CONSTRUCT-ONLY-PROPERTY-P"