【发布时间】:2021-07-16 17:12:12
【问题描述】:
我正在尝试使用 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*)
【问题讨论】:
标签: lisp common-lisp clx