vasilito
ff4ff35918
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
16 lines
395 B
Plaintext
16 lines
395 B
Plaintext
#| 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.")
|
|
(ext:process-id))
|
|
(terpri)
|