anchor.diff:  (in-package :termbox)
  -
   (asdf:load-system :cl-autowrap)
   (asdf:load-system :cl-plus-c)
   (use-package :plus-c)
  
positive.code: 
  (defun event-data (event)
    (and event (append (list :type (termbox.ffi:tb-event.type event))
  		     (let ((type (termbox.ff:tb-event.type event)))
  		       (cond
  			 ((eq type termbox:+event-resize+)
  			  (list :w (termbox.ffi:tb-event.w event)
  
negative.code: 
  
  (defun change-cell (x y char &optional (fg termbox:+default+) (bg termbox:+default+))
    (tb-change-cell x y (ctypecase char
  			(integer char)
  			(standard-char (char-code char))) fg bg))
  
  (defun put-cell (x y cell)
    (tb-put-cell x y cell))
  
  
  (defun width ()
    (the integer (tb-width)))
  
  (defun height ()
    (the integer (tb-height)))
  
  
  (defun peek-event (timeout)
    (with-alloc (event '(:struct (tb-event)))
      (when (eq (tb-peek-event event timeout) 0)
        (event-data event))))
  
  (defun poll-event ()
    (with-alloc (event '(:struct (tb-event)))
      (tb-poll-event event)
      (event-data event)))
  
  
  (defun set-cursor (cx cy)
  