| files >> /opt/lampp/share/doc/gettext/examples/hello-clisp/ |
| files >> //opt/lampp/share/doc/gettext/examples/hello-clisp/hello.lisp.in |
#| Example for use of GNU gettext.
This file is in the public domain.
Source code of the GNU clisp program.
|#
(setf (i18n:textdomain) "hello-clisp")
(setf (i18n:textdomaindir "hello-clisp") "@localedir@/")
(defmacro _ (string) `(i18n:gettext ,string))
(write-line (_ "Hello, world!"))
(format t (_ "This program is running as process number ~D.")
(system::program-id))
(terpri)
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`