Performance and Evaluation of Lisp Systems - Dreamsongs

232
3.18 File Read
3.18.1 The Program
;;; FREAD -- Benchmark to read from a file.
;;; Requires the existence of FPRINT.TST which is created
;;; by FPRINT.
(defun fread ()
(let ((stream (open "fprint.tst" :direction :input)))
(read stream)
(close stream)))
(eval-when (compile load eval)
(if (not (probe-file "fprint.tst"))
(format
t
"~%Define FPRINT.TST by running the FPRINT benchmark!")))
;;; call: (fread))
3.18.2 Analysis
This benchmark tests file input. It reads the file produced by FPRINT.
3.18.3 Translation Notes
The translation of this benchmark is trivial.