• R/O
  • SSH
  • HTTPS

creole: Commit


Commit MetaInfo

Revision26 (tree)
Time2010-05-10 00:01:03
Authorphjgt

Log Message

テスト用コード修正

Change Summary

Incremental Difference

--- test/test.lisp (revision 25)
+++ test/test.lisp (revision 26)
@@ -21,7 +21,7 @@
2121 (let ((unicode-charset (coerce
2222 (loop FOR i FROM 0 BELOW char-code-limit
2323 UNLESS (<= #xD800 i #xDFFF)
24- #+CCL WHEN (code-char i)
24+ WHEN (code-char i)
2525 COLLECT (code-char i))
2626 'string)))
2727 (loop FOR external-format IN '(:utf-16be :utf-16le :utf-8) DO
Show on old repository browser