Index: /trunk/ccl/examples/objc-support.lisp
===================================================================
--- /trunk/ccl/examples/objc-support.lisp	(revision 484)
+++ /trunk/ccl/examples/objc-support.lisp	(revision 485)
@@ -23,7 +23,6 @@
 	    (install-foreign-objc-class
 	     (%get-ptr buffer (the fixnum  (ash i ppc32::word-shift))))))))))
-  (def-ccl-pointers revive-objc-classes ()
-    (reset-objc-class-count)
-    (map-objc-classes)))
+  (reset-objc-class-count)
+  (map-objc-classes))
 
 #+gnu-objc