Changeset 231

Timestamp:

Jan 5, 2004, 9:21:57 PM (21 years ago)

Author:

Gary Byers

Message:

Print class addresses when generating slots, in the commented-out FORMAT
calls.

File:

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

trunk/ccl/examples/objc-clos.lisp

@@ -169 +169 @@
 
 (defun initialize-objc-class-slots (class class-name wrapper &optional foreign)
-;  (format t "~&initialize-objc-class-slots ~s" class-name)
-;  (force-output)
+;  (format t "~&initialize-objc-class-slots ~s (#x~x)" class-name (%ptr-to-int class))  
+ ; (force-output)
   (let* ((super (pref class :objc_class.super_class))
          (super-id (unless (%null-ptr-p super) (objc-class-id super)))
@@ -199 +199 @@
 
 (defun initialize-objc-metaclass-slots (class class-name wrapper &optional foreign peer)
-;  (format t "~&initialize-objc-metaclass-slots ~s" class-name)
+;  (format t "~&initialize-objc-metaclass-slots ~s (#x~x)" class-name (%ptr-to-int class))
 ;  (force-output)
   (let* ((super (pref class :objc_class.super_class))