anchor.diff:      (unless (eq (car e) :mouse-move)
         (format t "~A~%" e))))
   
  +(defun add-event-handler (event object func)
  +  (let ((hash (or (gethash event *event-hash*)
  +		  (setf (gethash event *event-hash*) (make-hash-table)))))
  +    (setf (gethash object hash) func)))
  +
   
   (defun make-button (text width height &key line-width line fill background foreground)
     (! (let* ((node (make-instance 'node))
  
positive.code: 
    )
  
  (defun map-event (f h)
    (let ((ret))
      (maphash (lambda (k v)
  	       (push (funcall f k v) ret))
  	     h)
      ret))
  
  
  
negative.code: (ql:quickload :clinch-pango)
  (ql:quickload :clinch-freeimage)
  (use-package :clinch)
  
  (defparameter *node* nil)
  (defparameter *projection* nil)
  