Add a boundp-function slot, which is required by virtual slot getter.

[clg] / atk / atk.lisp

diff --git a/atk/atk.lisp b/atk/atk.lisp
index b76ce6ccb3e3945e22186a4e1f88f9eb113739c0..0c78e96471a3d092412c916af7a7c1677ca85a4c 100644 (file)
--- a/atk/atk.lisp
+++ b/atk/atk.lisp
@@ -20,14 +20,12 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: atk.lisp,v 1.5 2005-04-23 16:48:49 espen Exp $
+;; $Id: atk.lisp,v 1.7 2007-06-06 10:43:54 espen Exp $
 
 (in-package "ATK")
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (init-types-in-library 
-   #.(concatenate 'string (pkg-config:pkg-variable "atk" "libdir") 
-                         "/libatk-1.0.so") :prefix "atk_"))
+  (init-types-in-library atk "libatk-1.0" :prefix "atk_"))
 
 (define-types-by-introspection "Atk")