Changeset 7846

Timestamp:

Dec 7, 2007, 1:54:18 PM (17 years ago)

Author:

gz

Message:

Update from trunk to rev 7845

Location:

branches/event-ide/ccl

Files:

• lib/nfcomp.lisp (modified) (2 diffs)
• objc-bridge/bridge.lisp (modified) (2 diffs)

branches/event-ide/ccl/lib/nfcomp.lisp

@@ -1261 +1261 @@
     ((simple-array (signed-byte 64) (*))
      (fasl-dump-64-bit-ivector exp $fasl-s64-vector))
-    (vector (fasl-dump-gvector exp $fasl-vector-header))
-    (array (fasl-dump-gvector exp $fasl-array-header))
     (ivector
      (unless (eq (backend-target-arch-name *target-backend*)
@@ -1275 +1273 @@
        (fasl-out-count n)
        (fasl-out-ivect exp 0 nb)))
+    (vector (fasl-dump-gvector exp $fasl-vector-header))
+    (array (fasl-dump-gvector exp $fasl-array-header))
+
     (gvector
      (if (= (typecode exp) target::subtag-istruct)

branches/event-ide/ccl/objc-bridge/bridge.lisp

@@ -1088 +1088 @@
       method-info)))
 
+(defvar *objc-verbose* nil)
+
 ;;; Still not right; we have to worry about type conflicts with
 ;;; shadowed methods, as well.
@@ -1093 +1095 @@
   (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]" (if class-p #\+ #\-) class-name message-name))
       (setq info (make-objc-message-info :message-name message-name))
       (setf (gethash message-name *objc-message-info*) info))