Skip to content
Snippets Groups Projects
Commit b2c0dbce authored by dan's avatar dan
Browse files

Update in preparation for SBCL 0.7.13 release

darcs-hash:20030221172016-2591e-54dda917ff8b0aaa4969f2d222f386290e2fc74b.gz
parent 0ec96edb
No related branches found
Tags v0_4_1_
No related merge requests found
This directory contains CLX, an X11 client library for Common
Lisp. The code was originally taken from a CMUCL distribution, was
modified somewhat in order to make it compile and run under SBCL, then
a selection of patches were added from other CLXes around the net,
a selection of patches were added from other CLXes around the net.
= Features
- SHAPE extension support (Gilbert Baumann)
- X authority support that works with ssh forwarding (Eric Marsden via CMUCL)
- OPEN-DEFAULT-DISPLAY function, as the name suggests, does that (dan)
- various bug fixes (mostly thanks to Iban Hatchondo)
- various bug fixes (Iban Hatchondo and a cast of several)
= Building
0. You need SBCL 0.7.12.25 (CVS version) or any release after that
0. You need SBCL 0.7.13 or any later release
1. Untar this tree somewhere
2. Add a symlink to clx.asd from one of the directories listed in your
asdf:*central-registry*
asdf:*central-registry*
If that makes no sense to you yet, choose one of -
2a. personal installation:
$ cd $HOME/.sbcl/systems # you may have to create this directory
$ ln -s /path/to/clx/source/clx.asd .
2b. systemwide installations: you need to ask SBCL where it lives
$ sbcl --noinform --eval '(format t "~A~%" (posix-getenv "SBCL_HOME"))' </dev/null
/usr/local/lib/sbcl/
*
$ cd /usr/local/lib/sbcl/site-systems
$ ln -s /path/to/clx/source/clx.asd .
3.
* (require 'asdf)
......@@ -59,4 +74,4 @@ For packaging or SBCL-specific problems, mail dan at metacircles.com
--
Heavy lifting by Raymond.Wiker@fast.no
ASDFized version and ongoing by Daniel Barlow <dan@metacirles.com>
ASDFized version and ongoing by Daniel Barlow <dan@metacircles.com>
......@@ -27,7 +27,7 @@
(defsystem CLX
:depends-on (sb-bsd-sockets)
:version "0.4"
:version "0.4.1"
:serial t
:components
((:file "package")
......
......@@ -1409,8 +1409,8 @@
(declare (ignore protocol)
(type (integer 0) display))
(socket-make-stream
(if (or (string= host "") (string= host "unix")) ; AF_UNIX domain socket
(let ((s (make-instance 'unix-socket :type :stream)))
(if (or (string= host "") (string= host "unix")) ; AF_LOCAL domain socket
(let ((s (make-instance 'local-socket :type :stream)))
(socket-connect s (format nil "~A~D" +X-unix-socket-path+ display))
s)
(let ((host (car (host-ent-addresses (get-host-by-name host)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment