From 6cfefb966753d1a3780e48ad8b04edd647f1c114 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 3 Mar 1994 16:53:31 +0000
Subject: [PATCH] Changed ~A to ~D when formatting socket file in case the base
 isn't 10.

---
 motif/lisp/internals.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/motif/lisp/internals.lisp b/motif/lisp/internals.lisp
index 73aaf1ded..800595044 100644
--- a/motif/lisp/internals.lisp
+++ b/motif/lisp/internals.lisp
@@ -67,8 +67,8 @@
 	  (handler-case
 	      (ext::connect-to-unix-socket
 	       (if pid
-		   (format nil "/tmp/.motif_socket-p~a" pid)
-		   (format nil "/tmp/.motif_socket-u~a" (unix:unix-getuid))))
+		   (format nil "/tmp/.motif_socket-p~D" pid)
+		   (format nil "/tmp/.motif_socket-u~D" (unix:unix-getuid))))
 	    (error ()
 	      (ext:connect-to-unix-socket "/tmp/.motif_socket"))))
     (error ()
-- 
GitLab