[Openmcl-devel] MidiShare and CCL

[Gary Byers]

Don't use CCL:[:]%PUT-PTR.

Use (SETF (%GET-PTR ...) ...) instead

On Fri, 25 Apr 2008, Wolfgang Suppan wrote:

> 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)

        (setf (%get-ptr taskptr) ev)

>      (MidiForgetTask taskptr))))
>
>
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel
>
>