anchor.diff:                                    (gtk:leave-gtk-main)))
       (gtk:gtk-container-add win view)
       (webkit2:webkit-web-view-load-uri view "http://www.example.com")
  -    (setf (gethash "win" *webkit-environment*) win
  -          (gethash "manager" *webkit-environment*) manager
  -          (gethash "context" *webkit-environment*) context
  -          (gethash "view" *webkit-environment*) view)))
  +    (setf *view* view)))
   
   ;;; General tests
   
  
positive.code: 
  (def-suite js-tests :description "Testing JS value transformation." :in webkit-tests)
  
  (defvar *webkit-environment* (make-hash-table :test 'equal))
  
  (defmacro with-js-transform-result (js-string (var &optional (jsc-var (gensym))
                                                       (context-var (gensym)))
  
negative.code:                    :buffer (make-instance 'jpl-queues:bounded-fifo-queue :capacity 1))))
       (gtk:within-gtk-thread
         (webkit2:webkit-web-view-evaluate-javascript
          *view* ,js-string
          (lambda (result jsc-value)
            (calispel:! channel result)
            (calispel:! channel jsc-value)
  