common-lisp - ウィンドウマネージャによって配置される Xlib でウィンドウを作成する方法は? (Lisp、CLX、StumpWM)

Question

次のコードがあります。画面の左上隅に 200x200 の白い正方形を描画します。

StumpWM によって四角形が選択され、現在の StumpWM の「フレーム」の左上隅に描画されるようにするには、コードにどのような変更を加える必要がありますか。

(in-package :stumpwm-user)

(defun make-window-example ()
  (let* ((display *display*)
         (screen (first (xlib:display-roots display)))
         (white (xlib:screen-white-pixel screen))
         (root-window (xlib:screen-root screen))
         (my-window (xlib:create-window
                     :parent root-window
                     :x 0
                     :y 0
                     :width 200
                     :height 200
                     :background white)))
    (xlib:map-window my-window)
    (xlib:display-finish-output display)
    (sleep 2)
    (xlib:destroy-window my-window)))