Pipes in the Listener shell

The fun really begins when I can say something like

CL-USER 218 > \ls | (each line (do-something-with line))

CL-USER 218 > (mapcar #'do-something-with-line
                       (lines \ls))

CL-USER 285 > (format t "~{~S~%~}" (lines \ls -l tmp))
"total 1240"
"-rw-r--r--   1 clappl   tivadm       633492 Apr 20 02:00 find.out.gz"
"drwxr-xr-x   2 clappl   tivadm          256 Apr 16 17:23 visfilep1"
"0"
NIL

tags: lisp  

links: digg this    del.icio.us    technorati    reddit