(index ("netstring-write" 0) ("netstring-read" 179) ("string->netstring" 380) ("netstring->string" 499))
(def (sig (procedure "(netstring-write str #!optional port)" (id netstring-write))) (p "Writes " (tt "str") " to " (tt "port") " (" (tt "(current-output-port)") " by default)."))
(def (sig (procedure "(netstring-read #!optional port)" (id netstring-read))) (p "Reads a netstring from " (tt "port") " (" (tt "(current-input-port)") " by default) and returns its interpretation."))
(def (sig (procedure "(string->netstring str)" (id string->netstring))) (p "Converts " (tt "str") " to a netstring."))
(def (sig (procedure "(netstring->string ns)" (id netstring->string))) (p "Returns the interpretation of " (tt "ns") "."))
