Update of /project/pal/cvsroot/pal In directory clnet:/tmp/cvs-serv19301
Modified Files: package.lisp pal-macros.lisp pal.lisp Log Message: Fixed a bug in WITH-RESOURCE. Swapped the arguments of IMAGE-FROM-ARRAY.
--- /project/pal/cvsroot/pal/package.lisp 2007/10/30 20:43:10 1.21 +++ /project/pal/cvsroot/pal/package.lisp 2007/10/31 22:38:22 1.22 @@ -358,7 +358,7 @@ (defpackage #:pal (:use :common-lisp) (:import-from :pal-ffi - #:free-resource #:register-resource #:load-foreign-libraries + #:register-resource #:load-foreign-libraries #:image-p #:image #:font #:font-p #:sample #:music #:sample-p #:music-p #:resource #:resource-p #:image-width #:image-height #:u8 #:u11 #:u16) @@ -452,7 +452,7 @@ #:halt-music
#:color #:color-r #:color-g #:color-b #:color-a #:random-color - + #:v #:vec #:copy-vec #:angle-v #:v-angle #:vx #:vy #:v= #:v-round #:v-floor #:v-random #:v+ #:v+! #:v- #:v-! #:v* #:v*! #:v/ #:v/! #:v-max #:v-min #:v-rotate --- /project/pal/cvsroot/pal/pal-macros.lisp 2007/10/30 20:43:10 1.16 +++ /project/pal/cvsroot/pal/pal-macros.lisp 2007/10/31 22:38:22 1.17 @@ -84,7 +84,7 @@ `(let ((,resource ,init-form)) (prog1 (progn ,@body) - (free-resource ,resource)))) + (pal:free-resource ,resource))))
(defmacro with-default-settings (&body body) --- /project/pal/cvsroot/pal/pal.lisp 2007/10/31 12:51:22 1.39 +++ /project/pal/cvsroot/pal/pal.lisp 2007/10/31 22:38:22 1.40 @@ -115,6 +115,10 @@ (defun random-elt (sequence) (elt sequence (random (length sequence))))
+(defun free-resource (resource) + (close-quads) + (pal-ffi:free-resource resource)) + (defun free-all-resources () (reset-tags) (pal-ffi:halt-music) @@ -404,7 +408,7 @@ (cffi:mem-ref b :uint8) (cffi:mem-ref a :uint8)))))
-(defun image-from-array (smoothp array) +(defun image-from-array (array smoothp) (image-from-fn (array-dimension array 0) (array-dimension array 1) smoothp