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:        (when ,window
           (mezzanine.gui.compositor:close-window ,window)))))
  
  (defun make-window (fifo width height &key layer)
    (let ((window (make-instance 'window
                                 :width width
                                 :height height
  
negative.code:       (:top
         (push win *window-list*))
        (t (setf (slot-value win '%layer) nil)
           (cond ((and (eql (initial-z-order event) :below-current)
                       *window-list*)
                  (setf *window-list* (list* (first *window-list*)
                                             win
                                             (rest *window-list*))))
                 (t (push win *window-list*)))))
      (when (and *active-window*
                 (eql (initial-z-order event) :top))
        (send-event *active-window* (make-instance 'window-activation-event
                                                   :window *active-window*
                                                   :state nil)))
      (when (or (not *active-window*)
                (eql (initial-z-order event) :top))
        (setf *active-window* win)
        (send-event win (make-instance 'window-activation-event
                                       :window win
                                       :state t)))
      (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)))
  
  (defmacro with-window ((window fifo width height &rest options) &body body)
    `(let (,window)
  