Bug#624636: stumpwm: sbcl hangs if asdf has already been loaded

[Kan-Ru Chen]

Package: stumpwm
Version: 1:20110419.gitb80ff16-1
Severity: important
Tags: patch

Hi,

If :asdf is loaded before stumpwm invoking,
sbcl --eval "#-asdf (require :asdf)" will be same as
sbcl --eval "" which will lead to error:

% stumpwm 
This is SBCL 1.0.47.0.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.

debugger invoked on a END-OF-FILE in thread #<THREAD "initial thread" RUNNING
                                              {10029513F1}>:
  end of file on #<SB-IMPL::STRING-INPUT-STREAM {10037E3561}>

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE] Ignore runtime option --eval "#-asdf (require :asdf)".
  1: [ABORT   ] Skip rest of --eval and --load options.
  2:            Skip to toplevel READ/EVAL/PRINT loop.
  3: [QUIT    ] Quit SBCL (calling #'QUIT, killing the process).

(SB-IMPL::STRING-INCH
 #<SB-IMPL::STRING-INPUT-STREAM {10037E3561}>
 T
 #:EOF-OBJECT)
0] 3

My meager patch attached.

Cheers,
Kanru

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

Kernel: Linux 2.6.38-1-amd64 (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages stumpwm depends on:
ii  cl-clx-sbcl               0.7.4-4        An X11 Common Lisp client library 
ii  cl-ppcre                  2.0.1-2        Portable Regular Express Library f
ii  clisp-module-clx          1:2.49-7       clisp module that adds X11 binding
ii  dpkg                      1.16.0.2       Debian package management system
ii  install-info              4.13a.dfsg.1-6 Manage installed documentation in 

Versions of packages stumpwm recommends:
ii  cl-asdf                      2:2.014.3-1 Another System Definition Facility

Versions of packages stumpwm suggests:
ii  chromium [www-brow 10.0.648.205~r81283-1 Chromium browser
ii  emacs-snapshot-nox 1:20110428-1          The GNU Emacs editor (without X su
ii  iceweasel [www-bro 4.0~rc2-2             Web browser based on Firefox
ii  info [info-browser 4.13a.dfsg.1-6        Standalone GNU Info documentation 
ii  lynx-cur [www-brow 2.8.8dev.8-1          Text-mode WWW Browser with NLS sup
ii  menu               2.1.45                generates programs menu for all me
ii  rlwrap             0.37-2                readline feature command line wrap
pn  slime              <none>                (no description available)
ii  w3m [www-browser]  0.5.3-2+b1            WWW browsable pager with excellent
ii  x11-utils          7.6+1                 X11 utilities
ii  xterm [x-terminal- 269-1                 X terminal emulator

-- no debconf information

-- debsums errors found:
debsums: changed file /usr/bin/stumpwm (from stumpwm package)
-------------- next part --------------
--- stumpwm.old	2011-04-30 16:43:02.000000000 +0800
+++ stumpwm	2011-04-30 16:42:48.000000000 +0800
@@ -12,7 +12,7 @@
 # Lisp implementation StumpWM should use.
 
 
-EVAL_ASDF="#-asdf (require :asdf)"
+EVAL_ASDF="(progn #-asdf (require :asdf))"
 EVAL_ASDF_CLISP="#-asdf (require :asdf '(\"/usr/share/common-lisp/source/cl-asdf/asdf.lisp\"))"
 EVAL_LOAD="(asdf:oos 'asdf:load-op :stumpwm)"
 EVAL_RUN="(stumpwm:stumpwm)"