From 4279c16ce130be8a3543a558e03b5411045f2452 Mon Sep 17 00:00:00 2001 Message-Id: <4279c16ce130be8a3543a558e03b5411045f2452.1713587293.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 10 Dec 2008 02:42:47 +0000 Subject: [PATCH] Exporting new symbols Organization: Straylight/Edgeware From: espen --- glib/defpackage.lisp | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp index cf6a999..1679b45 100644 --- 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.28 2008-11-04 03:22:23 espen Exp $ +;; $Id: defpackage.lisp,v 1.29 2008-12-10 02:42:47 espen Exp $ (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" - "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" @@ -47,7 +47,7 @@ (defpackage "GLIB" "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" @@ -95,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" - "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" - "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 - (: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") + ) + -- [mdw]