gistfile1.lisp

; Writing bytes to a file, and timing the execution                                                   


(defun filer (path)
 (with-open-file (s path
                    :direction :output
                    :if-exists :supersede
                    :if-does-not-exist :create
                    :element-type 'unsigned-byte)
		 (loop repeat (* (expt 2 20) 100) ;100MB
                       do (write-byte 102 s)))) 

(time (filer "temp-bytes"))