$ LANG=en@piglatin lisp -noinit ; Comment: $Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/utf-8.lisp,v 1.5 2009-09-28 18:12:59 rtoy Exp $ ; Ompilingcay DEFINE-EXTERNAL-FORMAT UTF-8way: ; Ompilingcay DEFINE-EXTERNAL-FORMAT UTF-8way: ; Ytebay Ompilingcay Optay-Evellay Ormfayway: ; Ommentcay: $Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/utf-8.lisp,v 1.5 2009-09-28 18:12:59 rtoy Exp $way ; Ompilingcay DEFINE-EXTERNAL-FORMAT UTF-8way: ; Ompilingcay DEFINE-EXTERNAL-FORMAT UTF-8way: ; Ytebay Ompilingcay Optay-Evellay Ormfayway: CMU Common Lisp CVS Head 2010-02-12 11:35:00 (20A Unicodeway), unningray onway macmini Ithway orecay: /Volumes/share/cmucl/intl-branch/intl-4/lisp/lisp-sse2.core Umpedday onway: Fri, 2010-02-12 11:38:58-05:00 onway macmini Eesay <ttphay://wwway.onscay.orgway/muclcay/> orfay upportsay informationway. Oadedlay ubsystemssay: Unicodeway 1.6.8.2 ithway Unicodeway ersionvay 5.1.0 Python 1.1, target Intel x86/sse2 CLOS based on Gerd's PCL 2010-02-08 17:15:53 * (bit-and #*0 #*11) #*0 andway #*11 oday otnay avehay ethay amesay imensionsday.way [Onditioncay ofway ypetay KERNEL:SIMPLE-PROGRAM-ERROR] Estartsray: 0: [ABORT] Eturnray otay Optay-Evellay. Ebugday (ypetay H orfay elphay) (BIT-AND #*0 #*11 NIL) Ourcesay: ; Ilefay: target:code/array.lispway (DEF-BIT-ARRAY-OP BIT-AND LOGAND) 0] 0 * ;; Something more interesting (set-system-external-format :utf8) ; [CGAY resholdthay exceededway ithway 12,015,024 ytesbay inway useway. Ommencingcay CGAY.] ; [CGAY ompletedcay ithway 1,800,272 ytesbay etainedray andway 10,214,752 ytesbay eedfray.] ; [CGAY illway extnay occurway enwhay atway eastlay 13,800,272 ytesbay areway inway useway.] T * (intl:setlocale "ko") "ko" * (bit-and #*0 #*11) #*0 와 #*11 는 그 요소의 수가 다르다. [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR] Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) (BIT-AND #*0 #*11 NIL) Source: (DEF-BIT-ARRAY-OP BIT-AND LOGAND) 0] q * (gc) ; [GC 문턱은 5,119,960 바이트로 사용중인 초과했다. 시작 GC.] ; [유지되는 582,280의 바이트 및 해방되는 4,537,680의 바이트로 완료되는 GC.] ; [GC는 다음 적어도 12,582,280의 바이트가 사용중인 일 때 일어날 것이다.] NIL * Thanks to Paul Foley, CMUCL now has support for localized messages, as shown above. Paul provided the code to read the mo files and the support for gettext in source files. The Pig latin translation is from Paul who provided some code (src/tools/piglatin.lisp) to convert the messages automatically. The Korean translation only has a handful of messages translated and some of the messages were translated by machine (Google Translate). Soon, I'll be merging the code from the branch intl-branch to the trunk. I haven't noticed any problems, and it's possible to do a full build using the en@piglatin language. There is one issue: The compiling takes some 20-25% longer. This is probably due to the translated compiler messages. Some of these need to be reworked so the translation is done only when needed. Ray