Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 5899)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 5900)
@@ -1816,4 +1816,5 @@
 ;;; to the old IMP, at least as far as objc method dispatch is
 ;;; concerned.
+#-apple-objc-2.0
 (defun %mlist-containing (classptr selector typestring imp)
   #-apple-objc (declare (ignore classptr selector typestring imp))