anchor.diff:         (when ,window
            (mezzanine.gui.compositor:close-window ,window)))))
   
  -(defun make-window (fifo width height &key layer)
  +(defun make-window (fifo width height &key layer initial-z-order)
     (let ((window (make-instance 'window
                                  :width width
                                  :height height
  
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)))
  