From 4c795125e98b08d93a06cecafd1ee4ca2d5ca73c Mon Sep 17 00:00:00 2001 Message-Id: <4c795125e98b08d93a06cecafd1ee4ca2d5ca73c.1719165717.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sat, 4 Dec 2004 00:28:47 +0000 Subject: [PATCH] Adding reader and writer functions to COPY-OF Organization: Straylight/Edgeware From: espen --- glib/ffi.lisp | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/glib/ffi.lisp b/glib/ffi.lisp index 811a6ec..95f2155 100644 --- a/glib/ffi.lisp +++ b/glib/ffi.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: ffi.lisp,v 1.6 2004/11/19 13:02:51 espen Exp $ +;; $Id: ffi.lisp,v 1.7 2004/12/04 00:28:47 espen Exp $ (in-package "GLIB") @@ -299,7 +299,7 @@ (defmethod cleanup-function ((type t) &rest args) (defmethod destroy-function ((type t) &rest args) (declare (ignore type args)) - #'(lambda (location offset) + #'(lambda (location &optional offset) (declare (ignore location offset)))) (defmethod copy-to-alien-form (form (type t) &rest args) @@ -768,4 +768,12 @@ (defmethod from-alien-function ((type (eql 'copy-of)) &rest args) (declare (ignore type)) (copy-from-alien-function (first args))) +(defmethod reader-function ((type (eql 'copy-of)) &rest args) + (declare (ignore type)) + (reader-function (first args))) + +(defmethod writer-function ((type (eql 'copy-of)) &rest args) + (declare (ignore type)) + (writer-function (first args))) + (export 'copy-of) -- [mdw]