Changeset 135

Timestamp:

Dec 19, 2003, 1:37:50 PM (21 years ago)

Author:

Gary Byers

Message:

This is all #+apple-objc.

File:

• trunk/ccl/examples/process-objc-modules.lisp (modified) (3 diffs)

trunk/ccl/examples/process-objc-modules.lisp

@@ -17 +17 @@
 (in-package "CCL")
 
+(#-(or apple-objc gnu-objc)
+   (eval-when (:compile-toplevel :load-toplevel :execute)
+     #+darwinppc-target (pushnew :apple-objc *features*)
+     #+linuxppc-target (pushnew :gnu-objc *features*)
+     #-(or darwinppc-target linuxppc-target)
+     (error "Not sure what ObjC runtime system to use.")))
+
+#+apple-objc
+(progn
 (defvar *objc-module-verbose* nil)
 
-#+darwinppc-target
+
 (defun process-section-in-all-libraries (segname sectionname function)
   "For every loaded shared library, find the section named SECTIONNAME
@@ -48 +57 @@
                 (funcall function sectdata (pref size :unsigned))))))))))
 
-#+darwinppc-target
 (defun process-objc-modules (f)
   (process-section-in-all-libraries #$SEG_OBJC #$SECT_OBJC_MODULES f))
@@ -188 +196 @@
 |#
 
+)
 (provide "PROCESS-COCOA-MODULES")