init-common-lisp-controller-v4 throws error

[wp mirror]

Dear Christoph,

1) Objective

I would like to be able to load libraries (such as `getopt') and modules
(such as `clx'). I understand that the commands are:

(clc:clc-require :getopt)
(require "clx")

but that one must first load and initialize the `common-lisp-controller'.

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

;;;
;;; Design note:
;;;
;;; 1) `clisp' uses `common-lisp-controller' to load libraries.
;;;
;;; Libraries are loaded with  (clc:clc-require :foo).
;;; Modules   are loaded with  (require "foo").
;;;
;;; 2) `common-lisp-controller' expects to find `wild-modules.lisp'
;;; under `/usr/share/common-lisp/source/cl-asdf/'. However, starting
;;; with `cl-asdf' version 2.26.72, that file is found under
;;; `/usr/share/common-lisp/source/cl-asdf/contrib/'. Because
;;; `common-lisp-controller' cannot find the new location, this is a
;;; bug.
;;;
;;; (common-lisp-controller:init-common-lisp-controller-v4 "clisp") ==>
;;; *** - OPEN: File
#P"/usr/share/common-lisp/source/cl-asdf/wild-modules.lisp"
;;;       does not exist
;;;
;;; As a workaround, WP-MIRROR sets a symbolic link.
;;;

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

This works around the fatal bug. However, the flood of WARNING messages is
the same.

5) Reporting

As I am new to this list, I would like to know if I should file a Debian
bug report; and, if so, against which package.

Sincerely Yours,
Kent
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.alioth.debian.org/pipermail/pkg-common-lisp-devel/attachments/20150613/4d50c9e6/attachment.html>