lisp - clx を使用して Linux の壁紙を設定する方法

Question

clx を使って壁紙を変更しようとしていますが、うまくいきません。コードの何が問題になっていますか?

(ql:quickload :clx)

(defpackage #:wm/uw
  (:use #:cl #:xlib))

(in-package #:wm/uw)

(setf *display* (open-default-display))

(setf *screen* (display-default-screen *display*))

(setf *root* (screen-root *screen*))

(setf (window-background *root*) (screen-white-pixel *screen*))

(clear-area *root*)
(close-display *display*)