[Openmcl-cvs-notifications] r7845 - /trunk/ccl/objc-bridge/bridge.lisp

[gz at clozure.com]

Author: gz
Date: Fri Dec  7 16:15:06 2007
New Revision: 7845

Log:
Print the 'defining new Objc message' note if either *compile-print* or (th=
e new variable) *objc-verbose* is true.  Unimportantly default *objc-verbos=
e* to false

Modified:
    trunk/ccl/objc-bridge/bridge.lisp

Modified: trunk/ccl/objc-bridge/bridge.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/objc-bridge/bridge.lisp (original)
+++ trunk/ccl/objc-bridge/bridge.lisp Fri Dec  7 16:15:06 2007
@@ -1087,12 +1087,15 @@
               (objc-method-info-signature-info method-info) nil))
       method-info)))
 =

+(defvar *objc-verbose* nil)
+
 ;;; Still not right; we have to worry about type conflicts with
 ;;; shadowed methods, as well.
 (defun %declare-objc-method (message-name class-name class-p result-type a=
rgs)
   (let* ((info (get-objc-message-info message-name)))
     (unless info
-      (format *error-output* "~&; Note: defining new ObjC message ~c[~a ~a=
]" (if class-p #\+ #\-) class-name message-name)
+      (when (or *objc-verbose* *compile-print*)
+	(format *error-output* "~&; Note: defining new ObjC message ~c[~a ~a]" (i=
f class-p #\+ #\-) class-name message-name))
       (setq info (make-objc-message-info :message-name message-name))
       (setf (gethash message-name *objc-message-info*) info))
     (let* ((was-ambiguous (getf (objc-message-info-flags info) :ambiguous))