55212af1 |
1 | ;; Common Lisp bindings for GTK+ v2.x |
2 | ;; Copyright 1999-2005 Espen S. Johnsen <espen@users.sf.net> |
7d6495a4 |
3 | ;; |
55212af1 |
4 | ;; Permission is hereby granted, free of charge, to any person obtaining |
5 | ;; a copy of this software and associated documentation files (the |
6 | ;; "Software"), to deal in the Software without restriction, including |
7 | ;; without limitation the rights to use, copy, modify, merge, publish, |
8 | ;; distribute, sublicense, and/or sell copies of the Software, and to |
9 | ;; permit persons to whom the Software is furnished to do so, subject to |
10 | ;; the following conditions: |
7d6495a4 |
11 | ;; |
55212af1 |
12 | ;; The above copyright notice and this permission notice shall be |
13 | ;; included in all copies or substantial portions of the Software. |
7d6495a4 |
14 | ;; |
55212af1 |
15 | ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, |
16 | ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
17 | ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. |
18 | ;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY |
19 | ;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, |
20 | ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE |
21 | ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
7d6495a4 |
22 | |
c23cc486 |
23 | ;; $Id: defpackage.lisp,v 1.10 2006/02/15 09:45:41 espen Exp $ |
7d6495a4 |
24 | |
25 | ;(export 'kernel::type-expand-1 "KERNEL") |
26 | |
27 | (defpackage "GLIB" |
3d36c5d6 |
28 | (:use "COMMON-LISP""AUTOEXPORT") |
29 | #+cmu(:use "SYSTEM" "KERNEL" "PCL" "EXT") |
c23cc486 |
30 | #+sbcl(:use "SB-SYS" "SB-KERNEL" "SB-MOP" "SB-EXT") |
3d36c5d6 |
31 | #+cmu(:shadowing-import-from "PCL" |
32 | "CLASS-DIRECT-SUPERCLASSES" "CLASS-DIRECT-SUPERCLASSES") |
33 | (:shadow "POINTER") |
34 | (:import-from #+cmu"PCL" #+sbcl"SB-PCL" |
7d6495a4 |
35 | "READER-FUNCTION" "WRITER-FUNCTION" "BOUNDP-FUNCTION" |
36 | "INITIALIZE-INTERNAL-SLOT-FUNCTIONS" "COMPUTE-SLOT-ACCESSOR-INFO" |
37 | "COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS" |
3d2378de |
38 | #-sbcl>=0.9.8"INITIALIZE-INTERNAL-SLOT-GFS") |
3d36c5d6 |
39 | #+sbcl(:import-from "SB-EXT" "COLLECT") |
40 | #+cmu(:import-from "ALIEN" "CALLBACK") |
41 | (:import-from #+cmu"ALIEN" #+sbcl"SB-ALIEN" |
42 | "WITH-ALIEN" "ALIEN-FUNCALL" "%HEAP-ALIEN" "MAKE-HEAP-ALIEN-INFO" |
c23cc486 |
43 | "ADDR" "PARSE-ALIEN-TYPE" "SYSTEM-AREA-POINTER" "EXTERN-ALIEN" |
44 | "ALIEN-SAP") |
a9bb8f02 |
45 | #+cmu(:import-from "C-CALL" "%NATURALIZE-C-STRING" "VOID") |
46 | #+sbcl(:import-from "SB-ALIEN" |
47 | "%NATURALIZE-UTF8-STRING" "%DEPORT-UTF8-STRING" "VOID") |
7d6495a4 |
48 | (:export "DEFTYPE-METHOD" "TRANSLATE-TYPE-SPEC" "TRANSLATE-TO-ALIEN" |
49 | "TRANSLATE-FROM-ALIEN" "CLEANUP-ALIEN" "UNREFERENCE-ALIEN" |
81c02729 |
50 | "SIZE-OF" "UNBOUND-VALUE") |
7d6495a4 |
51 | (:export "DEFBINDING" "DEFINE-FOREIGN" "MKBINDING" "USE-PREFIX" |
2faaeb11 |
52 | "PACKAGE-PREFIX" "DEFCALLBACK" "CALLBACK" "CALL-NEXT-HANDLER") |
7d6495a4 |
53 | (:export "LONG" "UNSIGNED-LONG" "INT" "UNSIGNED-INT" "SHORT" "UNSIGNED-SHORT" |
3d36c5d6 |
54 | "SIGNED" "UNSIGNED" "CHAR" "POINTER" "COPY-OF") |
c23cc486 |
55 | (:export "LOCATION" "READER-FUNCTION" "WRITER-FUNCTION" "BOUNDP-FUNCTION" |
3d36c5d6 |
56 | "INITIALIZE-INTERNAL-SLOT-FUNCTIONS" |
57 | "COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS")) |
7d6495a4 |
58 | |