[STUMP] [PATCH] Remove unused macro.

[Xan Lopez]

---
 core.lisp |   16 ----------------
 1 files changed, 0 insertions(+), 16 deletions(-)

diff --git a/core.lisp b/core.lisp
index 6c70a7f..61dafe3 100644
--- a/core.lisp
+++ b/core.lisp
@@ -26,22 +26,6 @@
 
 (in-package :stumpwm)
 
-;; Wow, is there an easier way to do this?
-(defmacro def-thing-attr-macro (thing hash-slot)
-  (let ((attr (gensym "ATTR"))
-        (obj (gensym "METAOBJ"))
-        (val (gensym "METAVAL")))
-    `(defmacro ,(intern (format nil "DEF-~a-ATTR" thing)) (,attr)
-      "Create a new attribute and corresponding get/set functions."
-      (let ((,obj (gensym "OBJ"))
-            (,val (gensym "VAL")))
-        `(progn
-          (defun ,(intern (format nil ,(format nil "~a-~~a" thing) ,attr)) 
(,,obj)
-            (gethash ,,attr (,(quote ,hash-slot) ,,obj)))
-          (defun (setf ,(intern (format nil ,(format nil "~a-~~a" thing) 
,attr))) (,,val ,,obj)
-            (setf (gethash ,,attr (,(quote ,hash-slot) ,,obj))) ,,val))))))
-
-
 ;;; keyboard helper functions
 
 (defun key-to-keycode+state (key)
-- 
1.5.5