Sending Apple Events

Does anyone know of a way to send an appleevent under Mac OS X from
LispWorks?

What I want to do is something like this (which is how you do it in
Macintosh Common LISP):

(defun send-event (n)
  (with-aedescs (appleevent reply target)
    (create-named-process-target target "MyApp")
    (create-appleevent appleevent :|PKPr| :|Tick| target)
    (ae-put-parameter-longinteger appleevent #$keyDirectObject n)
    (send-appleevent appleevent reply :reply-mode :no-reply)))

I can't find any reference to appleevents in the CAPI manuals.

Thanks,
David Johnson-Davies

+------------------------------------------------------------+
David Johnson-Davies, Human-Computer Interface Ltd
17 Signet Court, Swanns Road, Cambridge, CB5 8LA, England.

Tel: +44 1223 314934, Fax: +44 1223 462562
Email: david@interface.co.uk, Web: http://www.interface.co.uk/
+------------------------------------------------------------+
Sending Apple Events

Re: Sending Apple Events
