Index: /trunk/ccl/examples/cocoa-window.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-window.lisp	(revision 239)
+++ /trunk/ccl/examples/cocoa-window.lisp	(revision 240)
@@ -18,9 +18,10 @@
 (in-package "CCL")			; for now.
 
-(eval-when (:compile-toplevel :execute)
-  (use-interface-dir :cocoa))
-
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require "OBJC-SUPPORT"))
+
+(eval-when (:compile-toplevel :execute)
+  (use-interface-dir #+apple-objc  :cocoa #+gnu-objc :gnustep))
+
 
 (defun init-cocoa-application ()
@@ -47,5 +48,5 @@
 
 
-
+#+apple-objc
 (defun trace-dps-events (flag)
   (external-call "__DPSSetEventsTraced"
@@ -94,5 +95,5 @@
 
 
-
+#+apple-objc
 (define-objc-method ("_shouldTerminate" lisp-application)
   (:<BOOL>)
@@ -105,4 +106,5 @@
     "LispApplicationDelegate")
 
+#+apple-objc
 (defun enable-foreground ()
   (%stack-block ((psn 8))
@@ -125,4 +127,5 @@
 ;;; split off this way because we don't necessarily wamt to just do
 ;;  (#_exit 0) when we've shut down the Cocoa UI.
+#+apple-objc
 (define-objc-method ((:void shutdown)
 		     lisp-application)
@@ -174,4 +177,5 @@
 
 
+#+apple-objc
 (defmethod process-verify-quit ((process appkit-process))
   (let* ((app *NSApp*))
@@ -191,4 +195,5 @@
        (send app 'termp)))))
 
+#+apple-objc
 (defmethod process-exit-application ((process appkit-process) thunk)
   (when (eq process *initial-process*)
@@ -211,6 +216,8 @@
     ;; that it does is to release all autorelease pools.  So, we create
     ;; one, but don't worry about freeing it ...
-    (create-autorelease-pool)
-    (objc-message-send app "_deallocHardCore:" :<BOOL> #$YES :void)))
+    #+apple-objc
+    (progn
+      (create-autorelease-pool)
+      (objc-message-send app "_deallocHardCore:" :<BOOL> #$YES :void))))
 
 
Index: /trunk/ccl/examples/cocoa.lisp
===================================================================
--- /trunk/ccl/examples/cocoa.lisp	(revision 239)
+++ /trunk/ccl/examples/cocoa.lisp	(revision 240)
@@ -6,6 +6,8 @@
 ;;; below.
 
+#+darwinppc-target
+(progn
 (require "FAKE-CFBUNDLE-PATH")
-(fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl")
+(fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl"))