mingw/share/doc/gettext/examples/hello-clisp/hello.lisp.in

   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           (system::program-id))
  15 (terpri)