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