Function Response-Read-Code

Part of:

package trivial-http
( response-read-code < stream > )