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