MACRO: make-string-list-getter ( name -- ) [ [ create-in ] [ '[ 0 tuck "void*" "libMagickWand" _ { "char*" "ulong*" } alien-invoke ] ] bi define ] curry ; "MagickQueryConfigureOptions" make-string-list-getter : MagickQueryConfigureOptions ( pattern -- p-num-options stringlist ) 0 tuck "void*" "libMagickWand" "MagickQueryConfigureOptions" { "char*" "ulong*" } alien-invoke ;