From: Bruno Haible <bruno@clisp.org>
Date: Thu, 18 Oct 2018 01:02:49 +0000 (+0200)
Subject: examples: hello-clisp: Fix runtime error with clisp versions >= 2.34.
X-Git-Tag: v0.20~336
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=acf66cdd293e165791db6960ff9e36b0d36149c0;p=thirdparty%2Fgettext.git

examples: hello-clisp: Fix runtime error with clisp versions >= 2.34.

* gettext-tools/examples/hello-clisp/hello.lisp.in: Use the function
PROCESS-ID, not PROGRAM-ID.
---

diff --git a/gettext-tools/examples/hello-clisp/hello.lisp.in b/gettext-tools/examples/hello-clisp/hello.lisp.in
index ce278a6fa..bbcc8ce7d 100644
--- a/gettext-tools/examples/hello-clisp/hello.lisp.in
+++ b/gettext-tools/examples/hello-clisp/hello.lisp.in
@@ -11,5 +11,5 @@
 (write-line (_ "Hello, world!"))
 
 (format t (_ "This program is running as process number ~D.")
-          (system::program-id))
+          (ext:process-id))
 (terpri)