1 USING: arrays kernel xml-rpc ;
4 CONSTANT: url "http://www.common-lisp.net:8185/RPC2"
7 { } "listchannels" url invoke-method ;
9 : lisppaste ( seq -- response )
10 ! seq is { channel user title contents }
11 ! or { channel user title contents annotation-number }
12 "newpaste" url invoke-method ;