Changeset 484
- Timestamp:
- Feb 6, 2004, 11:41:30 AM (21 years ago)
- File:
-
- 1 edited
-
trunk/ccl/examples/process-objc-modules.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/examples/process-objc-modules.lisp
r431 r484 210 210 #'check-if-section-already-scanned)))) 211 211 212 (defun remap-all-library-classes () 213 (process-objc-modules 214 #'(lambda (sectptr size) 215 (iterate-over-module-classes 216 sectptr 217 size 218 #'(lambda (class) 219 (unless (logtest #$CLS_META (pref class :objc_class.info)) 220 (install-foreign-objc-class class))))))) 212 221 213 222 214 #|
Note:
See TracChangeset
for help on using the changeset viewer.
