#| 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)
Generated by dwww version 1.15 on Thu May 23 19:03:26 CEST 2024.