Re: (asdf:oos 'asdf:load-op :gtk) failed

Espen S Johnsen <[email protected]> writes:

> Espen S Johnsen <[email protected]> writes:
>
>> Unfortunately it wasn't this simple. With these changes the library will
>> compile just fine, but some of the necessary classes isn't defined (even
>> opening a display will fail because gdk:display-x11 is missing). I don't
>> see any easy workaround either, except accessing the symbols missing in
>> Gentoo or waiting for Gtk+ 2.8 and it's new introspection stuff (which
>> is still very much vapor ware).
>
> But then I found another simple workaround, which should be available in
> CVS now. This means that clg now should work with Gentoo and other
> distributions that doesn't export internal symbols from libgtk.

This is great.  Now I can compile and load clg with CMUCL snapshot 2005-03
without any problem on a Gentoo x86 box.  Loading hello-world was O.K. but
loading testgtk gave a segmentation violation.  Backtrace is attached at
the end of this email.

Best,

-cph


Error in function UNIX::SIGSEGV-HANDLER:  Segmentation Violation at #x5A3B2E09.
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [CONTINUE] Return NIL from load of "/home/cph/clg/examples/testgtk".
  1: [ABORT   ] Abort handling SLIME request.
  2:            Return to Top-Level.

Debug  (type H for help)

(UNIX::SIGSEGV-HANDLER #<unused-arg>
                       #<unused-arg>
                       #.(SYSTEM:INT-SAP #x3FFFBB40))
Source: 
; File: target:code/signal.lisp

; File has been modified since compilation:
;   target:code/signal.lisp
; Using form offset instead of character position.
(DEFINE-SIGNAL-HANDLER SIGSEGV-HANDLER "Segmentation Violation")
0] 
(setf debug:*debug-print-length* nil)
(setf debug:*debug-print-level* 5)


NIL
0] 
5
0] back

