PIPE-DEV PIPE-SNM FALSE PIPE-NM1 FALSE PIPE-NM2 FALSE PIPE-DSN FALSE PIPE-STATUS FIX PIPE-OJFN PIPE-PIPE PIPE-BUF STRING> > )> > ) RES) #DECL ((PUV) UVECTOR (RES) ) > <> <> <> <> <> 0 .PUV " "] PIPE>)>> ) "AUX" (PIPE ) JFN) #DECL ((CHANNEL) CHANNEL (PIPE) PIPE) .WHICH>> >) (>)>) (T >)> >)>)>> ) "AUX" (PIPE ) RES (BUF ,LEN-BUF)) #DECL ((CHANNEL) CHANNEL (LEN) FIX (STRING) STRING (PIPE) PIPE (BUF) UVECTOR) ,FIONREAD .BUF>> >> .STRING .LEN>> .RES) (T .RES)>) (0)>)>> ) "AUX" (PIPE ) RES) #DECL ((CHANNEL) CHANNEL (STRING) STRING (LEN) FIX (PIPE) PIPE) .STRING .LEN>> .RES) (T .RES)>> ) RES) #DECL ((CHANNEL) CHANNEL (PIPE) PIPE) 1>> <1 >) (T .RES)>> ) "AUX" (PIPE ) RES) #DECL ((CHANNEL) CHANNEL (BUF) STRING (LEN) FIX (PIPE) PIPE) .BUF .LEN>> .RES) (T .RES)>> ) RES (BUF )) #DECL ((CHANNEL) CHANNEL (BYTE) CHARACTER (PIPE) PIPE (BUF) STRING) <1 .BUF .BYTE> .BUF 1>> .BYTE) (T .RES)>> )) #DECL ((CHANNEL) CHANNEL (PIPE) PIPE) >