From 199f4ec61993ba0a47b8dfa700cee2aa83b650a7 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Wed, 23 Sep 2009 20:53:43 +0000
Subject: [PATCH]

---
 gacela_SDL.lisp | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gacela_SDL.lisp b/gacela_SDL.lisp
index fe74349..1a2a02c 100644
--- a/gacela_SDL.lisp
+++ b/gacela_SDL.lisp
@@ -23,8 +23,14 @@
 (clines "#include <SDL/SDL_mixer.h>")
 (clines "#include <SDL/SDL_rotozoom.h>")
 
-(defmacro defcconst (type name)
-  `(let ((header (concatenate 'string "(defcfun \"
+(defmacro mapcconst (type name)
+  `(let ((header (concatenate 'string ,type " gacela_" ,name " (void)"))
+	 (body (concatenate 'string "return " ,name ";"))
+	 (cfun (concatenate 'string "gacela_" ,name)))
+     (defcfun header 0 body)
+     (defentry 
+
+(defentry SDL_GetTicks () (int "gacela_SDL_GetTicks"))
 
 ;;; SDL constants as functions
 (defcfun "int gacela_SDL_INIT_TIMER (void)" 0 "return SDL_INIT_TIMER;")
-- 
2.39.2