gnu/dist/gettext/gettext-tools/examples/hello-clisp/hello.lisp.in

   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)