The current OS reader.
(53-) (set *s* (open "fdg.txt" in))
#<FD-STREAM for "file C:\\Users\\User\\Google Drive\\SP Rebuild 5\\Shen\\Tarver\\fdg.txt" {1006C82713}>
(54-) (time (do (read (value *s*)) ok))
run time: 78.14100646972656 secs
ok
(55-) (close (value *s*))
[]
The prototype SP reader.
(56-) (set *s* (open "fdg.txt" in))
#<FD-STREAM for "file C:\\Users\\User\\Google Drive\\SP Rebuild 5\\Shen\\Tarver\\fdg.txt" {10054CC063}>
(57-) (time (do (sp-read (value *s*)) ok))
run time: 0.608978271484375 secs
ok
(58-) (close (value *s*))