(defun (setf xwin-border-width) (width win)
(setf (xlib:drawable-border-width win) width))
Run Code Online (Sandbox Code Playgroud)
那么如何调用上面的函数呢?事实上,我真的不明白"(setf xwin-border-width)"代替功能时间是什么意思?
真诚的!
这定义了一个setf
函数.你可以用它来调用它(setf (xwin-border-width *some-window*) width)
.
您可能会发现setf
有用的文档:http://www.lispworks.com/documentation/lw50/CLHS/Body/m_setf_.htm
Hyperspec还有一个关于通用引用的部分:http://www.lispworks.com/documentation/lw50/CLHS/Body/05_a.htm