blob: 530346bedf55062b45c46371691d93c7fe7cccf5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#| Example for use of GNU gettext.
Copyright (C) 2003 Free Software Foundation, Inc.
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)
|
