Bug#789730: common-lisp-controller: init-common-lisp-controller-v4 fails because wild-modules.lisp not found

[wp mirror]

Package: common-lisp-controller
Version: 7.10
Severity: important

Dear Maintainer,

1) Objective

Would like to use common-lisp-controller to load libraries such as getopt.

2) Test code

#!/usr/bin/clisp -ansi -q -q
(print *features*)
(print "1 - loading common-lisp-controller")
(load
#P"/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp")
(print "2 - initializing common-lisp-controller")
(common-lisp-controller:init-common-lisp-controller-v4 "clisp")
(print "3 - loading library")
(clc:clc-require :getopt)
(print "4 - loading module")
(require "clx")

3) Test output

(:READLINE :REGEXP :SYSCALLS :I18N :LOOP :COMPILER :CLOS :MOP :CLISP
:ANSI-CL
 :COMMON-LISP :LISP=CL :INTERPRETER :SOCKETS :GENERIC-STREAMS
 :LOGICAL-PATHNAMES :SCREEN :FFI :GETTEXT :UNICODE :BASE-CHAR=CHARACTER
 :WORD-SIZE=64 :PC386 :UNIX)
"1 - loading common-lisp-controller"
"2 - initializing common-lisp-controller"
WARNING: Replacing method
         #<STANDARD-METHOD (#<BUILT-IN-CLASS FUNCTION> #<BUILT-IN-CLASS T>)>
         in #<STANDARD-GENERIC-FUNCTION SLURP-INPUT-STREAM>
----<snip>----
WARNING: Replacing method
          #<STANDARD-METHOD
            (#<STANDARD-CLASS PACKAGE-INFERRED-SYSTEM-MISSING-PACKAGE-ERROR>
             #<BUILT-IN-CLASS T>)>
         in #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT>
*** - OPEN: File #P"/usr/share/common-lisp/source/cl-asdf/wild-modules.lisp"
      does not exist

4) Analysis

Fatal error because wild-modules.lisp was moved to a subdirectory that
is not searched.

5) Workaround #1

Set a symbolic link from directory that is searched:

(rootshell) cd /usr/share/common-lisp/source/cl-asdf/
(rootshell) ln -s contrib/wild-modules.lisp wild-modules.lisp

The test code now runs without fatal error.
Flood of WARNING messages is still there.

6) Workaround #2

Use cl-asdf instead of common-lisp-controller:

Replace these lines:

(load
#P"/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp")
(common-lisp-controller:init-common-lisp-controller-v4 "clisp")
(clc:clc-require :getopt)

with these lines:

(load #P"/usr/share/common-lisp/source/cl-asdf/asdf.lisp")
(asdf:load-system :getopt)

This runs.
Only one WARNING message is thrown when getopt is loaded:

WARNING: The generic function #<STANDARD-GENERIC-FUNCTION PERFORM> is being
         modified, but has already been called.

-- System Information:
Debian Release: 8.1
  APT prefers stable-updates
  APT policy: (500, 'stable-updates'), (500, 'stable')
Architecture: amd64 (x86_64)

Kernel: Linux 3.16.0-4-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/dash
Init: systemd (via /run/systemd/system)

Versions of packages common-lisp-controller depends on:
ii  adduser                3.113+nmu3
ii  bash                   4.3-11+b1
ii  cl-asdf                2:3.1.4-1
ii  debconf [debconf-2.0]  1.5.56
ii  debianutils            4.4+b1
ii  perl                   5.20.2-3+deb8u1
ii  realpath               8.23-4

common-lisp-controller recommends no packages.

Versions of packages common-lisp-controller suggests:
pn  darcs  <none>
ii  sbcl   2:1.2.4-2

-- debconf information excluded
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.alioth.debian.org/pipermail/pkg-common-lisp-devel/attachments/20150623/96b8a761/attachment.html>