[cl-debian] Bug#382247: gclcvs segfaults during c-l-c initialization

[Francois-Rene Rideau]

Package: gclcvs
Version: 2.7.0-54
Severity: grave
Justification: renders package unusable


gclcvs.sh seems to not have been updated for the latest
common-lisp-controller, and dies horribly on both i386 and amd64 architectures.

On amd64, the error is as follows:
COMMON-LISP-CONTROLLER>/usr/lib/common-lisp/bin/gclcvs.sh: line 58:  7556 Bus error               $gcl_bin  <<!INSTALL_CLC!

On i386, I get the following error instead:
COMMON-LISP-CONTROLLER>Segmentation violation: c stack ok:signalling error/usr/lib/common-lisp/bin/gclcvs.sh: line 58:  6462 Segmentation fault      $gcl_bin  <<!INSTALL_CLC!

Full log (on i386) follows.

Note that bug #347560 still bites me when I try to remove the package:
a directory '/>' is created, and the feeble attempt to remove it with rm fails;
rmdir would be required instead.

------>8------>8------>8------>8------>8------>8------>8------>8------>8------

Unpacking gclcvs (from .../gclcvs_2.7.0-54_i386.deb) ...
Setting up gclcvs (2.7.0-54) ...
gclcvs.sh Uninstalling clc image and purging object cache ...
chown: `cl-builder.cl-builder': invalid user
rm: cannot remove `>': Is a directory
gclcvs.sh Installing clc as /usr/lib/gcl-2.7.0/unixport/saved_clc_gcl > ...
GCL (GNU Common Lisp)  2.7.0 ANSI    Dec 23 2005 04:17:17
Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
Binary License:  GPL due to GPL'ed components: (READLINE BFD UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter

Use (help) to get some basic information on how to use GCL.

>
#<"COMMON-LISP" package>

COMMON-LISP>
NIL

COMMON-LISP>
#<"COMMON-LISP-USER" package>

>
Loading /usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp
Finished loading /usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp
T

>
#<"COMMON-LISP-CONTROLLER" package>

COMMON-LISP-CONTROLLER>Segmentation violation: c stack ok:signalling error/usr/lib/common-lisp/bin/gclcvs.sh: line 58:  6462 Segmentation fault      $gcl_bin  <<!INSTALL_CLC!
(in-package :common-lisp)
(unless (fboundp 'load-time-value)
  (defun load-time-value (obj) obj)
  (export (find-symbol "LOAD-TIME-VALUE")))

(in-package :common-lisp-user)
(load "$clc_src/common-lisp-controller/common-lisp-controller.lisp")

(in-package :common-lisp-controller)
(init-common-lisp-controller "$gcl_clc" :version 3)

(defun send-clc-command (command package)
  "Overrides global definition."
  (multiple-value-bind (exit-code signal-code)
        (si::system (c-l-c:make-clc-send-command-string
                     command package "gclcvs"))
    (if (and (zerop exit-code) (zerop signal-code))
          (values)
        (error "Error during ~A of ~A for ~A~%Please see /usr/share/doc/common-lisp-controller/REPORTING-BUGS.gz"
               (ecase command
                 (:recompile "recompilation")
                 (:remove "removal"))
               package
               "gclcvs"))))

(in-package :asdf)


(defun run-shell-command (control-string &rest args)
"Interpolate ARGS into CONTROL-STRING as if by FORMAT, and
synchronously execute the result using a Bourne-compatible shell,
with output to *verbose-out*.  Returns the shell's exit code."
  (let ((command (apply #'format nil control-string args)))
    (format *verbose-out* "; $ ~A~%" command)
    (si::system command) ; even less *verbose-out*
    ))

(si:save-system "$image"))
!INSTALL_CLC!

Error building send-clc-command
dpkg: error processing gclcvs (--configure):
 subprocess post-installation script returned error exit status 1
Errors were encountered while processing:
 gclcvs
E: Sub-process /usr/bin/dpkg returned an error code (1)


------>8------>8------>8------>8------>8------>8------>8------>8------>8------

# dpkg --purge gclcvs
(Reading database ... 263914 files and directories currently installed.)
Removing gclcvs ...
gclcvs.sh Uninstalling clc and restoring pristine orig image ...
rm: cannot remove `>': Is a directory
gclcvs.sh Uninstalling clc and restoring pristine orig image ...
rm: cannot remove `>': Is a directory
remove/gclcvs: purging byte-compiled files for emacs21
remove/gclcvs: purging byte-compiled files for xemacs21
Purging configuration files for gclcvs ...

------>8------>8------>8------>8------>8------>8------>8------>8------>8------

-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (500, 'unstable'), (500, 'testing')
Architecture: amd64 (x86_64)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.14
Locale: LANG=en_US, LC_CTYPE=en_US (charmap=ISO-8859-1)

Versions of packages gclcvs depends on:
ii  debconf [debconf-2.0]     1.5.2          Debian configuration management sy
ii  gcc                       4:4.1.1-5      The GNU C compiler
ii  libc6                     2.3.6-15       GNU C Library: Shared libraries
ii  libgmp3c2                 2:4.2.1+dfsg-3 Multiprecision arithmetic library
ii  libncurses5               5.5-2          Shared libraries for terminal hand
ii  libreadline5              5.1-7          GNU readline and history libraries
ii  libx11-6                  2:1.0.0-7      X11 client-side library
ii  tcl8.4                    8.4.12-1.1     Tcl (the Tool Command Language) v8
ii  tk8.4                     8.4.12-1       Tk toolkit for Tcl and X11, v8.4 -

gclcvs recommends no packages.