[pal-cvs] CVS pal

[tneste]

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

Modified Files:
	pal.lisp 
Log Message:
Fixed a major two byte memory leak

--- /project/pal/cvsroot/pal/pal.lisp	2007/07/03 18:42:35	1.5
+++ /project/pal/cvsroot/pal/pal.lisp	2007/07/03 18:50:48	1.6
@@ -396,6 +396,7 @@
                                       :width (cffi:foreign-slot-value surface 'pal-ffi:surface 'pal-ffi:w)
                                       :height (cffi:foreign-slot-value surface 'pal-ffi:surface 'pal-ffi:h))))
       (setf *current-image* image)
+      (cffi:foreign-free id)
       (pal-ffi:register-resource image))))
 
 (defun load-image (file &optional (smooth-p nil))