| #| 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) |