From: 何相志 <her...@16...> - 2016-12-09 02:10:30
|
Thank you all, it's fixed. Best wishes! -------------------------------- He Xiang-zhi Mobile: 18828090659 E-mail: her...@16... At 2016-12-08 21:02:18, "Stas Boukarev" <sta...@gm...> wrote: >On Thu, Dec 8, 2016 at 3:47 PM, Attila Lendvai <at...@le...> wrote: >>> (with-open-file (in-stream "/home/gameuser/gameserver.laba.1001.log" >>> :if-does-not-exist :error :direction :input :external-format :utf-8) >>> (do ((line (read-line in-stream nil 'eof) >>> (read-line in-stream nil 'eof))) >>> ((eq line 'eof) "file end") >>> (format t "~d" line))) >> >> FTR, you can do this on SBCL: >> >> (with-open-file (in-stream "/tmp/x" :if-does-not-exist :error >> :direction :input :external-format :utf-8) >> (handler-bind ((sb-int:stream-decoding-error >> (lambda (c) >> (invoke-restart (find-restart >> 'sb-impl::input-replacement c) "?")))) >> (do ((line (read-line in-stream nil 'eof) >> (read-line in-stream nil 'eof))) >> ((eq line 'eof) "file end") >> (format t "~d~%" line)))) > >This is just :external-format '(:utf-8 :replacement #\?) > > >-- >With best regards, Stas. |