Index: /trunk/source/objc-bridge/objc-runtime.lisp
===================================================================
--- /trunk/source/objc-bridge/objc-runtime.lisp	(revision 13811)
+++ /trunk/source/objc-bridge/objc-runtime.lisp	(revision 13812)
@@ -43,10 +43,5 @@
 
 (eval-when (:compile-toplevel :execute)
-  #+apple-objc
-  (progn
-    (use-interface-dir :cocoa)
-    #+nomore
-    (use-interface-dir :carbon))        ; need :carbon for things in this file
-  #+cocotron-objc
+  #+(or apple-objc cocotron-objc)
   (use-interface-dir :cocoa)
   #+gnu-objc
@@ -59,14 +54,4 @@
   (require "NAME-TRANSLATION")
   (require "OBJC-CLOS"))
-
-;;; NSInteger and NSUInteger probably belong here.
-;;; CGFloat not so much.
-
-#-(or apple-objc-2.0 cocotron-objc)
-(progn
-  (def-foreign-type #>CGFloat :float)
-  (def-foreign-type #>NSUInteger :unsigned)
-  (def-foreign-type #>NSInteger :signed)
-  )
 
 (defconstant +cgfloat-zero+