X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/c854aac9c0418e9c7394b8060bf8d45064e47ef2..953030a3519ecb9d66d9f55d46f8c8b6906094ed:/glib/defpackage.lisp diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp index bc9000e..ae0eae1 100644 --- a/glib/defpackage.lisp +++ b/glib/defpackage.lisp @@ -20,12 +20,11 @@ ;; 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.24 2007-09-07 07:31:40 espen Exp $ +;; $Id: defpackage.lisp,v 1.26 2007-10-17 14:30:00 espen Exp $ (defpackage "GLIB" - (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS" #+sbcl"SB-SIMPLE-STREAMS" ;#+sbcl"SB-GRAY" - ) + (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS") #+cmu(:use "PCL" "EXT") #+sbcl(:use "SB-MOP" "SB-EXT") #+sb-thread(:use "SB-THREAD") @@ -36,9 +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" "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" @@ -78,7 +78,8 @@ "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"