Re: Help with passing floats through apple events

[gat@forsight.jpl.nasa.gov (Erann Gat)]

In article <9209301852.AA17992@starbase.mitre.org> slack@starbase.MITRE.ORG (M. G. Slack) writes:
>I could send doubles as both lisp and C use the IEEE format however, how do I
>get a pointer to a regular float in lisp?  The %address-of function returns an
>integer address of the location of a float not a macptr to the float??

Try:

(defun %address-of-as-macptr (object)
  (%int-to-ptr (logand #xFFFFFFF8 (%address-of object))))

E.