anchor.diff:  ;;;; From clients to the compositor.
   
   (defclass window-create-event ()
  -  ((%window :initarg :window :reader window)))
  +  ((%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)))
  
positive.code:                                                    :initial-element 0)
                                 :layer layer)))
      (mezzanine.supervisor:fifo-push (make-instance 'window-create-event
                                                     :window window)
                                      *event-queue*)
      window))
  
  
negative.code:        (when ,window
           (mezzanine.gui.compositor:close-window ,window)))))
  
  (defun make-window (fifo width height &key layer initial-z-order)
    (let ((window (make-instance 'window
                                 :width width
                                 :height height
  