mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-02 07:30:55 -08:00
19 lines
644 B
Common Lisp
19 lines
644 B
Common Lisp
;;; -*- Package: XLIB -*-
|
|
;;;
|
|
;;; **********************************************************************
|
|
;;; This code was written as part of the CMU Common Lisp project at
|
|
;;; Carnegie Mellon University, and has been placed in the public domain.
|
|
;;; If you want to use this code or any part of CMU Common Lisp, please contact
|
|
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
|
|
;;;
|
|
(ext:file-comment
|
|
"$Header$")
|
|
;;;
|
|
;;; **********************************************************************
|
|
;;;
|
|
(in-package "XLIB")
|
|
|
|
(alien:def-alien-routine ("connect_to_server" xlib::connect-to-server)
|
|
c-call:int
|
|
(host c-call:c-string)
|
|
(port c-call:int))
|