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
This directory contains CLX, an X11 client library for Common This directory contains CLX, an X11 client library for Common
Lisp. The code was originally taken from a CMUCL distribution, was Lisp. The code was originally taken from a CMUCL distribution, was
modified somewhat in order to make it compile and run under SBCL, then 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 = Features
- SHAPE extension support (Gilbert Baumann) - SHAPE extension support (Gilbert Baumann)
- X authority support that works with ssh forwarding (Eric Marsden via CMUCL) - X authority support that works with ssh forwarding (Eric Marsden via CMUCL)
- OPEN-DEFAULT-DISPLAY function, as the name suggests, does that (dan) - 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 = 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 1. Untar this tree somewhere
2. Add a symlink to clx.asd from one of the directories listed in your 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. 3.
* (require 'asdf) * (require 'asdf)
...@@ -59,4 +74,4 @@ For packaging or SBCL-specific problems, mail dan at metacircles.com ...@@ -59,4 +74,4 @@ For packaging or SBCL-specific problems, mail dan at metacircles.com
-- --
Heavy lifting by Raymond.Wiker@fast.no 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 @@ ...@@ -27,7 +27,7 @@
(defsystem CLX (defsystem CLX
:depends-on (sb-bsd-sockets) :depends-on (sb-bsd-sockets)
:version "0.4" :version "0.4.1"
:serial t :serial t
:components :components
((:file "package") ((:file "package")
......
...@@ -1409,8 +1409,8 @@ ...@@ -1409,8 +1409,8 @@
(declare (ignore protocol) (declare (ignore protocol)
(type (integer 0) display)) (type (integer 0) display))
(socket-make-stream (socket-make-stream
(if (or (string= host "") (string= host "unix")) ; AF_UNIX domain socket (if (or (string= host "") (string= host "unix")) ; AF_LOCAL domain socket
(let ((s (make-instance 'unix-socket :type :stream))) (let ((s (make-instance 'local-socket :type :stream)))
(socket-connect s (format nil "~A~D" +X-unix-socket-path+ display)) (socket-connect s (format nil "~A~D" +X-unix-socket-path+ display))
s) s)
(let ((host (car (host-ent-addresses (get-host-by-name host))))) (let ((host (car (host-ent-addresses (get-host-by-name host)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment