From 49674546698d86ce9cfb64db8193877644228b47 Mon Sep 17 00:00:00 2001 Message-Id: <49674546698d86ce9cfb64db8193877644228b47.1715183169.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 258e02a..5971ee2 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]