Bug#691519: clisp-module-clx: clisp -modern option crashes new-clx

[wpmirrordev@gmail.com (wp mirror)]

Package: clisp-module-clx
Version: 1:2.49-8.1
Severity: normal

Dear Maintainer,
    I have a minimal example code that crashes:


#!/usr/bin/clisp -ansi -modern -q -q
;#!/usr/bin/clisp -ansi -q -q

;;;
;;; Bug report:
;;;
;;; 1) Top line containing `-modern' option, gives warnings and crashes:
;;;   #!/usr/bin/clisp -ansi -modern -q -q
;;;
;;;   (root-shell)# ./clisp-clx-crash-test.lisp
;;;   0-1-2-
;;;   WARNING: One should not change the case sensitiveness of #<package xlib>.
;;;   WARNING: One should not change the case inversion of #<package xlib>.
;;;   3-4-5-
;;;   *** - subtypep: invalid type specification xlib::|x-type-error|
;;;
;;; 2) Top line without `-modern' option, runs to completion:
;;;   #!/usr/bin/clisp -ansi -q -q
;;;
;;;   (root-shell)# ./clisp-clx-crash-test.lisp
;;;   0-1-2-3-4-5-6-7-8-9-
;;;
;;; System info:
;;;
;;;   (shell)$ cat /etc/debian_version
;;;   wheezy/sid
;;;   (shell)$ aptitude show clisp | grep Version
;;;   Version: 1:2.49-8.1
;;;   (shell)$ aptitude show clisp-module-clx | grep Version
;;;   Version: 1:2.49-8.1
;;;

(princ "0-")
(eval-when (:compile-toplevel :execute :load-toplevel)
           (unless (member :common-lisp-controller *features*)
             (load
#P"/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp")))

(princ "1-")
(unless (member :common-lisp-controller *features*)
  (common-lisp-controller:compile-common-lisp-controller-v5 "clisp")
  (common-lisp-controller:init-common-lisp-controller-v5 "clisp"))

(princ "2-")
(require "clx")

(princ "3-")
(setq host        '())
(princ "4-")
(setq display     (xlib:open-display       host))
(princ "5-")
(setq screen      (first (xlib:display-roots display)))
(princ "6-")
(setq black       (xlib:screen-black-pixel screen))
(princ "7-")
(setq white       (xlib:screen-white-pixel screen))
(princ "8-")
(setq root-window (xlib:screen-root        screen))
(princ "9-")
(quit)



-- System Information:
Debian Release: wheezy/sid
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: amd64 (x86_64)

Kernel: Linux 3.2.0-3-amd64 (SMP w/3 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages clisp-module-clx depends on:
ii  clisp     1:2.49-8.1
ii  libc6     2.13-35
ii  libx11-6  2:1.5.0-1
ii  libxext6  2:1.3.1-2
ii  libxpm4   1:3.5.10-1

clisp-module-clx recommends no packages.

clisp-module-clx suggests no packages.

-- no debconf information