;; $Header: /srv/cvs/sources/gcl/gcl/bench/fread.cl,v 1.1 2005/06/29 04:37:11 camm Exp $ ;; $Locker: $ ;;; FREAD -- Benchmark to read from a file. ;;; Pronounced "FRED". Requires the existance of FPRINT.TST which is created ;;; by FPRINT. (defun fread () (let ((stream (open "/tmp/fprint.tst" :direction :input))) (read stream) (close stream))) (defun testfread () (fread))