debian/0000755000000000000000000000000011711056567007177 5ustar debian/rules0000755000000000000000000000244611711056567010265 0ustar #!/usr/bin/make -f package := cl-clx-sbcl clc-package := clx clc-source := usr/share/common-lisp/source clc-systems := usr/share/common-lisp/systems clc-files := $(clc-source)/$(clc-package) build: build-arch build-indep build-arch: build-stamp build-indep: build-stamp build-stamp: dh_testdir # Add here commands to compile the package. cd manual && makeinfo clx.texinfo touch build-stamp clean: dh_testdir dh_testroot rm -f build-stamp # Add here commands to clean up after the build process. rm -f manual/*.?? manual/*.info* dh_clean install: build dh_testdir dh_testroot dh_prep dh_installdirs $(clc-systems) dh_install $(clc-package).asd *.lisp $(clc-files) set -e; for d in debug demo test; do \ dh_installdirs $(clc-files)/$$d; \ dh_install $$d/*.lisp $(clc-files)/$$d; \ done dh_link $(clc-files)/$(clc-package).asd $(clc-systems)/$(clc-package).asd # Build architecture-independent files here. binary: build install # Build architecture-dependent files here. binary-arch: build install dh_testdir dh_testroot dh_installinfo manual/clx.info* dh_installdocs dh_installchangelogs CHANGES dh_compress dh_fixperms dh_lisp dh_installdeb dh_gencontrol dh_md5sums dh_builddeb binary: binary-indep binary-arch .PHONY: build clean binary-indep binary-arch binary install debian/patches/0000755000000000000000000000000011711056567010626 5ustar debian/patches/8bit.patch0000644000000000000000000001044411711056567012520 0ustar Patch by François-René ÐVB Rideau to make CLX 8-bit clean with SB-UNICODE; closes: #338242. Index: cl-clx-sbcl/clx.lisp =================================================================== --- cl-clx-sbcl.orig/clx.lisp 2010-03-17 09:21:31.000000000 +0100 +++ cl-clx-sbcl/clx.lisp 2010-03-17 09:22:32.000000000 +0100 @@ -173,6 +173,12 @@ (deftype base-char () 'string-char) +#-(and sbcl sb-unicode) +(deftype char8 () 'base-char) +#+(and sbcl sb-unicode) +(deftype char8 () 'character) ;;; could be `(member ,@(loop for i below 256 collect (code-char i))) + + ; Note that we are explicitly using a different rgb representation than what ; is actually transmitted in the protocol. Index: cl-clx-sbcl/translate.lisp =================================================================== --- cl-clx-sbcl.orig/translate.lisp 2010-03-17 09:21:31.000000000 +0100 +++ cl-clx-sbcl/translate.lisp 2010-03-17 09:22:32.000000000 +0100 @@ -141,7 +141,7 @@ ;; when mask and modifiers aren't lists of keysyms] ;; The default is #'default-keysym-translate ;; - (declare (type (or base-char t) object) + (declare (type (or char8 t) object) (type keysym keysym) (type (or null mask16 (clx-list (or keysym state-mask-key))) modifiers) @@ -191,7 +191,7 @@ (defun undefine-keysym (object keysym &key display modifiers &allow-other-keys) ;; Undefine the keysym-translation translating KEYSYM to OBJECT with MODIFIERS. ;; If DISPLAY is non-nil, undefine the translation for DISPLAY if it exists. - (declare (type (or base-char t) object) + (declare (type (or char8 t) object) (type keysym keysym) (type (or null mask16 (clx-list (or keysym state-mask-key))) modifiers) @@ -447,7 +447,7 @@ (type card8 keycode) (type card16 state) (type (or null card8) keysym-index) - (type (or null (function (base-char card16 generalized-boolean card8) card8)) + (type (or null (function (char8 card16 generalized-boolean card8) card8)) keysym-index-function)) (declare (clx-values (or null character))) (let* ((index (or keysym-index Index: cl-clx-sbcl/resource.lisp =================================================================== --- cl-clx-sbcl.orig/resource.lisp 2010-03-17 09:21:31.000000000 +0100 +++ cl-clx-sbcl/resource.lisp 2010-03-17 09:22:32.000000000 +0100 @@ -455,7 +455,7 @@ (defun char-memq (key char) ;; Used as a test function for POSITION - (declare (type base-char char)) + (declare (type char8 char)) (member char key)) (defmacro resource-with-open-file ((stream pathname &rest options) &body body) Index: cl-clx-sbcl/dependent.lisp =================================================================== --- cl-clx-sbcl.orig/dependent.lisp 2010-03-17 09:22:38.000000000 +0100 +++ cl-clx-sbcl/dependent.lisp 2010-03-17 09:22:44.000000000 +0100 @@ -800,15 +800,16 @@ #-Genera (progn (defun char->card8 (char) - (declare (type base-char char)) + (declare (type char8 char)) #.(declare-buffun) + (assert (> 256 (char-code char))) (the card8 (aref (the (simple-array card8 (*)) *char-to-card8-translation-table*) (the array-index (char-code char))))) (defun card8->char (card8) (declare (type card8 card8)) #.(declare-buffun) - (the base-char + (the char8 (or (aref (the simple-vector *card8-to-char-translation-table*) card8) (error "Invalid CHAR code ~D." card8)))) @@ -842,13 +843,13 @@ (t `(progn (defun char->card8 (char) - (declare (type base-char char)) + (declare (type char8 char)) #.(declare-buffun) (the card8 (char-code char))) (defun card8->char (card8) (declare (type card8 card8)) #.(declare-buffun) - (the base-char (code-char card8))) + (the char8 (code-char card8))) )))))) (char-translators)) @@ -3016,7 +3017,7 @@ ;;; ;;; [the following isn't implemented (should it be?)] ;;; If object is a list, it is an alist with entries: -;;; (base-char [modifiers] [mask-modifiers]) +;;; (char8 [modifiers] [mask-modifiers]) ;;; When MODIFIERS are specified, this character translation ;;; will only take effect when the specified modifiers are pressed. ;;; MASK-MODIFIERS can be used to specify a set of modifiers to ignore. debian/patches/series0000644000000000000000000000006411711056567012043 0ustar clos.patch asdf.patch 8bit.patch sbcl.patch depdefs debian/patches/sbcl.patch0000644000000000000000000000234711711056567012600 0ustar Patch by Peter Van Eynde to work with newer SBCL versions; closes: #331371. Index: cl-clx-sbcl/dependent.lisp =================================================================== --- cl-clx-sbcl.orig/dependent.lisp 2010-03-15 22:06:40.000000000 +0100 +++ cl-clx-sbcl/dependent.lisp 2010-03-15 22:06:46.000000000 +0100 @@ -1189,7 +1189,7 @@ (defun process-block (whostate predicate &rest predicate-args) (declare (ignore whostate)) (declare (type function predicate)) - (let* ((pid (sb-thread:current-thread-id)) + (let* ((pid (current-process)) (last (gethash pid *process-conditions*)) (lock (or (car last) @@ -1207,7 +1207,7 @@ (sb-thread:condition-wait queue lock)) (sb-ext:timeout () (format *trace-output* "thread ~A, process-block timed out~%" - (sb-thread:current-thread-id) ))))))) + (current-process)))))))) ;;; PROCESS-WAKEUP: Check some other process' wait function. @@ -1251,7 +1251,7 @@ (defun process-wakeup (process) (declare (ignore process)) (destructuring-bind (lock . queue) - (gethash (sb-thread:current-thread-id) *process-conditions* + (gethash (current-process) *process-conditions* (cons nil nil)) (declare (ignore lock)) (when queue debian/patches/clos.patch0000644000000000000000000000134111711056567012606 0ustar Enable compilation of CLOS classes for SBCL; patch by Peter Van Eynde ; closes: #258128. diff --git a/depdefs.lisp b/depdefs.lisp index acb7193..14d9775 100644 --- a/depdefs.lisp +++ b/depdefs.lisp @@ -404,10 +404,10 @@ (eval-when (:compile-toplevel :load-toplevel :execute) ;; FIXME: maybe we should reevaluate this? (defvar *def-clx-class-use-defclass* - #+(or Genera allegro) t + #+(or Genera allegro sbcl) t #+(and cmu pcl) '(XLIB:DRAWABLE XLIB:WINDOW XLIB:PIXMAP) #+(and cmu (not pcl)) nil - #-(or Genera cmu allegro) nil + #-(or Genera cmu allegro 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 debian/patches/asdf.patch0000644000000000000000000000400411711056567012562 0ustar Index: cl-clx-sbcl/clx.asd =================================================================== --- cl-clx-sbcl.orig/clx.asd 2010-03-15 21:37:48.000000000 +0100 +++ cl-clx-sbcl/clx.asd 2010-03-15 21:38:23.000000000 +0100 @@ -34,6 +34,7 @@ (defclass legacy-file (static-file) ()) +#+sbcl (defsystem CLX :depends-on (#+sbcl sb-bsd-sockets) :version "0.7.2" @@ -101,22 +102,22 @@ ((: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"))) +;; (: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 debian/patches/depdefs0000644000000000000000000000133611711056567012166 0ustar Index: cl-clx-sbcl/depdefs.lisp =================================================================== --- cl-clx-sbcl.orig/depdefs.lisp 2010-05-30 19:02:05.000000001 +0200 +++ cl-clx-sbcl/depdefs.lisp 2012-01-28 21:29:04.000000001 +0100 @@ -141,9 +141,12 @@ ;;; You must define this to match the real byte order. It is used by ;;; overlapping array and image code. -#+(or lispm vax little-endian Minima) +#+(and (not sbcl) (not clisp) (or lispm vax little-endian Minima)) (eval-when (eval compile load) (pushnew :clx-little-endian *features*)) +#+(and (or sbcl clisp) little-endian) +(eval-when (:compile-toplevel :load-toplevel :execute) + (pushnew :clx-little-endian *features*)) #+lcl3.0 (eval-when (compile eval load) debian/source/0000755000000000000000000000000011711056567010477 5ustar debian/source/format0000644000000000000000000000001411711056567011705 0ustar 3.0 (quilt) debian/docs0000644000000000000000000000002611711056567010050 0ustar NEWS README README-R5 debian/control0000644000000000000000000000145711711056567010611 0ustar Source: cl-clx-sbcl Section: lisp Priority: optional Maintainer: Milan Zamazal Build-Depends: debhelper (>= 7), texinfo, dh-lisp Standards-Version: 3.9.2 Package: cl-clx-sbcl Architecture: any Depends: common-lisp-controller, cl-asdf (>= 1.86), dpkg (>= 1.15.4) | install-info, ${misc:Depends} Recommends: sbcl (>= 0.9.3) [alpha amd64 i386 mips mipsel powerpc sparc] Description: X11 Common Lisp client library for SBCL CLX is a low-level X11 client library for Common Lisp. CLX is to Lisp what Xlib is to C. . This version of CLX originated in a CMUCL distribution, was modified in order to make it compile and run under SBCL and was enhanced with some features from other CLX implementations. It currently runs only on SBCL, but it might be ported to other Common Lisp implementations. debian/copyright0000644000000000000000000001027311711056567011135 0ustar This package was debianized by Milan Zamazal . It was downloaded from http://common-lisp.net/~abridgewater/dist/clx/ . The files in the package have various copyright holders. Here is a (not necessarily complete) list of the copyright holders and copying conditions: Copyright (C) 1987 Texas Instruments Incorporated. Permission is granted to any individual or institution to use, copy, modify, and distribute this software, provided that this complete copyright and permission notice is maintained, intact, in all copies and supporting documentation. Texas Instruments Incorporated provides this software "as is" without express or implied warranty. Copyright (c) 1987, 1988, 1989 Franz Inc, Berkeley, Ca. Permission is granted to any individual or institution to use, copy, modify, and distribute this software, provided that this complete copyright and permission notice is maintained, intact, in all copies and supporting documentation. Franz Incorporated provides this software "as is" without express or implied warranty. Copyright (C) 1990 Symbolics, Inc. Permission is granted to any individual or institution to use, copy, modify, and distribute this software, provided that this complete copyright and permission notice is maintained, intact, in all copies and supporting documentation. Symbolics, Inc. provides this software "as is" without express or implied warranty. Copyright (C) 1987, 1989 Massachussetts Institute of Technology Permission is granted to any individual or institution to use, copy, modify, and distribute this software, provided that this complete copyright and permission notice is maintained, intact, in all copies and supporting documentation. Massachussetts Institute of Technology provides this software "as is" without express or implied warranty. Copyright 1990 Massachusetts Institute of Technology, Cambridge, Massachusetts. All Rights Reserved. Permission to use, copy, modify, and distribute this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name MIT not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. (c) copyright 1999 by Gilbert Baumann Permission is granted to any individual or institution to use, copy, modify, and distribute this software, provided that this complete copyright and permission notice is maintained, intact, in all copies and supporting documentation. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. (c) copyright 2002, 2003 by Gilbert Baumann (c) copyright 2002 by Christian Sunesson Permission is granted to any individual or institution to use, copy, modify, and distribute this software, provided that this complete copyright and permission notice is maintained, intact, in all copies and supporting documentation. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. (c) copyright 2003 by Iban Hatchondo Permission is granted to any individual or institution to use, copy, modify, and distribute this software, provided that this complete copyright and permission notice is maintained, intact, in all copies and supporting documentation. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. cmudep.lisp: This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. If you want to use this code or any part of CMU Common Lisp, please contact Scott Fahlman or slisp-group@cs.cmu.edu. The Debian packaging files are placed in public domain, unless claimed otherwise in them directly. debian/changelog0000644000000000000000000001014511711056567011052 0ustar cl-clx-sbcl (0.7.4-5) unstable; urgency=low * Fix little-endian handling in defdeps.lisp in order to make the package work with sbcl>=1.0.55. * Indefinite article removed from short package description. * build-arch and build-indep build targets added. * Standards 3.9.2 (no real change). -- Milan Zamazal Sat, 28 Jan 2012 21:30:49 +0100 cl-clx-sbcl (0.7.4-4) unstable; urgency=low * Change all the build things from architecture independent to architecture dependent; closes: #583340. -- Milan Zamazal Sun, 30 May 2010 18:48:12 +0200 cl-clx-sbcl (0.7.4-3) unstable; urgency=low * Change Architecture from `all' to `any' to comply with architecture specific Recommends; closes: #581303. -- Milan Zamazal Sun, 23 May 2010 16:16:24 +0200 cl-clx-sbcl (0.7.4-2) unstable; urgency=low * Fix quilt patches to cover all Debian changes to upstream. -- Milan Zamazal Wed, 17 Mar 2010 09:17:29 +0100 cl-clx-sbcl (0.7.4-1) unstable; urgency=low * New upstream version. * Switch to dpkg-source 3.0 (quilt) format. * Updated to debhelper 7. * Use dh_lisp. * Depend on install-info. * Moved to section lisp. * Standards 3.8.4. -- Milan Zamazal Mon, 15 Mar 2010 21:05:48 +0100 cl-clx-sbcl (0.7.3-3) unstable; urgency=low * Upstream fix applied to prevent interactive prompts requiring human intervention during first time code loading, especially annoying and confusing if it happens when other related packages are loaded; closes: #492046. -- Milan Zamazal Mon, 28 Jul 2008 19:17:58 +0200 cl-clx-sbcl (0.7.3-2) unstable; urgency=low * Recommend sbcl only on architectures where it is available; closes: #436640. -- Milan Zamazal Wed, 8 Aug 2007 12:37:24 +0200 cl-clx-sbcl (0.7.3-1) experimental; urgency=low * New upstream version. * Upload to experimental because etch is in freeze. * Standards 3.7.2 (no real change). * Build-Depend on debhelper, not Build-Depend-Indep. -- Milan Zamazal Thu, 8 Feb 2007 12:09:06 +0100 cl-clx-sbcl (0.7.2-1) unstable; urgency=low * New upstream version. -- Milan Zamazal Tue, 17 Jan 2006 10:52:44 +0100 cl-clx-sbcl (0.7.1-2) unstable; urgency=low * Patch by François-René ÐVB Rideau to make CLX 8-bit clean with SB-UNICODE applied; closes: #338242. -- Milan Zamazal Sun, 13 Nov 2005 13:42:07 +0100 cl-clx-sbcl (0.7.1-1) unstable; urgency=low * New upstream version. * Patch by Peter Van Eynde to work with newer SBCL versions applied; closes: #331371. -- Milan Zamazal Tue, 4 Oct 2005 10:02:36 +0200 cl-clx-sbcl (0.7.0-1) unstable; urgency=low * New upstream version. -- Milan Zamazal Sat, 21 May 2005 22:27:23 +0200 cl-clx-sbcl (0.6.1-1) unstable; urgency=low * New upstream version. -- Milan Zamazal Wed, 30 Mar 2005 09:25:05 +0200 cl-clx-sbcl (0.6-1) unstable; urgency=low * New upstream version. * Depend on a sufficiently new version of cl-asdf; closes: #281123. * Install the new Info documentation. -- Milan Zamazal Tue, 16 Nov 2004 22:47:32 +0100 cl-clx-sbcl (0.5.4-4) unstable; urgency=low * Type declaration bug in ENCODE-MASK fixed. * portable-clx-devel mailing list URL updated. -- Milan Zamazal Wed, 29 Sep 2004 19:14:15 +0200 cl-clx-sbcl (0.5.4-3) unstable; urgency=low * Enable compilation of CLOS classes for SBCL; closes: #258128. * Since this package is still SBCL specific, make its system definition available only to SBCL; closes: #258129. * Upstream changelog renamed as required by Debian Policy. -- Milan Zamazal Fri, 16 Jul 2004 11:32:18 +0200 cl-clx-sbcl (0.5.4-2) unstable; urgency=low * Static-files commented out in the ASDF file, to avoid lisp dependency problems. -- Milan Zamazal Fri, 23 Jan 2004 09:52:59 +0100 cl-clx-sbcl (0.5.4-1) unstable; urgency=low * Initial packaging. -- Milan Zamazal Thu, 22 Jan 2004 20:48:13 +0100 debian/compat0000644000000000000000000000000211711056567010375 0ustar 7