Localized CMUCL

[Raymond Toy]

$ LANG=en at 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 at 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