picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

reverse.l (251B)

      1 # 19dec05abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (setq *Port (port 6789))
      5 
      6 (loop
      7    (setq *Sock (listen *Port))
      8    (NIL (fork) (close *Port))
      9    (close *Sock) )
     10 
     11 (in *Sock
     12    (until (eof)
     13       (out *Sock
     14          (prinl (flip (line))) ) ) )
     15 
     16 (bye)