> declared an overly restrictive range for the position parameter. This
> is fixed now in CVS.
Tnx...I've just copied the most recent src tar.gz file
(cmucl-src-20030317.tar.gz) over to patch my 18D core. I didn't see
any changes to the FILE-POSITION's DECLARE statement nor to the
associated (DEFTYPE INDEX...) statement that I'd expected to see. I
won't try to blindly rebuild the entire core since that has never
worked for me 100%. I had hoped just to replace the offending
routines, if I could find them.
Over the week end I made a simple change to FILE-POSITION that seemed
to work...
WAS: (defun file-position (stream &optional position)
WAS: (declare (stream stream)
WAS: (type (or index (member nil :start :end)) position))
^^^^^
NOW: (defun file-position (stream &optional position)
NOW: (declare (stream stream)
NOW: (type (or (integer 0) (member nil :start :end)) position))
^^^^^^^^^^^
But I'm not confident enough that I haven't messed up something else by
doing this. If you feel that this change won't have any bad side effects
I'll use it will I wait for an 18e prebinary to try.
> If you have code that uses large files on Linux, it would be very
> useful if you could test the upcoming 18e prerelease binaries, to help
> find any remaining bugs.
I will be processing 100's of files that will be in the 500M+ range. I've
no idea of what the largest file size will be, but I'll advise of errors
that I encounter.
tnx
mike
**************************************************
Dr Michael A. Koerber Micro$oft Free Zone
MIT/Lincoln Laboratory
