Re-registering custom signals and class closures when loading saved images

[clg] / glib / defpackage.lisp

diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp
index fe5a3cdac256806125170475b407ef8af5c76490..653bc96d8c5ced6e6fb933a1c1f45353ea4a58c6 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.27 2008/10/09 18:20:52 espen Exp $
+;; $Id: defpackage.lisp,v 1.29 2008/12/10 02:42:47 espen Exp $

 
 
 (defpackage "GLIB"
 
 
 (defpackage "GLIB"


@@ -38,7 +38,7 @@ (defpackage "GLIB"
           "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" 
           "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")
+          "USER-CALLBACK" "GSIZE" "GSSIZE" "GOFFSET" "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"


@@ -47,11 +47,12 @@ (defpackage "GLIB"
           "FIND-TYPE-NUMBER" "TYPE-FROM-NUMBER" "SUPERTYPE"
           "GINSTANCE-CLASS" "GINSTANCE" "REGISTER-DERIVABLE-TYPE"
           "INIT-TYPES-IN-LIBRARY" "DEFINE-TYPES-BY-INTROSPECTION"
           "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")
+          "DEFINE-TYPES-IN-LIBRARY" "TYPE-FROM-GLIB-NAME")

   ;; Symbols from gparam.lisp  
   (:export "GVALUE" "GVALUE-INIT" "GVALUE-NEW" "GVALUE-FREE" "GVALUE-TYPE" 
           "GVALUE-GET" "GVALUE-SET" "GVALUE-UNSET" "VALUE-P" "WITH-GVALUE" 
   ;; Symbols from gparam.lisp  
   (:export "GVALUE" "GVALUE-INIT" "GVALUE-NEW" "GVALUE-FREE" "GVALUE-TYPE" 
           "GVALUE-GET" "GVALUE-SET" "GVALUE-UNSET" "VALUE-P" "WITH-GVALUE" 

-          "+GVALUE-SIZE+" "+GVALUE-VALUE-OFFSET+" "PARAM-FLAG-TYPE" "PARAM" 
+          "+GVALUE-SIZE+" "+GVALUE-VALUE-OFFSET+" "GVALUE-STATIC-P"
+          "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-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"


@@ -94,10 +95,16 @@ (defpackage "GLIB"
   (:export "INTERFACE" "INTERFACE-CLASS" "QUERY-OBJECT-INTERFACE-PROPERTIES")
   ;; Symbols from gerror.lisp  
   (:export "GERROR" "GERROR-DOMAIN" "GERROR-CODE" "GERROR-MESSAGE" 
   (: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" 
+          "GLIB-ERROR" "GLIB-FILE-ERROR" "SIGNAL-GERROR" "FILE-ERROR-DOMAIN"

           "GERROR-SIGNAL" "LOG-LEVELS" "LOG-DOMAIN" "LOG-MESSAGE" 
           "UNKNOWN-LOG-LEVEL" "ERROR-LOG-LEVEL" "CRITICAL-LOG-LEVEL" 
           "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"
+          "FILE-ERROR-ENUM" "GERROR-NEW" "GERROR-SET" "GERROR-SET-IN-CALLBACK")

   ;; Symbols from genum.lisp  
   ;; Symbols from genum.lisp  

-  (:export "QUERY-ENUM-VALUES"))
+  (:export "QUERY-ENUM-VALUES")
+  ;; Symbols from main-loop.lisp  
+  (:export "MAIN-LOOP" "MAIN-LOOP-RUN" "MAIN-LOOP-QUIT" "WITH-MAIN-LOOP"
+          "MAIN-LOOP-CONTEXT" "MAIN-LOOP-IS-RUNNING-P")
+  )
+