[gtk-cffi-cvs] CVS gtk-cffi/utils

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/utils
In directory tiger.common-lisp.net:/tmp/cvs-serv13474/utils

Modified Files:
	package.lisp utils.lisp 
Log Message:
Refactored defslots/def*funs



--- /project/gtk-cffi/cvsroot/gtk-cffi/utils/package.lisp	2011/08/26 17:16:14	1.2
+++ /project/gtk-cffi/cvsroot/gtk-cffi/utils/package.lisp	2012/01/21 18:35:00	1.3
@@ -6,4 +6,7 @@
    #:with-hash
    #:memo
    #:debug-out
-   #:bitmask))
+   #:bitmask
+
+   #:template
+   #:param))
--- /project/gtk-cffi/cvsroot/gtk-cffi/utils/utils.lisp	2011/08/28 15:38:31	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/utils/utils.lisp	2012/01/21 18:35:00	1.4
@@ -38,3 +38,11 @@
              (collect `(when ,flag
                          ,(make-keyword flag)))))))
 
+(defmacro template (args &body body)
+  (with-gensyms (%template %do)
+    `(macrolet ((,%do ()
+                  (flet ((,%template (param) , at body))
+                    `(progn
+                       ,@(mapcar #',%template ',args)))))
+       (,%do))))
+