diff options
| author | Robin H. Johnson <robbat2@gentoo.org> | 2015-08-08 13:49:04 -0700 |
|---|---|---|
| committer | Robin H. Johnson <robbat2@gentoo.org> | 2015-08-08 17:38:18 -0700 |
| commit | 56bd759df1d0c750a065b8c845e93d5dfa6b549d (patch) | |
| tree | 3f91093cdb475e565ae857f1c5a7fd339e2d781e /dev-lisp/cl-clx/files/0.6.1-gentoo.patch | |
| download | gentoo-56bd759df1d0c750a065b8c845e93d5dfa6b549d.tar.gz gentoo-56bd759df1d0c750a065b8c845e93d5dfa6b549d.tar.bz2 gentoo-56bd759df1d0c750a065b8c845e93d5dfa6b549d.zip | |
proj/gentoo: Initial commit
This commit represents a new era for Gentoo:
Storing the gentoo-x86 tree in Git, as converted from CVS.
This commit is the start of the NEW history.
Any historical data is intended to be grafted onto this point.
Creation process:
1. Take final CVS checkout snapshot
2. Remove ALL ChangeLog* files
3. Transform all Manifests to thin
4. Remove empty Manifests
5. Convert all stale $Header$/$Id$ CVS keywords to non-expanded Git $Id$
5.1. Do not touch files with -kb/-ko keyword flags.
Signed-off-by: Robin H. Johnson <robbat2@gentoo.org>
X-Thanks: Alec Warner <antarus@gentoo.org> - did the GSoC 2006 migration tests
X-Thanks: Robin H. Johnson <robbat2@gentoo.org> - infra guy, herding this project
X-Thanks: Nguyen Thai Ngoc Duy <pclouds@gentoo.org> - Former Gentoo developer, wrote Git features for the migration
X-Thanks: Brian Harring <ferringb@gentoo.org> - wrote much python to improve cvs2svn
X-Thanks: Rich Freeman <rich0@gentoo.org> - validation scripts
X-Thanks: Patrick Lauer <patrick@gentoo.org> - Gentoo dev, running new 2014 work in migration
X-Thanks: Michał Górny <mgorny@gentoo.org> - scripts, QA, nagging
X-Thanks: All of other Gentoo developers - many ideas and lots of paint on the bikeshed
Diffstat (limited to 'dev-lisp/cl-clx/files/0.6.1-gentoo.patch')
| -rw-r--r-- | dev-lisp/cl-clx/files/0.6.1-gentoo.patch | 108 |
1 files changed, 108 insertions, 0 deletions
diff --git a/dev-lisp/cl-clx/files/0.6.1-gentoo.patch b/dev-lisp/cl-clx/files/0.6.1-gentoo.patch new file mode 100644 index 000000000000..4f3a63ee31c3 --- /dev/null +++ b/dev-lisp/cl-clx/files/0.6.1-gentoo.patch @@ -0,0 +1,108 @@ +diff -ur clx_0.6.1.orig/clx.asd clx_0.6.1/clx.asd +--- clx_0.6.1.orig/clx.asd 2005-03-29 08:42:20.000000000 -0600 ++++ clx_0.6.1/clx.asd 2005-03-30 23:55:19.000000000 -0600 +@@ -35,7 +35,7 @@ + (defclass legacy-file (static-file) ()) + + (defsystem CLX +- :depends-on (sb-bsd-sockets) ++ :depends-on (#+sbcl sb-bsd-sockets) + :version "0.6.1" + :serial t + :default-component-class clx-source-file +Only in clx_0.6.1: clx.asd.~1.23.~ +diff -ur clx_0.6.1.orig/depdefs.lisp clx_0.6.1/depdefs.lisp +--- clx_0.6.1.orig/depdefs.lisp 2003-06-05 15:18:22.000000000 -0500 ++++ clx_0.6.1/depdefs.lisp 2005-03-31 00:15:05.000000000 -0600 +@@ -400,10 +400,10 @@ + (eval-when (:compile-toplevel :load-toplevel :execute) + ;; FIXME: maybe we should reevaluate this? + (defvar *def-clx-class-use-defclass* +- #+Genera t ++ #+(or Genera sbcl) t + #+(and cmu pcl) '(XLIB:DRAWABLE XLIB:WINDOW XLIB:PIXMAP) + #+(and cmu (not pcl)) nil +- #-(or Genera cmu) nil ++ #-(or Genera cmu sbcl) nil + "Controls whether DEF-CLX-CLASS uses DEFCLASS. + + If it is a list, it is interpreted by DEF-CLX-CLASS to be a list of +Only in clx_0.6.1: depdefs.lisp.~1.4.~ +diff -ur clx_0.6.1.orig/dependent.lisp clx_0.6.1/dependent.lisp +--- clx_0.6.1.orig/dependent.lisp 2004-06-11 07:18:17.000000000 -0500 ++++ clx_0.6.1/dependent.lisp 2005-03-31 00:20:25.000000000 -0600 +@@ -1511,11 +1511,16 @@ + (cdr (host-address host))) + :foreign-port (+ *x-tcp-port* display))) + +-#+(or sbcl ecl) ++#+(or sbcl ecl cmu) + (defconstant +X-unix-socket-path+ + "/tmp/.X11-unix/X" + "The location of the X socket") + ++#+(or sbcl ecl CMU) ++(defconstant +X-tcp-port+ ++ 6000 ++ "The TCP port number for X") ++ + #+sbcl + (defun open-x-stream (host display protocol) + (declare (ignore protocol) +@@ -1528,11 +1533,22 @@ + (let ((host (car (host-ent-addresses (get-host-by-name host))))) + (when host + (let ((s (make-instance 'inet-socket :type :stream :protocol :tcp))) +- (socket-connect s host (+ 6000 display)) ++ (socket-connect s host (+ +X-tcp-port+ display)) + s)))) + :element-type '(unsigned-byte 8) + :input t :output t :buffering :none)) + ++#+CMU ++(defun open-x-stream (host display protocol) ++ (declare (ignore protocol) ++ (type (integer 0) display)) ++ (system:make-fd-stream ++ (if (or (string= host "") (string= host "unix")) ++ (ext:connect-to-unix-socket (format nil "~A~D" +X-unix-socket-path+ display)) ++ (ext:connect-to-inet-socket host (+ +X-tcp-port+ display))) ++ :input t :output t :element-type '(unsigned-byte 8))) ++ ++ + #+ecl + (defun open-x-stream (host display protocol) + (declare (ignore protocol) +@@ -1541,7 +1557,7 @@ + (if (or (string= host "") (string= host "unix")) ; AF_UNIX doamin socket + (sys::open-unix-socket-stream + (format nil "~A~D" +X-unix-socket-path+ display)) +- (si::open-client-stream host (+ 6000 display))))) ++ (si::open-client-stream host (+ +X-tcp-port+ display))))) + + ;;; BUFFER-READ-DEFAULT - read data from the X stream + +@@ -3092,7 +3108,7 @@ + (defmacro with-underlying-simple-vector + ((variable element-type pixarray) &body body) + (declare (ignore element-type)) +- `(#+cmu kernel::with-array-data #+sbcl sb-kernel:with-array-data ++ `(#+cmu lisp::with-array-data #+sbcl sb-kernel:with-array-data + ((,variable ,pixarray) (start) (end)) + (declare (ignore start end)) + ,@body)) +@@ -3505,11 +3521,11 @@ + height width) + (declare (type array-index source-width sx sy dest-width dx dy height width)) + #.(declare-buffun) +- (kernel::with-array-data ((sdata source) ++ (lisp::with-array-data ((sdata source) + (sstart) + (send)) + (declare (ignore send)) +- (kernel::with-array-data ((ddata dest) ++ (lisp::with-array-data ((ddata dest) + (dstart) + (dend)) + (declare (ignore dend)) +Only in clx_0.6.1: dependent.lisp.~1.19.~ |
