[Openmcl-devel] slow read-char
keke at gol.com
Thu Jul 13 18:11:14 PDT 2006
The following codes take longer to complete with OpenMCL 1.0
than MCL 5.1:
(with-open-file (out "home:test.temp"
(dotimes (i 2097152)
(declare (fixnum i))
(write-char #\a out)))
(with-open-file (in "home:test.temp")
(loop for char = (read-char in nil nil)
for c from 0
E.g. the latter form that calls read-char takes aprox 3.5
times longer in my setup. It is as if no buffering takes
Does anyone have an idea what may cause the difference?
More information about the Openmcl-devel