;; 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.23 2007-06-25 13:48:10 espen Exp $
+;; $Id: defpackage.lisp,v 1.24 2007-09-07 07:31:40 espen Exp $
(defpackage "GLIB"
- (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
+ (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS" #+sbcl"SB-SIMPLE-STREAMS" ;#+sbcl"SB-GRAY"
+ )
#+cmu(:use "PCL" "EXT")
#+sbcl(:use "SB-MOP" "SB-EXT")
#+sb-thread(:use "SB-THREAD")
;; 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")
+ "QUARK-TO-STRING" "GLIST" "GSLIST" "REALLOCATE-MEMORY"
+ "USER-CALLBACK")
;; Symbols from gtype.lisp
(:export "TYPE-NUMBER" "GTYPE" "TYPE-QUERY" "TYPE-INSTANCE-SIZE"
"TYPE-CLASS-SIZE" "TYPE-CLASS-REF" "TYPE-CLASS-UNREF"
(:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK"
"TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE"
"SOURCE-REMOVE" "+PRIORITY-DEFAULT-IDLE+" "+PRIORITY-DEFAULT+"
+ "+PRIORITY-HIGH+" "+PRIORITY-HIGH-IDLE+" "+PRIORITY-LOW+"
"ENSURE-SIGNAL-ID" "SIGNAL-LIST-NAMES" "SIGNAL-LOOKUP"
"SIGNAL-LIST-IDS" "DESCRIBE-SIGNAL" "DEFINE-SIGNAL-HANDLER"
"CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE" "INVOKE-SOURCE-CALLBACK"