Changeset 162

Timestamp:

Dec 31, 2003, 3:02:55 AM (21 years ago)

Author:

Gary Byers

Message:

Don't call MAP-OBJC-CLASS when walking modules.

File:

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

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

@@ -76 +76 @@
         (%setf-macptr classptr (%get-ptr defsptr (* i (record-length :address))))
         (when *objc-module-verbose*
-          (format t "~& processing class ~s"
-                  (%get-cstring (pref classptr :objc_class.name)))
+          (format t "~& processing class ~a, info = #x~8,'0x"
+                  (%get-cstring (pref classptr :objc_class.name))
+                  (pref classptr :objc_class.info))
           (force-output t))
         ;; process the class
@@ -149 +150 @@
          module
          #'(lambda (class)
+             (when *objc-module-verbose*
+               (format t "~& == processing class #x~8,'0x ~a, (#x~8,'0x) info = #x~8,'0x"
+                       (%ptr-to-int class)
+                       (%get-cstring (pref class :objc_class.name))
+                       (%ptr-to-int (pref class :objc_class.name))
+                       (pref class :objc_class.info)))
+             #+nope
              (unless (logtest #$CLS_META (pref class :objc_class.info))
                (map-objc-class class))