Changeset 6061


Ignore:
Timestamp:
Mar 18, 2007, 7:50:13 AM (13 years ago)
Author:
gb
Message:

Remove the (training-wheels) warning about non-canonical type ordinals
in RLET-INITS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/lib/macros.lisp

    r6046 r6061  
    27902790           (ordinal-form (if (< ordinal max-canonical-foreign-type-ordinal)
    27912791                           ordinal
    2792                            (progn
    2793                              (warn "Non canonical foreign-type-ordinal in ~s"
    2794                                    (unparse-foreign-type ftype))
    2795                              `(foreign-type-ordinal (load-time-value (%foreign-type-or-record ',record-name)))))))
     2792                           `(foreign-type-ordinal (load-time-value (%foreign-type-or-record ',record-name))))))
    27962793      (setq result (nconc result `((%set-macptr-type ,name ,ordinal-form))))
    27972794      (if (typep ftype 'foreign-record-type)
Note: See TracChangeset for help on using the changeset viewer.