0: (UNIX::SIGSEGV-HANDLER #<unused-arg>
                          #<unused-arg>
                          #.(SYSTEM:INT-SAP #x3FFFBB40))
1: (UNIX::SIGSEGV-HANDLER 3
                          #<unused-arg>
                          #<unused-arg>
                          #.(SYSTEM:INT-SAP #x3FFFBB40))[:EXTERNAL]
2: ("call_into_lisp+#x8C [#x80549FC] /usr/local/cmucl/bin/lisp")
3: ("funcall3+#x29 [#x8054810] /usr/local/cmucl/bin/lisp")
4: ("interrupt_handle_now+#xEE [#x80504ED] /usr/local/cmucl/bin/lisp")
5: ("NIL+#x8054FF8 [#x8054FF8] /usr/local/cmucl/bin/lisp")
6: ("NIL+#x8055030 [#x8055030] /usr/local/cmucl/bin/lisp")
7: (GLIB::%TYPE-NUMBER-OF-GINSTANCE #.(SYSTEM:INT-SAP #x00000001))
8: ((METHOD ENSURE-PROXY-INSTANCE NIL (GINSTANCE-CLASS T)) #<unused-arg>
    #<unused-arg> #<unused-arg> #.(SYSTEM:INT-SAP #x00000001))
9: ("DEFMETHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-VIRTUAL-SLOT-DEFINITION)"
    #<SCROLLED-WINDOW at 0x80FAD48>)
10: ("DEFMETHOD SHARED-INITIALIZE (SLOT-OBJECT T)" #<unused-arg> #<unused-arg>
     #<SCROLLED-WINDOW at 0x80FAD48> T
     (:HSCROLLBAR-POLICY :AUTOMATIC :VSCROLLBAR-POLICY :AUTOMATIC :BORDER-WIDTH
      10))
11: ((METHOD SHARED-INITIALIZE NIL (CONTAINER T)) #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function (METHOD SHARED-INITIALIZE NIL (WIDGET T))
                      {5932E3B1}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #<Function "DEFMETHOD SHARED-INITIALIZE (SLOT-OBJECT T)"
                                             {111678C1}>
                                 :PV-CELL NIL
                                 :NEXT-METHOD-CALL NIL
                                 :ARG-INFO (2 . T))
          :ARG-INFO (2 . T))
     #<SCROLLED-WINDOW at 0x80FAD48> T
     (:HSCROLLBAR-POLICY :AUTOMATIC :VSCROLLBAR-POLICY :AUTOMATIC :BORDER-WIDTH
      10))
12: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G6771 G6772 G6773)" #<unused-arg>
     #<unused-arg> #<SCROLLED-WINDOW at 0x80FAD48> T
     (:HSCROLLBAR-POLICY :AUTOMATIC :VSCROLLBAR-POLICY :AUTOMATIC :BORDER-WIDTH
      10))
13: ((METHOD INITIALIZE-INSTANCE NIL (%OBJECT)) (#(0) . #())
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function (METHOD INITIALIZE-INSTANCE NIL (GOBJECT))
                      {58CC10D1}>
          :PV-CELL (#(0) . #())
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #<Function "DEFMETHOD INITIALIZE-INSTANCE (SLOT-OBJECT)"
                                             {11147EB9}>
                                 :PV-CELL NIL
                                 :NEXT-METHOD-CALL NIL
                                 :ARG-INFO (1 . T))
          :ARG-INFO (1 . T))
     #<SCROLLED-WINDOW at 0x80FAD48>
     (:HSCROLLBAR-POLICY :AUTOMATIC :VSCROLLBAR-POLICY :AUTOMATIC :BORDER-WIDTH
      10))
14: ((METHOD INITIALIZE-INSTANCE (:AROUND) (PROXY))
     (#(0)
      . #(#S(PCL::FAST-METHOD-CALL
               :FUNCTION #<Function # {5A68D561}>
               :PV-CELL (# . #)
               :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                      :FUNCTION #
                                      :PV-CELL #
                                      :NEXT-METHOD-CALL NIL
                                      :ARG-INFO #)
               :ARG-INFO (1))))
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function (METHOD INITIALIZE-INSTANCE NIL
                                (SCROLLED-WINDOW))
                      {591A5279}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #<Function (METHOD
                                                       INITIALIZE-INSTANCE NIL
                                                       #)
                                             {58CBFAA1}>
                                 :PV-CELL (#(0) . #())
                                 :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                                        :FUNCTION #<Function #
                                                                    {58CC10D1}>
                                                        :PV-CELL (# . #)
                                                        :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                                                               :FUNCTION #
                                                                               :PV-CELL NIL
                                                                               :NEXT-METHOD-CALL NIL
                                                                               :ARG-INFO #)
                                                        :ARG-INFO (1 . T))
                                 :ARG-INFO (1 . T))
          :ARG-INFO (1 . T))
     #<SCROLLED-WINDOW at 0x80FAD48>
     (:HSCROLLBAR-POLICY :AUTOMATIC :VSCROLLBAR-POLICY :AUTOMATIC :BORDER-WIDTH
      10))
15: ((METHOD INITIALIZE-INSTANCE (:AROUND) (%OBJECT)) #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function (METHOD INITIALIZE-INSTANCE (:AROUND) (PROXY))
                      {58CC2971}>
          :PV-CELL (#(0)
                    . #(#S(PCL::FAST-METHOD-CALL
                             :FUNCTION #
                             :PV-CELL #
                             :NEXT-METHOD-CALL #
                             :ARG-INFO #)))
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #<Function (METHOD
                                                       INITIALIZE-INSTANCE NIL
                                                       #)
                                             {591A5279}>
                                 :PV-CELL NIL
                                 :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                                        :FUNCTION #<Function #
                                                                    {58CBFAA1}>
                                                        :PV-CELL (# . #)
                                                        :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                                                               :FUNCTION #
                                                                               :PV-CELL #
                                                                               :NEXT-METHOD-CALL #
                                                                               :ARG-INFO #)
                                                        :ARG-INFO (1 . T))
                                 :ARG-INFO (1 . T))
          :ARG-INFO (1 . T))
     #<SCROLLED-WINDOW at 0x80FAD48>
     (:HSCROLLBAR-POLICY :AUTOMATIC :VSCROLLBAR-POLICY :AUTOMATIC :BORDER-WIDTH
      10))
