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