| Current Path : /usr/local/share/doc/gettext/examples/hello-clisp/ |
| Current File : //usr/local/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.")
(ext:process-id))
(terpri)