Created
January 8, 2018 19:36
-
-
Save jmercouris/d5b7f312dde4fa384c4ba82af1aec861 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;; Works ok! | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
(defun web-view-set-url-loaded-callback (view function) | |
(gobject:g-signal-connect | |
view "load-changed" | |
(lambda (webview load-event) | |
(print "load event!")))) | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;; Does not work! | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
(defun web-view-set-url-loaded-callback (view function) | |
(gobject:g-signal-connect | |
view "load-changed" | |
(lambda (webview load-event) | |
(funcall function)))) | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;; Complaint | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
Unhandled memory fault at #x0. | |
[Condition of type SB-SYS:MEMORY-FAULT-ERROR] | |
Restarts: | |
0: [RETURN-FROM-CALLBACK] GTK::RETURN-FROM-CALLBACK | |
1: [ABORT] abort thread (#<THREAD "cl-cffi-gtk main thread" RUNNING {1004101FD3}>) | |
Backtrace: | |
0: (SB-SYS:MEMORY-FAULT-ERROR) | |
1: ("foreign function: call_into_lisp") | |
2: ("foreign function: post_signal_tramp") | |
3: (GOBJECT::CALL-GOBJECT-CONSTRUCTOR "GtkWindow" ("border-width" "default-height" "default-width" "title" "type") (0 768 1024 "nEXT" :TOPLEVEL) (NIL NIL NIL NIL NIL)) | |
4: (GOBJECT::CREATE-GOBJECT-FROM-CLASS #<GOBJECT:GOBJECT-CLASS GTK:GTK-WINDOW> (:TYPE :TOPLEVEL :TITLE "nEXT" :DEFAULT-WIDTH 1024 ...)) | |
5: ((:METHOD MAKE-INSTANCE (GOBJECT:GOBJECT-CLASS)) #<GOBJECT:GOBJECT-CLASS GTK:GTK-WINDOW> :TYPE :TOPLEVEL :TITLE "nEXT" :DEFAULT-WIDTH 1024 :DEFAULT-HEIGHT 768 :BORDER-WIDTH 0) [fast-method] | |
6: ((LAMBDA NIL :IN INTERFACE:START)) | |
7: (LPARALLEL.PROMISE::FULFILL-PROMISE #S(LPARALLEL.PROMISE::%PROMISE :RESULT LPARALLEL.PROMISE::NO-RESULT :LOCK #<SB-THREAD:MUTEX "Anonymous lock" owner: #<SB-THREAD:THREAD "cl-cffi-gtk main thread" RUN.. | |
8: ((LAMBDA (GTK::DATA) :IN "/home/jmercouris/quicklisp/dists/quicklisp/software/cl-cffi-gtk-20160208-git/gtk/gtk.init.lisp") #.(SB-SYS:INT-SAP #X00000000)) | |
9: ((LAMBDA (SB-ALIEN::ARGS-POINTER SB-ALIEN::RESULT-POINTER FUNCTION) :IN "/home/jmercouris/.cache/common-lisp/sbcl-1.3.1.debian-linux-x64/home/jmercouris/quicklisp/dists/quicklisp/software/cl-cffi-gtk-.. | |
10: ("foreign function: call_into_lisp") | |
11: ("foreign function: funcall3") | |
12: ("foreign function: callback_wrapper_trampoline") | |
13: ("foreign function: #x20103092") | |
14: ((LAMBDA NIL :IN GTK:ENSURE-GTK-MAIN)) | |
15: ((LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS)) | |
16: ((FLET #:WITHOUT-INTERRUPTS-BODY-1156 :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)) | |
17: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)) | |
18: ((FLET #:WITHOUT-INTERRUPTS-BODY-359 :IN SB-THREAD::CALL-WITH-MUTEX)) | |
19: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {7FFFCBCDED5B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THR.. | |
--more-- |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment