File: fread.cl

package info (click to toggle)
gcl27 2.7.1-8
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 26,808 kB
  • sloc: lisp: 211,856; ansic: 53,500; sh: 9,333; makefile: 642; tcl: 53; awk: 25
file content (14 lines) | stat: -rw-r--r-- 331 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
;; $Header$
;; $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 ()
  (print (time (fread))))