Yes, now it works ... Fine !pjot wrote:Oops my bad, that should be libglib-2.0-0.dll.
So: (import "libglib-2.0-0.dll" "g_malloc").
I updated the program, can you check again?
Regards
Thanks
;o)
Code: Select all
(import "kernel32.dll" "FreeConsole")
(FreeConsole)
Code: Select all
(context 'C)
(define (f x y (mode 'black))
(cond
((= mode 'blue)
(+ x y))
((= mode 'white)
(- x y))
(true
0)))
(context MAIN)
(C:f 1 2 'C:white)
(context 'Z)
(C:f 1 2 'C:blue)
Code: Select all
-1
3
Code: Select all
(define (f:f x y (mode 'black))
(cond
((= mode 'blue)
(+ x y))
((= mode 'white)
(- x y))
(true
0)))
(f 1 2 'white)
Code: Select all
-1
Code: Select all
> (set 's "abc")
"abc"
> (replace (first s) s "z") ; or (replace (s 0) s "z")
"zbc"
Super on WinXP with the appropriate soundbank !Lutz wrote: • newLISP-GS with multitrack MIDI interface for internal synthesizer, see midi-demo.lsp and midi2-demo.lsp.