[Openmcl-devel] MidiShare and CCL

[Stéphane Letz]

Le 26 avr. 08 à 18:00, openmcl-devel-request at clozure.com a écrit :

> Send Openmcl-devel mailing list submissions to
> 	openmcl-devel at clozure.com
>
> To subscribe or unsubscribe via the World Wide Web, visit
> 	http://clozure.com/mailman/listinfo/openmcl-devel
> or, via email, send a message with subject or body 'help' to
> 	openmcl-devel-request at clozure.com
>
> You can reach the person managing the list at
> 	openmcl-devel-owner at clozure.com
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Openmcl-devel digest..."
>
>
> Today's Topics:
>
>    1. MidiShare and CCL (Wolfgang Suppan)
>    2. Re: MidiShare and CCL (Gary Byers)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Fri, 25 Apr 2008 22:28:41 +0200
> From: Wolfgang Suppan <wsu at chello.at>
> Subject: [Openmcl-devel] MidiShare and CCL
> To: openmcl-devel at clozure.com
> Message-ID: <eb91d4cc1da593847d60cfb1f767b9e3 at chello.at>
> Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed
>
> Adds to my first mail:
>
> In the meantime I succeed compiling Midishare.
> I just transformed the compiler-error with an compiler-warning by
> changing the function "ccl:put-ptr" into "ccl::put-ptr":
>
> ;Compiler warnings for
> "/Applications/ccl/MusikWriter0.28/source/Midi/MidiShare-
> Interface.lisp" :
> ;   In MIDIFORGETTASK: Undefined function CCL::%PUT-PTR
>
> It seems, that this "trick" doesn't  affect the basic- 
> functionallity of
> the Interface.
>
> So, my question is now: how can I use or rewrite the function
> ccl:%put-ptr?
> In the archive there is something mentioned like: (rlet ((ptr :pointer
> macptr-for-cfstring)) ...)
>
> here is the context (the function that produces the error/warning):
>
> (defun MidiForgetTask (ev)
>    "Forget a previously scheduled typeProcess or typeDProcess event
> created by MidiTask or MidiDTask"
>    (ccl:without-interrupts
>     (ccl:%stack-block ((taskptr 4))
>       (ccl:%put-ptr  taskptr ev)
>       (MidiForgetTask taskptr))))
>
>


Are you using the MidiShae CCFI interface ? see:

http://commonmusic.sourceforge.net/doc/install.html#midishare

http://sourceforge.net/project/showfiles.php? 
group_id=9766&package_id=172112

Regards

Stephane Letz