anchor.diff:                                                     :initial-element 0)
                                  :layer layer)))
       (mezzanine.supervisor:fifo-push (make-instance 'window-create-event
  -                                                   :window window)
  +                                                   :window window
  +                                                   :initial-z-order (or initial-z-order :top))
                                       *event-queue*)
       window))
   
  
positive.code:       (:top
         (push win *window-list*))
        (t (setf (slot-value win '%layer) nil)
           (push win *window-list*)))
      (when *active-window*
        (send-event *active-window* (make-instance 'window-activation-event
                                                   :window *active-window*
                                                   :state nil)))
      (setf *active-window* win)
      (setf *clip-rect-width* (mezzanine.supervisor:framebuffer-width *main-screen*)
            *clip-rect-height* (mezzanine.supervisor:framebuffer-height *main-screen*)
            *clip-rect-x* 0
            *clip-rect-y* 0)
      (send-event win (make-instance 'window-activation-event
                                     :window win
                                     :state t))))
  
  (defmacro with-window ((window fifo width height &rest options) &body body)
    `(let (,window)
  
negative.code: ;;;; From clients to the compositor.
  
  (defclass window-create-event ()
    ((%window :initarg :window :reader window)
     (%initial-z-order :initarg :initial-z-order :reader initial-z-order)))
  
  (defmethod process-event ((event window-create-event))
    (let ((win (window event)))
  