Function Lun->Stream

Part of:

package f2cl-lib
( lun->stream < lun > &optional < readp > )