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