(no commit message)

[gacela.git] / gacela.lisp

diff --git a/gacela.lisp b/gacela.lisp
index 6ad199f314623426210e823ef26e4555b20a1391..eecc4893ee41e5196887514e79932e302bb571d8 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -81,14 +81,6 @@
   (glHint GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST)
   t)
 
-(defmacro progn-textures (&body code)
-  `(let (values)
-     (init-video-mode)
-     (glEnable GL_TEXTURE_2D)
-     (setq values (multiple-value-list (progn ,@code)))
-     (glDisable GL_TEXTURE_2D)
-     (apply #'values values)))
-
 (defun init-lighting ()
   (init-video-mode)
   (glEnable GL_LIGHTING))
@@ -171,7 +163,6 @@
          (make-resource :plist plist
                         :constructor constructor
                         :destructor destructor
-                        :free-function free-function
                         :time (if static t (SDL_GetTicks)))))
 
   (defun get-resource (key)