X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_SDL.lisp;h=47a8a27f01570fe2075788ffcc9967207fafb248;hb=b6c766a1beef2b891c87400f37e2e7470208424a;hp=6f3376e716fa385aeb34c0dc2404fd7ae8733bdd;hpb=b63a5e5672e858e7a3689ebc4d66853d5151dfb6;p=gacela.git

diff --git a/gacela_SDL.lisp b/gacela_SDL.lisp
index 6f3376e..47a8a27 100644
--- a/gacela_SDL.lisp
+++ b/gacela_SDL.lisp
@@ -15,7 +15,10 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(in-package :gacela)
+(eval-when (compile load eval)
+	   (when (not (find-package 'gacela)) (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+	   (in-package 'gacela :nicknames '(gg) :use '(lisp)))
+
 
 (defmacro mapcconst (type c-type name)
   (let ((c-header (concatenate 'string c-type " gacela_" name " (void)"))
@@ -205,7 +208,6 @@
 
 ;(defentry apply-surface2 (int int int int int int int int int) (void "apply_surface"))
 ;(defentry render-text2 (int string int int int) (int "render_text"))
-;(defentry fill-surface (int int int int) (void "fill_surface"))
 ;(defentry box-collision (int int int int int int) (int "box_collision"))
 ;(defentry create-SDL_Surface (int int int int int int) (int "create_SDL_Surface"))
 ;(defentry copy-SDL_Surface (int) (int "copy_SDL_Surface"))