It was big PITA when I found that win-version of newlisp have no peek.
But I found a workaround (viewtopic.php?f=9&t=5139) :
Code: Select all
(define (peek-pipe fd)
(letn (pos (seek fd)
size (seek fd -1))
(seek fd pos)
size
))
Code: Select all
(define (peek-pipe fd)
(letn (pos (seek fd)
size (seek fd -1))
(seek fd pos)
size
))