From 213beb64c6647048148030b1c03632defe948f8e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 5 Sep 1990 20:42:32 +0000
Subject: [PATCH] Fixed the def-c-routine stuff.

---
 clx/defsystem.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/clx/defsystem.lisp b/clx/defsystem.lisp
index 8c90d7be6..ecf12f059 100644
--- a/clx/defsystem.lisp
+++ b/clx/defsystem.lisp
@@ -371,10 +371,8 @@
 ;;;
 #+:CMU
 (defun clx-foreign-files ()
-  (ext:def-c-type c-string (ext::null-terminated-string 256))
-  (ext:def-c-pointer *c-string c-string)
   (ext:def-c-routine ("connect_to_server" xlib::connect-to-server) (ext:int)
-    (host *c-string)
+    (host system:null-terminated-string)
     (port ext:int)))
 
 
-- 
GitLab