opt/pl-build-tools/share/doc/gettext/examples/hello-clisp/hello.lisp.in · voxpupuli / pl-gettext v0.19.8-3bionic - deb package | Gemfury

Gemfury

Why Gemfury? Push, build, and install RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

voxpupuli / pl-gettext deb

Repository URL to install this package:

Details

pl-gettext / opt / pl-build-tools / share / doc / gettext / examples / hello-clisp / hello.lisp.in

#| Example for use of GNU gettext.
   This file is in the public domain.

   Source code of the GNU clisp program.
|#

(setf (i18n:textdomain) "hello-clisp")
(setf (i18n:textdomaindir "hello-clisp") "@localedir@/")
(defmacro _ (string) `(i18n:gettext ,string))

(write-line (_ "Hello, world!"))

(format t (_ "This program is running as process number ~D.")
          (system::program-id))
(terpri)