;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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--