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 ,@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))