Changeset 124

Timestamp:

Dec 15, 2003, 1:12:31 PM (21 years ago)

Author:

Gary Byers

Message:

start to conditionalize for runtime

Location:

trunk/ccl/examples

Files:

• bridge.lisp (modified) (1 diff)
• process-objc-modules.lisp (modified) (2 diffs)

trunk/ccl/examples/bridge.lisp

@@ -25 +25 @@
 (in-package "CCL")
 
+#+darwinppc-target
 (require "APPLE-OBJC")
+#+linuxppc-target
+(require "GNU-OBJC")
 (require "NAME-TRANSLATION")
 

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

@@ -19 +19 @@
 (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
@@ -46 +47 @@
               (unless (%null-ptr-p sectdata)
                 (funcall function sectdata (pref size :unsigned))))))))))
-  
+
+#+darwinppc-target
 (defun process-objc-modules (f)
   (process-section-in-all-libraries #$SEG_OBJC #$SECT_OBJC_MODULES f))