Index: /trunk/ccl/examples/process-objc-modules.lisp
===================================================================
--- /trunk/ccl/examples/process-objc-modules.lisp	(revision 483)
+++ /trunk/ccl/examples/process-objc-modules.lisp	(revision 484)
@@ -210,13 +210,5 @@
 	#'check-if-section-already-scanned))))
 
-(defun remap-all-library-classes ()
-  (process-objc-modules
-   #'(lambda (sectptr size)
-       (iterate-over-module-classes
-        sectptr
-        size
-        #'(lambda (class)
-            (unless (logtest #$CLS_META (pref class :objc_class.info))
-              (install-foreign-objc-class class)))))))
+
                         
 #|