Bug#253370: cmucl: require problem with cmucl and common-lisp-controller
Liam Healy
Version: 18e-9
Severity: normal
There are two errors in loading clc modules from a file with require.
They may be separate bugs or the same bug.
1) A file that requires a clc module will not reload once compiled.
For example, put the following into a file cmucl-require-bug:
(eval-when (:compile-toplevel :load-toplevel :execute)
(require :port))
(defun myarglist (fn) (port:arglist fn))
then compile it and exit cmucl. Restart cmucl and try to load the
file,
lisp -noinit
CMU Common Lisp CVS release-18e-branch + minimal debian patches, running on zotz
With core: /usr/lib/cmucl/lisp.core
Dumped on: Mon, 2004-05-31 00:03:09-04:00 on zotz
For support see http://www.cons.org/cmucl/support.html Send bug reports to the debian BTS.
or to pvan...@debian.org
type (help) for help, (quit) to exit, and (demo) to see the demos
Loaded subsystems:
Python 1.1, target Intel x86
CLOS 18e (based on PCL September 16 92 PCL (f))
* (load "cmucl-require-bug")
; Loading #p"/home/liam/languages/lisp/cmucl-require-bug.x86f".
Error in function COMMON-LISP::FOP-PACKAGE: The package "PORT" does not exist.
Restarts:
0: [CONTINUE] Return NIL from load of "cmucl-require-bug".
1: [ABORT ] Return to Top-Level.
Debug (type H for help)
(COMMON-LISP::FOP-PACKAGE)
Source:
; File: target:code/load.lisp
(ERROR "The package ~S does not exist." NAME)
0]
2) Not all the modules load correctly
when compiling. I have an ASDF system with a file that has
(eval-when (:compile-toplevel :load-toplevel :execute)
...
(require :cl-ppcre))
at the top. I cannot reproduce the problem with a single file.
On first compiling, I get an error
; Python version 1.1, VM version Intel x86 on 08 JUN 04 07:37:15 pm.
; Compiling: /home/liam/languages/lisp/nutil/stream.lisp 07 JUN 04 12:28:30 am
File-error in function COMMON-LISP::INTERNAL-LOAD:
"modules:cl-ppcre-library" does not exist.
Restarts:
0: [CHECK-AGAIN] See if it exists now.
1: [USE-VALUE ] Prompt for a new name.
2: [CONTINUE ] Return NIL from load of #p"modules:cl-ppcre-library".
3: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {4804DD85}> on
#<ASDF:CL-SOURCE-FILE "stream" {48D6E7CD}>.
4: [ACCEPT ] Continue, treating #<ASDF:COMPILE-OP NIL {4804DD85}> on
#<ASDF:CL-SOURCE-FILE "stream" {48D6E7CD}> as having been
successful.
5: [ABORT ] Return to Top-Level.
Debug (type H for help)
(COMMON-LISP::INTERNAL-LOAD #p"modules:cl-ppcre-library" NIL :ERROR NIL)
Source:
; File: target:code/load.lisp
(RESTART-CASE (ERROR 'SIMPLE-FILE-ERROR :PATHNAME PATHNAME :FORMAT-CONTROL ...)
(CHECK-AGAIN NIL :REPORT "See if it exists now." (LOAD PATHNAME))
(USE-VALUE NIL
:REPORT
"Prompt for a new name."
(WRITE-STRING "New name: " *QUERY-IO*)
...))
0] :backtrace
0: (COMMON-LISP::INTERNAL-LOAD #p"modules:cl-ppcre-library" NIL :ERROR NIL)
1: (LOAD #p"modules:cl-ppcre-library" :VERBOSE NIL :PRINT ...)
2: (REQUIRE "CL-PPCRE" NIL)
3: (C::DO-EVAL-WHEN-STUFF (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
((EXPORT '#) (REQUIRE :CL-PPCRE))
#<Closure Over Function "DEFUN PROCESS-FORM"
{484A8FB1}>
T)
4: (C::PROCESS-FORM
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(EXPORT '#)
(REQUIRE :CL-PPCRE))
(C::ORIGINAL-SOURCE-START 0 1))
5: (C::PROCESS-FORM 2
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(EXPORT '#)
(REQUIRE :CL-PPCRE))
(C::ORIGINAL-SOURCE-START 0 1))[:EXTERNAL]
6: (C::PROCESS-SOURCES #<Source-Info>)
7: (#:G0)
8: (C::SUB-COMPILE-FILE #<Source-Info> NIL)
9: (C::SUB-COMPILE-FILE 1 #<Source-Info> 268434085)[:EXTERNAL]
10: (COMPILE-FILE #p"/home/liam/languages/lisp/nutil/stream.lisp"
:OUTPUT-FILE
#p"/home/liam/.clc/bin/cmucl/util/stream.x86f"
:ERROR-FILE
...)
11: ("DEFMETHOD PERFORM (COMPILE-OP CL-SOURCE-FILE)" #<unused-arg>
#<unused-arg> #<ASDF:COMPILE-OP NIL {4804DD85}>
#<ASDF:CL-SOURCE-FILE "stream" {48D6E7CD}>)
12: ("LAMBDA (PCL::EFFECTIVE-METHOD-GENSYM-0 PCL::EFFECTIVE-METHOD-GENSYM-1 PCL::EFFECTIVE-METHOD-GENSYM-2)"
#<unused-arg> #<unused-arg> #<ASDF:COMPILE-OP NIL {4804DD85}>
#<ASDF:CL-SOURCE-FILE "stream" {48D6E7CD}>)
13: (#:G0)
14: (ASDF:OPERATE ASDF:LOAD-OP COMMON-LISP-USER::UTIL)
15: (ASDF:OPERATE 2 ASDF:LOAD-OP COMMON-LISP-USER::UTIL)[:EXTERNAL]
16: (EXTENSIONS:INTERACTIVE-EVAL
(ASDF:OPERATE 'ASDF:LOAD-OP 'COMMON-LISP-USER::UTIL))
17: (COMMON-LISP::%TOP-LEVEL)
18: (COMMON-LISP::RESTART-LISP)
0]
-- System Information:
Debian Release: testing/unstable
APT prefers testing
APT policy: (500, 'testing')
Architecture: i386 (i686)
Kernel: Linux 2.6.6-1-686
Locale: LANG=C, LC_CTYPE=C
Versions of packages cmucl depends on:
ii common-lisp-controller 3.88 This is a Common Lisp source and c
ii debconf 1.4.25 Debian configuration management sy
-- debconf information:
cmucl/upgradeproblems:
* cmucl/auto-build: Yes
--
To UNSUBSCRIBE, email to debian-bugs-...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listm...@lists.debian.org