Home | History | Annotate | Line # | Download | only in hello-clisp 
      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