[pal-cvs] CVS pal

[tneste]

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
               , at 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