stumpwm-devel
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[STUMP] Bug?

From: Raf Cloesen
Subject: [STUMP] Bug?
Date: Wed, 17 Jul 2013 01:19:36 -0600
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.4 (gnu/linux) 
Shouldn't

(defmacro define-window-slot (attr)
  "Create a new window attribute and corresponding get/set functions."
  (let ((win (gensym))
        (val (gensym)))
    `(progn
      (defun ,(intern1 (format nil "WINDOW-~a" attr)) (,win)
        (gethash ,attr (window-plist ,win)))
      (defun (setf ,(intern1 (format nil "WINDOW-~a" attr))) (,val ,win)
        (setf (gethash ,attr (window-plist ,win))) ,val))))


be

(defmacro define-window-slot (attr)
  "Create a new window attribute and corresponding get/set functions."
  (let ((win (gensym))
        (val (gensym)))
    `(progn
      (defun ,(intern1 (format nil "WINDOW-~a" attr)) (,win)
        (gethash ,attr (window-plist ,win)))
      (defun (setf ,(intern1 (format nil "WINDOW-~a" attr))) (,val ,win)
        (setf (gethash ,attr (window-plist ,win)) ,val)))))

?


The difference is on the last line:

,win))) ,val))))

becomes

,win)) ,val)))))

-- 
Raf Cloesen
reply via email to
[Prev in Thread] Current Thread [Next in Thread]