Define function (SETF WINDOW-CURSOR) rather than using DEFSETF.

sharplispers · Jul 19, 2016 · 11c8bbe · 11c8bbe
1 parent e384ba2
commit 11c8bbe
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/attributes.lisp b/attributes.lisp
@@ -516,13 +516,11 @@
   window
   (error "~S can only be set" 'window-cursor))
 
-(defun set-window-cursor (window cursor)
+(defun (setf window-cursor) (cursor window)
   (change-window-attribute
     window 14 (encode-type (or (member :none) cursor) cursor))
   cursor)
 
-(defsetf window-cursor set-window-cursor)
-
 (defun window-colormap-installed-p (window)
   (declare (type window window))
   (declare (clx-values generalized-boolean))