Changeset 14766


Ignore:
Timestamp:
May 1, 2011, 12:24:36 PM (9 years ago)
Author:
gb
Message:

Give the foreign :FLOAT and :DOUBLE types canonical type ordinals.
(Among other things, this means that the macroexpansion of RLET involving these types
doesn't have to do a (often type-checked) structure reference to
what turns out to be a constant foreign type.)

In the more general case, it'd be nice if the programmer could be trusted
to say (FOO-STRUCT-ACCESSOR (THE FOO X)). (Or at least it's not nice that
they apparently can't be. CCL as Nerf Lisp, which offers Safe Indoor Fun
For The Whole Family!)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/foreign-types.lisp

    r14742 r14766  
    17761776      (canonicalize-foreign-type-ordinal '(:struct :timeval))
    17771777      (canonicalize-foreign-type-ordinal '(:struct :addrinfo))
     1778      (canonicalize-foreign-type-ordinal :float)
     1779      (canonicalize-foreign-type-ordinal :double)
    17781780
    17791781      (setq canonical-ordinal (1- max-common-foreign-type-ordinal))
Note: See TracChangeset for help on using the changeset viewer.