[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
- [STUMP] Bug?,
Raf Cloesen <=