Date: Thu, 5 Oct 1995 08:52:45 -0400
Message-Id: <199510051252.IAA11396@opal.cs.brandeis.edu>
From: Patrick Tufts <zippy@cs.brandeis.edu>
To: ram+@cs.cmu.edu
CC: martin@sinera.iiia.csic.es, cmucl-bugs@cs.cmu.edu
In-reply-to: message from Rob MacLachlan on Wed, 04 Oct 1995 22:22:33 -0400
Subject: Re: C <== TCP/IP ==> CMU Lisp ?

I wrote a CMU CL 17f (IRIX) to TCL interface using sockets.

Here's what the code on the Lisp side looks like:

(defun connect-to-server (path)
  "connect to a named socket and return a stream"
  (let (fd stream)
    (setf fd (connect-to-unix-socket path))
    (setf stream (system:make-fd-stream fd :input t :output t))
    (values stream)))

(defun send (stream string)
  "sends a string to a stream and forces output"
  (format stream string)
  (force-output stream))

--Pat