Modified GVALUE-TYPE to return NIL on uninitialized gvalues

[clg] / glib / defpackage.lisp

diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp
index 7000242541deaa79fe6432d281ac9c8b47422a90..7f79d4c37df42cc9edd325d61681e7102790443d 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.
 
-;; $Id: defpackage.lisp,v 1.21 2007/06/15 12:05:17 espen Exp $
+;; $Id: defpackage.lisp,v 1.23 2007/06/25 13:48:10 espen Exp $
 
 
 (defpackage "GLIB"
@@ -65,10 +65,10 @@ (defpackage "GLIB"
   ;; Symbols from gcallback.lisp  
   (:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK" 
           "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE"
-          "+PRIORITY-DEFAULT-IDLE+" "+PRIORITY-DEFAULT+"
+          "SOURCE-REMOVE" "+PRIORITY-DEFAULT-IDLE+" "+PRIORITY-DEFAULT+"
           "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"