(Portage version: 2.0.51.19)

3 files changed, 0 insertions, 165 deletions

diff --git a/dev-lisp/cl-clx/cl-clx-0.6.ebuild b/dev-lisp/cl-clx/cl-clx-0.6.ebuild
deleted file mode 100644
index d57ccb1c254a..000000000000
--- a/dev-lisp/cl-clx/cl-clx-0.6.ebuild
+++ /dev/null
@@ -1,36 +0,0 @@
-# Copyright 1999-2005 Gentoo Foundation
-# Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-clx/cl-clx-0.6.ebuild,v 1.2 2005/03/18 07:22:47 mkennedy Exp $
-
-inherit common-lisp eutils
-
-DESCRIPTION="Portable CLX"
-HOMEPAGE="http://ftp.linux.org.uk/pub/lisp/sbcl/ http://www.cliki.net/CLX"
-SRC_URI="http://ftp.linux.org.uk/pub/lisp/sbcl/clx_${PV}.tar.gz"
-
-LICENSE="as-is"
-SLOT="0"
-KEYWORDS="~x86 ~ppc ~amd64"
-IUSE=""
-
-DEPEND="dev-lisp/common-lisp-controller"
-
-CLPACKAGE=clx
-
-S=${WORKDIR}/clx_${PV}
-
-src_unpack() {
-	unpack ${A}
-	epatch ${FILESDIR}/${PV}-gentoo.patch || die
-}
-
-src_install() {
-	for i in . demo test debug; do
-		insinto /usr/share/common-lisp/source/clx/${i}
-		doins ${S}/${i}/*.lisp
-	done
-	insinto /usr/share/common-lisp/source/clx
-	doins clx.asd
-	common-lisp-system-symlink
-	dodoc CHANGES NEWS README*
-}
diff --git a/dev-lisp/cl-clx/files/0.6-gentoo.patch b/dev-lisp/cl-clx/files/0.6-gentoo.patch
deleted file mode 100644
index 17b133ebb36d..000000000000
--- a/dev-lisp/cl-clx/files/0.6-gentoo.patch
+++ /dev/null
@@ -1,128 +0,0 @@
-diff -ur clx_0.6.orig/clx.asd clx_0.6/clx.asd
---- clx_0.6.orig/clx.asd	2004-11-16 07:08:26.000000000 -0600
-+++ clx_0.6/clx.asd	2004-12-21 23:24:20.147725033 -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"
-     :serial t
-     :default-component-class clx-source-file
-@@ -89,23 +89,6 @@
- 	      ((:file "image")
- 	       ;; KLUDGE: again, this depends on "zoid"
- 	       (:file "trapezoid")))
--     (:static-file "NEWS")
--     (:static-file "CHANGES")
--     (:static-file "README")
--     (:static-file "README-R5")
--     (:legacy-file "exclMakefile")
--     (:legacy-file "exclREADME")
--     (:legacy-file "exclcmac" :pathname "exclcmac.lisp")
--     (:legacy-file "excldepc" :pathname "excldep.c")
--     (:legacy-file "excldep" :pathname "excldep.lisp")
--     (:legacy-file "sockcl" :pathname "sockcl.lisp")
--     (:legacy-file "socket" :pathname "socket.c")
--     (:legacy-file "defsystem" :pathname "defsystem.lisp")
--     (:legacy-file "provide" :pathname "provide.lisp")
--     (:legacy-file "cmudep" :pathname "cmudep.lisp")
--     (:module manual
--	      ;; TODO: teach asdf how to process texinfo files
--	      :components ((:static-file "clx.texinfo")))
-      (:module debug
- 	      :default-component-class legacy-file
- 	      :components
-diff -ur clx_0.6.orig/depdefs.lisp clx_0.6/depdefs.lisp
---- clx_0.6.orig/depdefs.lisp	2003-06-05 15:18:22.000000000 -0500
-+++ clx_0.6/depdefs.lisp	2004-12-21 23:24:20.149724837 -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
-diff -ur clx_0.6.orig/dependent.lisp clx_0.6/dependent.lisp
---- clx_0.6.orig/dependent.lisp	2004-06-11 07:18:17.000000000 -0500
-+++ clx_0.6/dependent.lisp	2004-12-21 23:42:41.387986779 -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,21 @@
-        (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 +1556,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 +3107,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 +3520,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))
diff --git a/dev-lisp/cl-clx/files/digest-cl-clx-0.6 b/dev-lisp/cl-clx/files/digest-cl-clx-0.6
deleted file mode 100644
index 8bc824de0d3c..000000000000
--- a/dev-lisp/cl-clx/files/digest-cl-clx-0.6
+++ /dev/null
@@ -1 +0,0 @@
-MD5 5aeceafdbf727ba99c5b02cb3156021b clx_0.6.tar.gz 378268