16: ("DEFMETHOD MAKE-INSTANCE (CLASS)" #<unused-arg> #<unused-arg>
     #<GOBJECT-CLASS SCROLLED-WINDOW {58193245}>
     (:HSCROLLBAR-POLICY :AUTOMATIC :VSCROLLBAR-POLICY :AUTOMATIC :BORDER-WIDTH
      10))
17: (CREATE-MAIN-WINDOW)
18: (LISP::SLOLOAD #<Stream for file "/home/cph/clg/examples/testgtk.lisp">)
19: (LISP::INTERNAL-LOAD #P"/home/cph/clg/examples/testgtk.lisp"
                         #P"/home/cph/clg/examples/testgtk.lisp"
                         :ERROR :SOURCE)
20: (LOAD "/home/cph/clg/examples/testgtk"
          :VERBOSE NIL
          :PRINT NIL
          :IF-SOURCE-NEWER NIL
          :IF-DOES-NOT-EXIST :ERROR
          :CONTENTS NIL
          :EXTERNAL-FORMAT #<unused-arg>)
21: (SWANK::EVAL-REGION "(load \"/home/cph/clg/examples/testgtk\")
"
                        T)
22: ("DEFSLIMEFUN LISTENER-EVAL")
23: (SWANK:LISTENER-EVAL "(load \"/home/cph/clg/examples/testgtk\")
")
24: ("DEFUN EVAL-FOR-EMACS")
25: ((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK NIL (T T)) #<unused-arg>
     #<unused-arg> #<Function SWANK:SWANK-DEBUGGER-HOOK {5865C621}>
     #<Closure Over Function "DEFUN EVAL-FOR-EMACS" {58424EE1}>)
26: ("DEFUN HANDLE-REQUEST")
27: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {5884F2C5}>
                                    #<Function "DEFUN HANDLE-REQUEST"
                                      {58547B01}>)
28: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {5884F2C5}>)
29: (SWANK::PROCESS-AVAILABLE-INPUT #<Stream for descriptor 6>
                                    #<Closure Over Function "DEFUN INSTALL-SIGIO-HANDLER"
                                      {58424C49}>)
30: ((FLET SWANK::HANDLER
       SWANK::INSTALL-SIGIO-HANDLER))
31: (SWANK-BACKEND::SIGIO-HANDLER #<unused-arg> #<unused-arg> #<unused-arg>)
32: ("call_into_lisp+#x8C [#x80549FC] /usr/local/cmucl/bin/lisp")
33: ("funcall3+#x29 [#x8054810] /usr/local/cmucl/bin/lisp")
34: ("interrupt_handle_now+#xEE [#x80504ED] /usr/local/cmucl/bin/lisp")
35: ("NIL+#x805090D [#x805090D] /usr/local/cmucl/bin/lisp")
36: ("Foreign function call land")
37: (SYSTEM:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
38: (LISP::DO-INPUT #<Stream for Standard Input>)
39: (LISP::INPUT-CHARACTER #<Stream for Standard Input> NIL (LISP::*EOF*))
40: (LISP::SYNONYM-IN #<Synonym Stream to SYSTEM:*STDIN*> NIL (LISP::*EOF*))
41: (LISP::TWO-WAY-IN
     #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>>
     NIL
     (LISP::*EOF*))
42: (LISP::SYNONYM-IN #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*>
                      NIL
                      (LISP::*EOF*))
43: (READ-CHAR #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*>
               NIL
               (LISP::*EOF*)
               NIL)
44: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL
     #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*>
     NIL
     (:EOF)
     T)
45: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL
     #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*>
     NIL
     (:EOF)
     NIL)
46: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL 4
                                               #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*>
                                               NIL
                                               (:EOF)
                                               NIL)[:EXTERNAL]
47: (LISP::READ-INTERNAL #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*>
                         NIL
                         (:EOF)
                         NIL)
48: (READ #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:EOF) NIL)
49: (LISP::%TOP-LEVEL)
50: ((LABELS LISP::RESTART-LISP
       SAVE-LISP))

0] 







-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click