[Openmcl-devel] patch for compile-file :save-source-locations t when line-termination is :dos

[Yoshinori Tahara]

Hi,

The attached patch fixes the following error.

/tmp/a.lisp is uft-8-dos
(progn
  (print 'hello)
  (print 'hello)
  (print 'hello))

set line-termination to :dos.
(setf ccl:*default-external-format*
               (ccl:make-external-format :character-encoding :utf-8
                                         :line-termination :dos))

compile-file with :save-source-locations t
(compile-file "/tmp/a.lisp" :save-source-locations t)

rise error
value :EOF is not of the expected type CHARACTER.

Regards,
-- 
Yoshinori Tahara
-------------- next part --------------
A non-text attachment was scrubbed...
Name: l1-reader.diff
Type: application/octet-stream
Size: 1307 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20090712/5723cb9a/attachment.obj>