+(defmacro mapcconst (type c-type name)
+ `(progn
+ (defcfun ,(concatenate 'string c-type " gacela_" name " (void)") 0
+ ,(concatenate 'string "return " name ";"))
+ (defentry ,(intern (string-upcase name)) ()
+ (,type ,(concatenate 'string "gacela_" name)))))
+
+