*scratch*.txt

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Code
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(cffi:defcallback callybacky :void ()
  (print "called!"))

(defun web-view-execute (view script)
  (let ((np (cffi:null-pointer)))
    (webkit2:webkit-web-view-run-javascript view script np callybacky np)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Compilation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; caught WARNING:
;   undefined variable: CALLYBACKY
; 
; compilation unit finished
;   Undefined variable:
;     CALLYBACKY
;   caught 1 WARNING condition
WARNING: redefining INTERFACE:WEB-VIEW-EXECUTE in DEFUN