;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: proxy.lisp,v 1.7 2007-04-06 14:29:42 espen Exp $
+;; $Id: proxy.lisp,v 1.9 2007-06-20 11:13:45 espen Exp $
(in-package "GFFI")
;; :FINALZIE given to MAKE-PROXY-INSTANCE or non NIL if the proxy was
;; created with MAKE-INSTANCE
(defmethod invalidate-instance ((instance proxy) &optional finalize-p)
+ #+clisp(declare (ignore finalize-p))
(remove-cached-instance (foreign-location instance))
#+(or sbcl cmu)
(progn
#'(lambda (value object)
(unless writer
(setq writer (mkbinding setter nil 'pointer type)))
+ ;; First argument in foreign setters is the object and second
+ ;; is value
(funcall writer (foreign-location object) value)))
(call-next-method)))