[2-16] How can I create a stream that acts like UNIX's /dev/null (i.e., gobbles any output and immediately signals EOF on input operations)?

(defparameter *dev-null*
 #-lispm
 (make-two-way-stream (make-concatenated-stream) (make-broadcast-stream))
 ;; Since Lisp Machines have a built-in /dev/null which handles
 ;; additional, non-standard operations, we'll use that instead.
 #+lispm #'system:null-stream)

Go Back Up

Go To Previous

Go To Next