From 3fab07e7cf66542c137a8150ed62a6a3a3affe0b Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 5 Mar 2008 18:31:49 +0100 Subject: COLLECT-METHODS: Do not free NULL pointers. darcs-hash:c65fd128ad2ff1b86c866e1982dc4ad7e5e884c5 --- Lisp/data-types.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Lisp/data-types.lisp') diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 7c09306..7c08891 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -127,7 +127,8 @@ The following calls are all equivalent: (c2mop:set-funcallable-instance-function selector #'(lambda (receiver &rest args) - (apply #'invoke-by-name receiver selector args)))) + (apply #'invoke-by-name receiver selector args))) + selector) (defmethod initialize-instance :after ((selector selector) -- cgit v1.2.3