@@ -62,8 +62,7 @@ (defun unregister-resource (foreign-pointer) (destructuring-bind (resource i f-pointer) (get-resource-meta foreign-pointer) - (declare (ignore resource)) - (declare (ignore f-pointer)) + (declare (ignore resource f-pointer)) (setf (svref *resources* i) nil) (decf *resource-counter*) (unless (eql i *resource-counter*) resource.lisp 2380be2c094454fcdbe7c0223ba9cdc16d299ffb Ramarren ramarren@gmail.com http://github.com/Ramarren/cffi-clutter/commit/6bcf1222f11f948ff4bce443e475117187fd3505 6bcf1222f11f948ff4bce443e475117187fd3505 2009-07-08T11:03:04-07:00 2009-07-08T11:03:04-07:00 Merge ignore declarations. 176bce6eafc53257cc81fd81542dd489c1ff2bec Ramarren ramarren@gmail.com