Changeset 573

Timestamp:

Feb 27, 2004, 8:25:09 AM (21 years ago)

Author:

beer

Message:

UPDATE-TYPE-SIGNATURES-FOR-METHOD now takes a class as a second argument

File:

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

trunk/ccl/examples/objc-runtime.lisp

@@ -1227 +1227 @@
 
 ;;; Stub until BRIDGE is loaded
-(defun update-type-signatures-for-method (m) (declare (ignore m)))
+(defun update-type-signatures-for-method (m c) (declare (ignore m c)))
 
 
@@ -1254 +1254 @@
                     (make-cstring typestring)
                     (pref method :objc_method.method_imp) imp)
-              (update-type-signatures-for-method method)
+              (update-type-signatures-for-method method classptr)
               (return mlist)))
           (do* ((n (pref mlist :objc_method_list.method_count))
@@ -1296 +1296 @@
                          :address classptr
                          :void))
-        (update-type-signatures-for-method (%inc-ptr method 0))))))
+        (update-type-signatures-for-method (%inc-ptr method 0) classptr)))))
 
 (defvar *lisp-objc-methods* (make-hash-table :test #'eq))