Lisp 如何使用clx设置linux墙纸

我正在尝试使用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*)