anchor.diff:                    t))))
   
   (defmacro with-window ((win-sym title width height &key major minor fullscreen) &body body)
  -  "Creates a window and binds it to WIN-SYM, the window is detroyed when body exits."
  +  "Creates a window and binds it to WIN-SYM.  The window is detroyed when body exits."
     `(let ((,win-sym (create-window ,title ,width ,height
                                     :major ,major :minor ,minor :fullscreen ,fullscreen)))
        (when ,win-sym
  
positive.code: )
  
  (defun push-event (window evt)
    "Artificially push an event into the event processing system.
     The pushed event is internal to glaw and never makes it to the underlying
     system."
    (setf (window-pushed-event window) evt))
  
  (defun push-close-event (window)
  
negative.code: ;; method based event handling
  (defun dispatch-events (window &key blocking)
    "Process all pending system events and call corresponding methods.
  When :blocking is non-nil calls event handling func that will block
  until an event occurs.
  Returns NIL on :CLOSE event, T otherwise."
    (loop for evt = (next-event window :blocking blocking)
      while evt
      do  (case (event-type evt)
  