From 9e6c0587d88f6c513f0eadc83a58f1102c4dccfc Mon Sep 17 00:00:00 2001 Message-Id: <9e6c0587d88f6c513f0eadc83a58f1102c4dccfc.1716835710.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 6 Feb 2006 18:13:13 +0000 Subject: [PATCH] Added optional weak-p arg to reader functions Organization: Straylight/Edgeware From: espen --- gtk/gtktree.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gtk/gtktree.lisp b/gtk/gtktree.lisp index 1ba05f5..7abcc9c 100644 --- a/gtk/gtktree.lisp +++ b/gtk/gtktree.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtktree.lisp,v 1.11 2005-09-26 21:34:53 espen Exp $ +;; $Id: gtktree.lisp,v 1.12 2006-02-06 18:13:13 espen Exp $ (in-package "GTK") @@ -276,7 +276,8 @@ (defmethod writer-function ((type (eql 'tree-path)) &rest args) (defmethod reader-function ((type (eql 'tree-path)) &rest args) (declare (ignore type args)) (let ((reader (reader-function 'pointer))) - #'(lambda (location &optional (offset 0)) + #'(lambda (location &optional (offset 0) weak-p) + (declare (ignore weak-p)) (%tree-path-to-vector (funcall reader location offset))))) (defmethod destroy-function ((type (eql 'tree-path)) &rest args) -- [mdw]