xref: /netbsd-src/external/gpl2/gettext/dist/gettext-tools/examples/hello-clisp/hello.lisp.in (revision 946379e7b37692fc43f68eb0d1c10daa0a7f3b6c) 
1*946379e7Schristos#| Example for use of GNU gettext.
2*946379e7Schristos   Copyright (C) 2003 Free Software Foundation, Inc.
3*946379e7Schristos   This file is in the public domain.
4*946379e7Schristos
5*946379e7Schristos   Source code of the GNU clisp program.
6*946379e7Schristos|#
7*946379e7Schristos
8*946379e7Schristos(setf (i18n:textdomain) "hello-clisp")
9*946379e7Schristos(setf (i18n:textdomaindir "hello-clisp") "@localedir@/")
10*946379e7Schristos(defmacro _ (string) `(i18n:gettext ,string))
11*946379e7Schristos
12*946379e7Schristos(write-line (_ "Hello, world!"))
13*946379e7Schristos
14*946379e7Schristos(format t (_ "This program is running as process number ~D.")
15*946379e7Schristos          (system::program-id))
16*946379e7Schristos(terpri)
17