Changeset 7846


Ignore:
Timestamp:
Dec 7, 2007, 9:54:18 PM (13 years ago)
Author:
gz
Message:

Update from trunk to rev 7845

Location:
branches/event-ide/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/lib/nfcomp.lisp

    r6505 r7846  
    12611261    ((simple-array (signed-byte 64) (*))
    12621262     (fasl-dump-64-bit-ivector exp $fasl-s64-vector))
    1263     (vector (fasl-dump-gvector exp $fasl-vector-header))
    1264     (array (fasl-dump-gvector exp $fasl-array-header))
    12651263    (ivector
    12661264     (unless (eq (backend-target-arch-name *target-backend*)
     
    12751273       (fasl-out-count n)
    12761274       (fasl-out-ivect exp 0 nb)))
     1275    (vector (fasl-dump-gvector exp $fasl-vector-header))
     1276    (array (fasl-dump-gvector exp $fasl-array-header))
     1277
    12771278    (gvector
    12781279     (if (= (typecode exp) target::subtag-istruct)
  • branches/event-ide/ccl/objc-bridge/bridge.lisp

    r7471 r7846  
    10881088      method-info)))
    10891089
     1090(defvar *objc-verbose* nil)
     1091
    10901092;;; Still not right; we have to worry about type conflicts with
    10911093;;; shadowed methods, as well.
     
    10931095  (let* ((info (get-objc-message-info message-name)))
    10941096    (unless info
    1095       (format *error-output* "~&; Note: defining new ObjC message ~c[~a ~a]" (if class-p #\+ #\-) class-name message-name)
     1097      (when (or *objc-verbose* *compile-print*)
     1098        (format *error-output* "~&; Note: defining new ObjC message ~c[~a ~a]" (if class-p #\+ #\-) class-name message-name))
    10961099      (setq info (make-objc-message-info :message-name message-name))
    10971100      (setf (gethash message-name *objc-message-info*) info))
Note: See TracChangeset for help on using the changeset viewer.