[pal-cvs] CVS pal

[tneste]

Update of /project/pal/cvsroot/pal
In directory clnet:/tmp/cvs-serv31399

Modified Files:
	package.lisp pal-macros.lisp pal.lisp 
Log Message:
Remover CURRY and rename RESET-BLEND-MODE to RESET-BLEND

--- /project/pal/cvsroot/pal/package.lisp	2007/10/18 16:41:01	1.18
+++ /project/pal/cvsroot/pal/package.lisp	2007/10/24 17:51:47	1.19
@@ -387,8 +387,7 @@
            #:random-elt
            #:clamp
            #:do-n
-           #:curry
-
+           
            #:handle-events           
            #:key-pressed-p
            #:keysym-char
@@ -411,7 +410,7 @@
            #:translate
            #:scale
            #:set-blend-mode
-           #:reset-blend-mode
+           #:reset-blend
            #:set-blend-color
            #:with-blend
            #:with-clipping
--- /project/pal/cvsroot/pal/pal-macros.lisp	2007/10/11 19:26:23	1.14
+++ /project/pal/cvsroot/pal/pal-macros.lisp	2007/10/24 17:51:47	1.15
@@ -174,11 +174,6 @@
                      ,(expand (cddr args)))))))
     (expand args)))
 
-(defmacro curry (fn &rest args)
-  (let ((rest (gensym)))
-    `(lambda (&rest ,rest)
-       (declare (dynamic-extent ,rest))
-       (apply ,fn , at args ,rest))))
 
 (defmacro test-keys (&body args)
   `(progn
--- /project/pal/cvsroot/pal/pal.lisp	2007/10/22 15:56:02	1.34
+++ /project/pal/cvsroot/pal/pal.lisp	2007/10/24 17:51:47	1.35
@@ -357,8 +357,8 @@
   (close-quads)
   (pal-ffi:gl-translatef (vx vec) (vy vec) 0f0))
 
-(declaim (inline reset-blend-mode))
-(defun reset-blend-mode ()
+(declaim (inline reset-blend))
+(defun reset-blend ()
   (close-quads)
   (set-blend-mode :blend)
   (set-blend-color 255 255 255 255))