- :external-format :utf-8
- :if-exists :supersede)
- (do ((euc (read in nil) (read in nil))
- (ucs (read in nil) (read in nil))
- (i 0 (1+ i)))
- ((or (null euc) (null ucs)))
- ;; write EUC-JP data as binary
- (let ((out out-eucjp))
- (when (>= euc #x10000)
- (write-byte (ldb (byte 8 16) euc) out))
- (when (>= euc #x100)
- (write-byte (ldb (byte 8 8) euc) out))
- (write-byte (ldb (byte 8 0) euc) out)
- (when (= (mod i 32) 31)
- (write-byte #x0a out)))
- ;; trust UTF-8 external format
- (let ((out out-utf8))
- (write-char (code-char ucs) out)
- (when (= (mod i 32) 31)
- (write-char (code-char #x0a) out)))))))
+ :external-format :utf-8
+ :if-exists :supersede)
+ (do ((euc (read in nil) (read in nil))
+ (ucs (read in nil) (read in nil))
+ (i 0 (1+ i)))
+ ((or (null euc) (null ucs)))
+ ;; write EUC-JP data as binary
+ (let ((out out-eucjp))
+ (when (>= euc #x10000)
+ (write-byte (ldb (byte 8 16) euc) out))
+ (when (>= euc #x100)
+ (write-byte (ldb (byte 8 8) euc) out))
+ (write-byte (ldb (byte 8 0) euc) out)
+ (when (= (mod i 32) 31)
+ (write-byte #x0a out)))
+ ;; trust UTF-8 external format
+ (let ((out out-utf8))
+ (write-char (code-char ucs) out)
+ (when (= (mod i 32) 31)
+ (write-char (code-char #x0a) out)))))))