From ccdeb1f64590dbe107a3b3f709794edeeb697720 Mon Sep 17 00:00:00 2001 From: José María Alonso Date: Tue, 23 Dec 2014 19:41:47 +0000 Subject: Add current version and live ebuild of package CLX. Should replace package cl-clx (Portage version: 2.2.14/cvs/Linux x86_64, signed Manifest commit with key F253DB15) --- dev-lisp/clx/ChangeLog | 15 + dev-lisp/clx/Manifest | 10 + dev-lisp/clx/clx-0.7.4.ebuild | 46 ++++ dev-lisp/clx/clx-9999.ebuild | 17 ++ dev-lisp/clx/files/gentoo-fix-asd.patch | 303 +++++++++++++++++++++ dev-lisp/clx/files/gentoo-fix-dep-openmcl.patch | 21 ++ .../gentoo-fix-dynamic-extent-sbcl-1.0.45.patch | 13 + .../clx/files/gentoo-fix-obsolete-eval-when.patch | 12 + dev-lisp/clx/files/gentoo-fix-unused-vars.patch | 69 +++++ dev-lisp/clx/metadata.xml | 22 ++ 10 files changed, 528 insertions(+) create mode 100644 dev-lisp/clx/ChangeLog create mode 100644 dev-lisp/clx/Manifest create mode 100644 dev-lisp/clx/clx-0.7.4.ebuild create mode 100644 dev-lisp/clx/clx-9999.ebuild create mode 100644 dev-lisp/clx/files/gentoo-fix-asd.patch create mode 100644 dev-lisp/clx/files/gentoo-fix-dep-openmcl.patch create mode 100644 dev-lisp/clx/files/gentoo-fix-dynamic-extent-sbcl-1.0.45.patch create mode 100644 dev-lisp/clx/files/gentoo-fix-obsolete-eval-when.patch create mode 100644 dev-lisp/clx/files/gentoo-fix-unused-vars.patch create mode 100644 dev-lisp/clx/metadata.xml (limited to 'dev-lisp/clx') diff --git a/dev-lisp/clx/ChangeLog b/dev-lisp/clx/ChangeLog new file mode 100644 index 000000000000..365c49dc4827 --- /dev/null +++ b/dev-lisp/clx/ChangeLog @@ -0,0 +1,15 @@ +# ChangeLog for dev-lisp/clx +# Copyright 1999-2014 Gentoo Foundation; Distributed under the GPL v2 +# $Header: /var/cvsroot/gentoo-x86/dev-lisp/clx/ChangeLog,v 1.1 2014/12/23 19:41:47 nimiux Exp $ + +*clx-9999 (23 Dec 2014) +*clx-0.7.4 (23 Dec 2014) + + 23 Dec 2014; Chema Alonso +clx-0.7.4.ebuild, + +clx-9999.ebuild, +files/gentoo-fix-dynamic-extent-sbcl-1.0.45.patch, + +files/gentoo-fix-asd.patch, +files/gentoo-fix-dep-openmcl.patch, + +files/gentoo-fix-obsolete-eval-when.patch, + +files/gentoo-fix-unused-vars.patch, +metadata.xml: + Add current version and live ebuild of package CLX. Should replace package + cl-clx + diff --git a/dev-lisp/clx/Manifest b/dev-lisp/clx/Manifest new file mode 100644 index 000000000000..c50eabd00259 --- /dev/null +++ b/dev-lisp/clx/Manifest @@ -0,0 +1,10 @@ +AUX gentoo-fix-asd.patch 11298 SHA256 9a9fe8c95020cbadbac7f283ce37abd346d550f9136d53807e8138e58534120d SHA512 80702eca8ae22affb3dc77ffddb1daac0740857d9deca157c650dea15691e4feeaf7d4a0220d3705111bbbb317a02c3adaae7e293bc219346eebb2dc1f598a9e WHIRLPOOL b0fb4f6890ad22f97801c2b36211f621c853cde5f6c0098feee08d777df90391d5e1c3028f5e3ab6d701f58670ea73358fa82909a48126303dc2fedbd6161a9c +AUX gentoo-fix-dep-openmcl.patch 905 SHA256 c3d06020eb70df215de7b72b29af207d45239c908e3d0149ca8a3e40c6e70d76 SHA512 fdef997e33ffec46b4c28393faada80165b866398668eb1a6db5182586175cb264fdac462f4e3441d546dc3a195845ee92a1a7eae736da62c8741f9b7dd48612 WHIRLPOOL 092e93a6b7748a448354de56b70e4f3310575d5ebddd4916e443fbba1b9b513b1e448362c60437522c838022fa220725a9c83487292dc98fa282d548437590f2 +AUX gentoo-fix-dynamic-extent-sbcl-1.0.45.patch 600 SHA256 f3925863e607b5ec2bc96f891b11b89818feb5c17d985766c7c0e69e098000fd SHA512 97089c5e6b08b410ca26267116a4f7958b12d2ff93740292f53335a3d25a2b9f188f5afef75190db1648171eadaa62b6cec68425d410e87f7a6b97b5678102b6 WHIRLPOOL 42a86c5d1f76622b7bcbd0cac84aedc8ab30591ade84ee29e387cc3b98c155ba3cb1ce9a0352c5829b238f186cf2c6f5c1ce55716efcdae450dd1760c8a69287 +AUX gentoo-fix-obsolete-eval-when.patch 435 SHA256 7c7b3d17102223a6f0c24d31e7942880977ba4de422b51d189fac9c8a298c197 SHA512 0f3db1aa5d7a2f9a9e88f61d04633d399337fac517f7d4ee17bf88968f9bfe32f3105562dbe454b0bbaf91b4afe48c1361fbb2c492a3c6e4250426ea15a39610 WHIRLPOOL 6479f8564f374a21554ddb7b6909266c10d5682d18079c5ddd282183444faef269f93f533eb07f9b5820b9f41e98f7e775993d4c48f249f951c8113373c7eb09 +AUX gentoo-fix-unused-vars.patch 3139 SHA256 08a548efa8d7c69b41cf208a16efd42cf78aebaf3f529aa6b35f23ecfacd0b57 SHA512 fbb4d2e5866568adaed0534beb0f126792fc3d30880f2727fce7b62dcb0d57cb8367e1924ef52beb513a7a84f1b816832fa6d2f1605bda6354c075dc4db2b458 WHIRLPOOL 97b35c46cc206cfd849c48f6bef73ac0f22edc7bf9af910cd765479a58b2193e69e06c658f24ff6180b0face83d56a19f09ae03b2e4a58da7aaa650598dc9b56 +DIST clx-0.7.4.tgz 444490 SHA256 4a80f80255ace26eb8df214957dda3d7b7e51955537405ec893a34b18e569028 SHA512 07f93735bee25c8a6d8cccaa0755efa0b750954cbeab70d9db69bf51f1cf4eb7918c0225b9ae2834b11ebb261a857eea0f60b70e4044ccbe96ecb32c3ac31278 WHIRLPOOL af49b2dca591fd234c8b790867286383fc4fd32091415cc6c78b904bd7a3bff2e65c923553fe0bad41d83eb91fc74d801925ea9613c31c2f24a484ba0bb699ae +EBUILD clx-0.7.4.ebuild 1270 SHA256 60a0af65254d135711eb5c086c20ad6884cdf8698a6f804251966904cd2311cb SHA512 35cbd46b8f6e61ef6e0bb98f94b50a0e56ce2305b03a7cb877cc9d5c3f3742823da93b73702f46d5fa4c08663b9c4cff42c018746cfb2ee092d4f41fdc98fdf2 WHIRLPOOL 039165a0885a853bd501188d109a99dbe785db92f95dd6dab34de7bb9ae0f831bf74eec0f1139e2645fba445d2d9bac778cfa8a3dc0e06bdeb2b2b8147c9d753 +EBUILD clx-9999.ebuild 449 SHA256 051405afc2ce2413d55b6ab14676e6a2560adeed5c7f82e4c6909fc21bf978b3 SHA512 99723109cf9a0b08bac7062fdac6437e0023d6045eaa9754b556cff6db6aeee2a35dbde140a02f0a631e3c8c68083b108c3c7ec7efe37690643bca46a0028de7 WHIRLPOOL 5b771ce38073e0aa5fbdb62cc89cd750ce8e2f55cddf5e39203ff26d85964561df9bcd024f21b0106ba5920eeac30515638ff9ed9c0f09be4e7ef54c2a934c61 +MISC ChangeLog 557 SHA256 8d5d5b077dcd3257ac7d318e1372372a1d938ec03c376052e3614f7bde5f6718 SHA512 51c961fcb5da939c9ad9e10033b6b18f8203ed5034251881ca9a9453a9801af3cc28ea5a93b36ad6eab7512b1681030c8d03f50fb3881975e3589dcfdaaf773a WHIRLPOOL 470b7a0d15ac79a8da224c5cf6a0c80b092eb2bf31c512b2024690820168d68f50088c9a96bd6e3743bbdec4da884baedd6480ac24fe9dee4de7eaecfd8734a6 +MISC metadata.xml 765 SHA256 58f1ca0594369e154b42fbe08dead4ee294d892f165d29129cbf0d72c7a38b99 SHA512 7ed2ba0f81f756ae60fdc0067c57214dcaa9f0fe555d511b0c82f6e1bb498593c763943f660511104dd24360f7328f0291608d6bef3e6c873488eaa431345244 WHIRLPOOL 2cb85143bba85abb596eb26989ba0dab11b7149fec94a17947ff5557d30510ade34492d8a2c92727fc408e8414b75905e7c95084eaca55857cb24252171cca23 diff --git a/dev-lisp/clx/clx-0.7.4.ebuild b/dev-lisp/clx/clx-0.7.4.ebuild new file mode 100644 index 000000000000..369d2f37658a --- /dev/null +++ b/dev-lisp/clx/clx-0.7.4.ebuild @@ -0,0 +1,46 @@ +# Copyright 1999-2014 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: /var/cvsroot/gentoo-x86/dev-lisp/clx/clx-0.7.4.ebuild,v 1.1 2014/12/23 19:41:47 nimiux Exp $ + +EAPI=5 + +inherit common-lisp-3 eutils + +DESCRIPTION="CLX is the Common Lisp interface to the X11 protocol primarily for SBCL." +HOMEPAGE="http://www.cliki.net/CLX" +SRC_URI="http://common-lisp.net/~abridgewater/dist/${PN}/${P}.tgz" + +LICENSE="CLX" +SLOT="0" +KEYWORDS="~amd64 ~ppc ~sparc ~x86" +IUSE="doc" + +DEPEND="sys-apps/texinfo + doc? ( virtual/texi2dvi )" +RDEPEND="!dev-lisp/cl-${PN}" + +src_prepare() { + rm -v {exclcmac,sockcl,defsystem,provide,cmudep}.lisp || die + epatch "${FILESDIR}"/gentoo-fix-asd.patch + epatch "${FILESDIR}"/gentoo-fix-dep-openmcl.patch + epatch "${FILESDIR}"/gentoo-fix-unused-vars.patch + epatch "${FILESDIR}"/gentoo-fix-obsolete-eval-when.patch + epatch "${FILESDIR}"/gentoo-fix-dynamic-extent-sbcl-1.0.45.patch +} + +src_compile() { + cd manual || die + makeinfo ${PN}.texinfo -o ${PN}.info || die "Cannot compile info docs" + if use doc ; then + VARTEXFONTS="${T}"/fonts \ + texi2pdf ${PN}.texinfo -o ${PN}.pdf || die "Cannot build PDF docs" + fi +} + +src_install() { + common-lisp-install-sources *.lisp debug demo test + common-lisp-install-asdf + dodoc NEWS CHANGES README* + doinfo manual/${PN}.info + use doc && dodoc manual/${PN}.pdf +} diff --git a/dev-lisp/clx/clx-9999.ebuild b/dev-lisp/clx/clx-9999.ebuild new file mode 100644 index 000000000000..3db01a74ac0f --- /dev/null +++ b/dev-lisp/clx/clx-9999.ebuild @@ -0,0 +1,17 @@ +# Copyright 1999-2014 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: /var/cvsroot/gentoo-x86/dev-lisp/clx/clx-9999.ebuild,v 1.1 2014/12/23 19:41:47 nimiux Exp $ + +EAPI=5 + +inherit common-lisp-3 git-2 + +DESCRIPTION="A fork of crhodes' fork of danb's fork of the CLX library, an X11 client for Common Lisp" +HOMEPAGE="https://github.com/sharplispers/clx http://www.cliki.net/CLX" +EGIT_REPO_URI="git://github.com/sharplispers/clx.git" + +LICENSE="CLX" +SLOT="0" +IUSE="" + +RDEPEND="!dev-lisp/cl-${PN}" diff --git a/dev-lisp/clx/files/gentoo-fix-asd.patch b/dev-lisp/clx/files/gentoo-fix-asd.patch new file mode 100644 index 000000000000..62ad58748170 --- /dev/null +++ b/dev-lisp/clx/files/gentoo-fix-asd.patch @@ -0,0 +1,303 @@ +diff -ur clx-0.7.4.orig/clx.asd clx-0.7.4/clx.asd +--- clx-0.7.4.orig/clx.asd 2009-11-28 16:43:30.000000000 +0100 ++++ clx-0.7.4/clx.asd 2009-11-29 22:29:11.000000000 +0100 +@@ -21,116 +21,80 @@ + ;;; or implied warranty. + + (defpackage :clx-system (:use :cl :asdf)) +-(in-package :clx-system) ++(in-package :clx-system) + + (pushnew :clx-ansi-common-lisp *features*) + + (defclass clx-source-file (cl-source-file) ()) + (defclass xrender-source-file (clx-source-file) ()) + +-;;; CL-SOURCE-FILE, not CLX-SOURCE-FILE, so that we're not accused of +-;;; cheating by rebinding *DERIVE-FUNCTION-TYPES* :-) +-(defclass example-source-file (cl-source-file) ()) +- +-(defclass legacy-file (static-file) ()) +- +-(defsystem CLX +- :depends-on (#+sbcl sb-bsd-sockets) +- :version "0.7.2" +- :serial t +- :default-component-class clx-source-file ++(defsystem clx ++ :depends-on (#+sbcl :sb-bsd-sockets) ++ :version "0.7.4" ++ :serial t ++ :default-component-class clx-source-file ++ :components ++ ((:file "package") ++ (:file "depdefs") ++ (:file "clx") ++ #-(or openmcl allegro) (:file "dependent") ++ #+openmcl (:file "dep-openmcl") ++ #+allegro (:file "dep-allegro") ++ (:file "macros") ++ (:file "bufmac") ++ (:file "buffer") ++ (:file "display") ++ (:file "gcontext") ++ (:file "input") ++ (:file "requests") ++ (:file "fonts") ++ (:file "graphics") ++ (:file "text") ++ (:file "attributes") ++ (:file "translate") ++ (:file "keysyms") ++ (:file "manager") ++ (:file "image") ++ (:file "resource") ++ #+allegro ++ (:file "excldep" :pathname "excldep.lisp") ++ (:module extensions ++ :pathname #.(make-pathname :directory '(:relative)) + :components +- ((:file "package") +- (:file "depdefs") +- (:file "clx") +- #-(or openmcl allegro) (:file "dependent") +- #+openmcl (:file "dep-openmcl") +- #+allegro (:file "dep-allegro") +- (:file "macros") +- (:file "bufmac") +- (:file "buffer") +- (:file "display") +- (:file "gcontext") +- (:file "input") +- (:file "requests") +- (:file "fonts") +- (:file "graphics") +- (:file "text") +- (:file "attributes") +- (:file "translate") +- (:file "keysyms") +- (:file "manager") +- (:file "image") +- (:file "resource") +- #+allegro +- (:file "excldep" :pathname "excldep.lisp") +- (:module extensions +- :pathname #.(make-pathname :directory '(:relative)) +- :components +- ((:file "shape") +- (:file "big-requests") +- (:file "xvidmode") +- (:xrender-source-file "xrender") +- (:file "glx") +- (:file "gl" :depends-on ("glx")) +- (:file "dpms") +- (:file "xtest") +- (:file "screensaver") +- (:file "xinerama"))) +- (:module demo +- :default-component-class example-source-file +- :components +- ((:file "bezier") +- ;; KLUDGE: this requires "bezier" for proper operation, +- ;; but we don't declare that dependency here, because +- ;; asdf doesn't load example files anyway. +- (:file "beziertest") +- (:file "clclock") +- (:file "clipboard") +- (:file "clx-demos") +- (:file "gl-test") +- ;; FIXME: compiling this generates 30-odd spurious code +- ;; deletion notes. Find out why, and either fix or +- ;; workaround the problem. +- (:file "mandel") +- (:file "menu") +- (:file "zoid"))) +- (:module test +- :default-component-class example-source-file +- :components +- ((: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 "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 +- ((:file "debug" :pathname "debug.lisp") +- (:file "describe" :pathname "describe.lisp") +- (:file "event-test" :pathname "event-test.lisp") +- (:file "keytrans" :pathname "keytrans.lisp") +- (:file "trace" :pathname "trace.lisp") +- (:file "util" :pathname "util.lisp"))))) +- +-(defmethod perform ((o load-op) (f example-source-file)) +- ;; do nothing. We want to compile them when CLX is compiled, but +- ;; not load them when CLX is loaded. +- t) ++ ((:file "shape") ++ (:file "big-requests") ++ (:file "xvidmode") ++ (:xrender-source-file "xrender") ++ (:file "glx") ++ (:file "gl" :depends-on ("glx")) ++ (:file "dpms") ++ (:file "xtest") ++ (:file "screensaver") ++ (:file "xinerama"))))) ++ ++(defsystem clx-test ++ :depends-on (:clx) ++ :serial t ++ :components ++ ((:file "image") ++ (:file "trapezoid"))) ++ ++(defsystem clx-demo ++ :depends-on (:clx) ++ :serial t ++ :components ++ ((:file "bezier") ++ (:file "beziertest") ++ (:file "clclock") ++ (:file "clipboard") ++ (:file "clx-demos") ++ (:file "gl-test") ++ ;; FIXME: compiling this generates 30-odd spurious code ++ ;; deletion notes. Find out why, and either fix or ++ ;; workaround the problem. ++ (:file "mandel") ++ (:file "menu") ++ (:file "zoid"))) + + #+sbcl + (defmethod perform :around ((o compile-op) (f xrender-source-file)) +@@ -146,35 +110,35 @@ + ;; without STYLE-WARNINGs. Since it currently does, let's enforce + ;; it here so that we can catch regressions easily. + (let ((on-warnings (operation-on-warnings o)) +- (on-failure (operation-on-failure o))) ++ (on-failure (operation-on-failure o))) + (unwind-protect +- (progn +- (setf (operation-on-warnings o) :error +- (operation-on-failure o) :error) +- ;; a variety of accessors, such as AREF-CARD32, are not +- ;; declared INLINE. Without this (non-ANSI) +- ;; static-type-inference behaviour, SBCL emits an extra 100 +- ;; optimization notes (roughly one fifth of all of the +- ;; notes emitted). Since the internals are unlikely to +- ;; change much, and certainly the internals should stay in +- ;; sync, enabling this extension is a win. (Note that the +- ;; use of this does not imply that applications using CLX +- ;; calls that expand into calls to these accessors will be +- ;; optimized in the same way). +- (let ((sb-ext:*derive-function-types* t) ++ (progn ++ (setf (operation-on-warnings o) :error ++ (operation-on-failure o) :error) ++ ;; a variety of accessors, such as AREF-CARD32, are not ++ ;; declared INLINE. Without this (non-ANSI) ++ ;; static-type-inference behaviour, SBCL emits an extra 100 ++ ;; optimization notes (roughly one fifth of all of the ++ ;; notes emitted). Since the internals are unlikely to ++ ;; change much, and certainly the internals should stay in ++ ;; sync, enabling this extension is a win. (Note that the ++ ;; use of this does not imply that applications using CLX ++ ;; calls that expand into calls to these accessors will be ++ ;; optimized in the same way). ++ (let ((sb-ext:*derive-function-types* t) + (sadx (find-symbol "STACK-ALLOCATE-DYNAMIC-EXTENT" :sb-c)) + (sadx-var (find-symbol "*STACK-ALLOCATE-DYNAMIC-EXTENT*" :sb-ext))) +- ;; deeply unportable stuff, this. I will be shot. We +- ;; want to enable the dynamic-extent declarations in CLX. +- (when (and sadx (sb-c::policy-quality-name-p sadx)) +- ;; no way of setting it back short of yet more yukky stuff +- (proclaim `(optimize (,sadx 3)))) ++ ;; deeply unportable stuff, this. I will be shot. We ++ ;; want to enable the dynamic-extent declarations in CLX. ++ (when (and sadx (sb-c::policy-quality-name-p sadx)) ++ ;; no way of setting it back short of yet more yukky stuff ++ (proclaim `(optimize (,sadx 3)))) + (if sadx-var + (progv (list sadx-var) (list t) + (call-next-method)) + (call-next-method)))) + (setf (operation-on-warnings o) on-warnings +- (operation-on-failure o) on-failure)))) ++ (operation-on-failure o) on-failure)))) + + #+sbcl + (defmethod perform :around (o (f clx-source-file)) +@@ -186,31 +150,31 @@ + ;; structured data is sufficiently equal. + (handler-bind + ((sb-ext:defconstant-uneql +- (lambda (c) +- ;; KLUDGE: this really means "don't warn me about +- ;; efficiency of generic array access, please" +- (declare (optimize (sb-ext:inhibit-warnings 3))) +- (let ((old (sb-ext:defconstant-uneql-old-value c)) +- (new (sb-ext:defconstant-uneql-new-value c))) +- (typecase old +- (list (when (equal old new) (abort c))) +- (string (when (and (typep new 'string) +- (string= old new)) +- (abort c))) +- (simple-vector +- (when (and (typep new 'simple-vector) +- (= (length old) (length new)) +- (every #'eql old new)) +- (abort c))) +- (array +- (when (and (typep new 'array) +- (equal (array-dimensions old) +- (array-dimensions new)) +- (equal (array-element-type old) +- (array-element-type new)) +- (dotimes (i (array-total-size old) t) +- (unless (eql (row-major-aref old i) +- (row-major-aref new i)) +- (return nil)))) +- (abort c)))))))) ++ (lambda (c) ++ ;; KLUDGE: this really means "don't warn me about ++ ;; efficiency of generic array access, please" ++ (declare (optimize (sb-ext:inhibit-warnings 3))) ++ (let ((old (sb-ext:defconstant-uneql-old-value c)) ++ (new (sb-ext:defconstant-uneql-new-value c))) ++ (typecase old ++ (list (when (equal old new) (abort c))) ++ (string (when (and (typep new 'string) ++ (string= old new)) ++ (abort c))) ++ (simple-vector ++ (when (and (typep new 'simple-vector) ++ (= (length old) (length new)) ++ (every #'eql old new)) ++ (abort c))) ++ (array ++ (when (and (typep new 'array) ++ (equal (array-dimensions old) ++ (array-dimensions new)) ++ (equal (array-element-type old) ++ (array-element-type new)) ++ (dotimes (i (array-total-size old) t) ++ (unless (eql (row-major-aref old i) ++ (row-major-aref new i)) ++ (return nil)))) ++ (abort c)))))))) + (call-next-method))) diff --git a/dev-lisp/clx/files/gentoo-fix-dep-openmcl.patch b/dev-lisp/clx/files/gentoo-fix-dep-openmcl.patch new file mode 100644 index 000000000000..1ec3eca0897c --- /dev/null +++ b/dev-lisp/clx/files/gentoo-fix-dep-openmcl.patch @@ -0,0 +1,21 @@ +diff -ur clx-0.7.4.orig/dep-openmcl.lisp clx-0.7.4/dep-openmcl.lisp +--- clx-0.7.4.orig/dep-openmcl.lisp 2009-11-28 16:43:30.000000000 +0100 ++++ clx-0.7.4/dep-openmcl.lisp 2009-11-29 22:39:36.000000000 +0100 +@@ -492,7 +492,7 @@ + ;;; value changes. + + (defun process-block (whostate predicate &rest predicate-args) +- (declare (dynamic-extern predicate-args)) ++ (declare (dynamic-extent predicate-args)) + (apply #'ccl:process-wait whostate predicate predicate-args)) + + ;;; PROCESS-WAKEUP: Check some other process' wait function. +@@ -1113,7 +1113,7 @@ + unit byte-lsb-first-p bit-lsb-first-p) + (declare (ignore bbuf boffset pixarray x y width height + padded-bytes-per-line bits-per-pixel unit +- byte-lsb-first-p bit-lsp-first-p)) ++ byte-lsb-first-p bit-lsb-first-p)) + nil) + + ;;; FAST-COPY-PIXARRAY - copy part of a pixarray into another diff --git a/dev-lisp/clx/files/gentoo-fix-dynamic-extent-sbcl-1.0.45.patch b/dev-lisp/clx/files/gentoo-fix-dynamic-extent-sbcl-1.0.45.patch new file mode 100644 index 000000000000..961d1bedaa67 --- /dev/null +++ b/dev-lisp/clx/files/gentoo-fix-dynamic-extent-sbcl-1.0.45.patch @@ -0,0 +1,13 @@ +diff -ur clx-0.7.4.orig/requests.lisp clx-0.7.4/requests.lisp +--- clx-0.7.4.orig/requests.lisp 2009-11-28 16:43:30.000000000 +0100 ++++ clx-0.7.4/requests.lisp 2010-12-16 23:37:07.122629835 +0100 +@@ -466,8 +466,7 @@ + (type event-key event-key) + (type (or null event-mask) event-mask) + (type generalized-boolean propagate-p) +- (type (or null display) display) +- (dynamic-extent args)) ++ (type (or null display) display)) + (unless event-mask (setq event-mask 0)) + (unless display (setq display (window-display window))) + (let ((internal-event-code (get-event-code event-key)) diff --git a/dev-lisp/clx/files/gentoo-fix-obsolete-eval-when.patch b/dev-lisp/clx/files/gentoo-fix-obsolete-eval-when.patch new file mode 100644 index 000000000000..e1df016b4a56 --- /dev/null +++ b/dev-lisp/clx/files/gentoo-fix-obsolete-eval-when.patch @@ -0,0 +1,12 @@ +diff -ur clx-0.7.4.orig/depdefs.lisp clx-0.7.4/depdefs.lisp +--- clx-0.7.4.orig/depdefs.lisp 2009-11-28 16:43:30.000000000 +0100 ++++ clx-0.7.4/depdefs.lisp 2009-11-29 22:56:38.000000000 +0100 +@@ -142,7 +142,7 @@ + ;;; overlapping array and image code. + + #+(or lispm vax little-endian Minima) +-(eval-when (eval compile load) ++(eval-when (:compile-toplevel :load-toplevel :execute) + (pushnew :clx-little-endian *features*)) + + #+lcl3.0 diff --git a/dev-lisp/clx/files/gentoo-fix-unused-vars.patch b/dev-lisp/clx/files/gentoo-fix-unused-vars.patch new file mode 100644 index 000000000000..96dc255ffbf4 --- /dev/null +++ b/dev-lisp/clx/files/gentoo-fix-unused-vars.patch @@ -0,0 +1,69 @@ +diff -ur clx-0.7.4.orig/gl.lisp clx-0.7.4/gl.lisp +--- clx-0.7.4.orig/gl.lisp 2009-11-28 16:43:30.000000000 +0100 ++++ clx-0.7.4/gl.lisp 2009-11-29 22:46:37.000000000 +0100 +@@ -2274,7 +2274,7 @@ + (let ((constant 0) + (calculated ())) + (loop +- for (name type length length-var) in argspecs ++ for (nil type length length-var) in argspecs + do (let ((byte-width (byte-width type))) + (typecase length + (number (incf constant (* byte-width length))) +@@ -2287,7 +2287,7 @@ + + (defun composite-args (argspecs) + (loop +- for (name type length length-var) in argspecs ++ for (nil nil length length-var) in argspecs + when (consp length) + collect (list length-var length))) + +diff -ur clx-0.7.4.orig/xrender.lisp clx-0.7.4/xrender.lisp +--- clx-0.7.4.orig/xrender.lisp 2009-11-28 16:43:30.000000000 +0100 ++++ clx-0.7.4/xrender.lisp 2009-11-29 22:50:42.000000000 +0100 +@@ -408,7 +408,7 @@ + + (macrolet ((foo (&rest specs) + `(progn +- ,@(loop for (type slot default) in specs ++ ,@(loop for (nil slot nil) in specs + for index from 0 + collect + `(progn +@@ -426,7 +426,7 @@ + (data +X-RenderChangePicture+) + (picture picture) + (mask +- ,@(loop for (type slot default) in specs ++ ,@(loop for (type slot nil) in specs + for index from 0 + collect + `(,type (and +@@ -454,7 +454,7 @@ + (drawable + &key format + (picture (make-picture :display (drawable-display drawable))) +- ,@(loop for (type slot default-value) in specs ++ ,@(loop for (nil slot nil) in specs + collect (cond ((eql slot 'clip-mask) + `(clip-mask :none)) + (t +@@ -475,7 +475,7 @@ + (drawable drawable) + (picture-format format) + (mask +- ,@(loop for (type slot default) in specs ++ ,@(loop for (type slot nil) in specs + collect + (cond ((eql slot 'clip-mask) + (list type `(and +@@ -487,7 +487,7 @@ + (%render-change-picture-clip-rectangles picture clip-mask)) + (setf (picture-format picture) format) + (setf (picture-%server-values picture) +- (vector ,@(loop for (type slot default) in specs ++ (vector ,@(loop for (nil slot default) in specs + collect + `(or ,slot ,default)))) + (setf (picture-%values picture) (copy-seq (picture-%server-values picture))) diff --git a/dev-lisp/clx/metadata.xml b/dev-lisp/clx/metadata.xml new file mode 100644 index 000000000000..c9838edc3a68 --- /dev/null +++ b/dev-lisp/clx/metadata.xml @@ -0,0 +1,22 @@ + + + + + nimiux@gentoo.org + Chema Alonso + Maintainer + + + CLX provides an implementation of the X Window System protocol to + Lisp graphics library[ies] and applications. It is the Common Lisp + equivalent of Xlib. + + + CLX ofrece una implementación del protocolo del sistema X Window + a las librerías y aplicaciones gráficas escritas en Lisp. Es el + equivamente en Common Lisp a Xlib. + + + Builds documentation + + -- cgit v1.2.3-65-gdbad