Added SB-THREAD to list of used packages and exporting a couple more symbols

diff --git a/glib/defpackage.lisp b/glib/defpackage.lisp
index 8e75a480ee9f2bac0e627d05e6b25d484027fe46..7000242541deaa79fe6432d281ac9c8b47422a90 100644 (file)
--- a/glib/defpackage.lisp
+++ b/glib/defpackage.lisp
@@ -20,13 +20,14 @@
 ;; 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.20 2007/02/19 13:07:46 espen Exp $
+;; $Id: defpackage.lisp,v 1.21 2007/06/15 12:05:17 espen Exp $

 
 
 (defpackage "GLIB"
   (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
   #+cmu(:use "PCL" "EXT")
   #+sbcl(:use "SB-MOP" "SB-EXT")
 
 
 (defpackage "GLIB"
   (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
   #+cmu(:use "PCL" "EXT")
   #+sbcl(:use "SB-MOP" "SB-EXT")

+  #+sb-thread(:use "SB-THREAD")

   #+clisp(:use "CLOS")
   #+clisp(:import-from "EXT" "RUN-PROGRAM")
   #+clisp(:shadowing-import-from "GFFI" "SLOT-DEFINITION-TYPE")
   #+clisp(:use "CLOS")
   #+clisp(:import-from "EXT" "RUN-PROGRAM")
   #+clisp(:shadowing-import-from "GFFI" "SLOT-DEFINITION-TYPE")


@@ -64,6 +65,7 @@ (defpackage "GLIB"
   ;; Symbols from gcallback.lisp  
   (:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK" 
           "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE"
   ;; Symbols from gcallback.lisp  
   (:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK" 
           "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-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"
           "ENSURE-SIGNAL-ID" "SIGNAL-LIST-NAMES" "SIGNAL-LOOKUP" 
           "SIGNAL-LIST-IDS" "DESCRIBE-SIGNAL" "DEFINE-SIGNAL-HANDLER"
           "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE"