Bug#762436: sbcl: ASDF/SOURCE-REGISTRY::DEFAULT-SOURCE-REGISTRY undefined

Faré fahree at gmail.com
Tue Sep 23 21:28:32 UTC 2014


Oops, there's a bug in ASDF 3.1, whereby :default-registry doesn't
work, and you use it in
/home/exot/.config/common-lisp/source-registry.conf even though it's
redundant with your :inherit-configuration. I propose you remove it,
while I fix the bug in ASDF.

Testing the bug in an asdf checkout:
make load
(initialize-source-registry '(:source-registry :default-registry
:ignore-inherited-configuration))

I'll fix it tonight in a ASDF 3.1.3.9.

—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
Hopefully, they ban not just gay marriage, but straight marriage too,
and at last we have separation of state and marriage.


On Mon, Sep 22, 2014 at 7:08 AM, Daniel Borchmann
<daniel.borchmann at mailbox.tu-dresden.de> wrote:
> Package: sbcl
> Version: 2:1.2.3-1
> Severity: normal
>
> Dear Maintainer,
>
> it seems the current version of ASDF (3.1.3) causes some troubles:
>
>   # sbcl --no-userinit --no-sysinit
>   * (require 'asdf)
>
>   ("ASDF" "asdf" "UIOP" "uiop")
>   * (asdf:load-system :asdf)
>
>   debugger invoked on a UNDEFINED-FUNCTION in thread
>   #<THREAD "main thread" RUNNING {10039C6663}>:
>     The function ASDF/SOURCE-REGISTRY::DEFAULT-SOURCE-REGISTRY is undefined.
>
>   Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
>
>   restarts (invokable by number or by possibly-abbreviated name):
>     0: [RETRY                        ] Retry ASDF operation.
>     1: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the
>                                        configuration.
>     2: [ABORT                        ] Exit debugger, returning to top level.
>
>   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ASDF/SOURCE-REGISTRY::DEFAULT-SOURCE-REGISTRY)
>   0] backtrace
>
>   Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10039C6663}>
>   0: (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ASDF/SOURCE-REGISTRY::DEFAULT-SOURCE-REGISTRY)
>   1: ((:METHOD ASDF/SOURCE-REGISTRY:PROCESS-SOURCE-REGISTRY (SYMBOL)) ASDF/SOURCE-REGISTRY::DEFAULT-SOURCE-REGISTRY :INHERIT NIL :REGISTER #<CLOSURE (LAMBDA (DIRECTORY &KEY ASDF/SOURCE-REGISTRY::RECURSE ASDF/SOURCE-REGISTRY::EXCLUDE) :IN ASDF/SOURCE-REGISTRY:FLATTEN-SOURCE-REGISTRY) {10055025FB}>) [fast-method]
>   2: (ASDF/SOURCE-REGISTRY::PROCESS-SOURCE-REGISTRY-DIRECTIVE :DEFAULT-REGISTRY :INHERIT (ASDF/SOURCE-REGISTRY:USER-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-USER-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-SYSTEM-SOURCE-REGISTRY) :REGISTER #<CLOSURE (LAMBDA (DIRECTORY &KEY ASDF/SOURCE-REGISTRY::RECURSE ASDF/SOURCE-REGISTRY::EXCLUDE) :IN ASDF/SOURCE-REGISTRY:FLATTEN-SOURCE-REGISTRY) {10055025FB}>)
>   3: ((:METHOD ASDF/SOURCE-REGISTRY:PROCESS-SOURCE-REGISTRY (CONS)) (:SOURCE-REGISTRY (:TREE (:HOME ".config/common-lisp/systems/")) :DEFAULT-REGISTRY :INHERIT-CONFIGURATION) :INHERIT (ASDF/SOURCE-REGISTRY:USER-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-USER-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-SYSTEM-SOURCE-REGISTRY) :REGISTER #<CLOSURE (LAMBDA (DIRECTORY &KEY ASDF/SOURCE-REGISTRY::RECURSE ASDF/SOURCE-REGISTRY::EXCLUDE) :IN ASDF/SOURCE-REGISTRY:FLATTEN-SOURCE-REGISTRY) {10055025FB}>) [fast-method]
>   4: ((:METHOD ASDF/SOURCE-REGISTRY:PROCESS-SOURCE-REGISTRY (PATHNAME)) #P"/home/exot/.config/common-lisp/source-registry.conf" :INHERIT (ASDF/SOURCE-REGISTRY:USER-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-USER-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-SYSTEM-SOURCE-REGISTRY) :REGISTER #<CLOSURE (LAMBDA (DIRECTORY &KEY ASDF/SOURCE-REGISTRY::RECURSE ASDF/SOURCE-REGISTRY::EXCLUDE) :IN ASDF/SOURCE-REGISTRY:FLATTEN-SOURCE-REGISTRY) {10055025FB}>) [fast-method]
>   5: (ASDF/SOURCE-REGISTRY::PROCESS-SOURCE-REGISTRY-DIRECTIVE :INHERIT-CONFIGURATION :INHERIT (NIL ASDF/SOURCE-REGISTRY:ENVIRONMENT-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:USER-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:USER-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-USER-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-SYSTEM-SOURCE-REGISTRY) :REGISTER #<CLOSURE (LAMBDA (DIRECTORY &KEY ASDF/SOURCE-REGISTRY::RECURSE ASDF/SOURCE-REGISTRY::EXCLUDE) :IN ASDF/SOURCE-REGISTRY:FLATTEN-SOURCE-REGISTRY) {10055025FB}>)
>   6: ((:METHOD ASDF/SOURCE-REGISTRY:PROCESS-SOURCE-REGISTRY (CONS)) (:SOURCE-REGISTRY (:TREE #P"/usr/lib/sbcl/") :INHERIT-CONFIGURATION) :INHERIT (NIL ASDF/SOURCE-REGISTRY:ENVIRONMENT-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:USER-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:USER-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-USER-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY ASDF/SOURCE-REGISTRY:SYSTEM-SOURCE-REGISTRY-DIRECTORY ASDF/SOURCE-REGISTRY:DEFAULT-SYSTEM-SOURCE-REGISTRY) :REGISTER #<CLOSURE (LAMBDA (DIRECTORY &KEY ASDF/SOURCE-REGISTRY::RECURSE ASDF/SOURCE-REGISTRY::EXCLUDE) :IN ASDF/SOURCE-REGISTRY:FLATTEN-SOURCE-REGISTRY) {10055025FB}>) [fast-method]
>   7: (ASDF/SOURCE-REGISTRY:FLATTEN-SOURCE-REGISTRY NIL)
>   8: (ASDF/SOURCE-REGISTRY:COMPUTE-SOURCE-REGISTRY NIL #<HASH-TABLE :TEST EQUAL :COUNT 0 {1005502523}>)
>   9: (ASDF/SOURCE-REGISTRY:ENSURE-SOURCE-REGISTRY NIL)
>   10: (ASDF/FIND-SYSTEM:SYSDEF-SOURCE-REGISTRY-SEARCH "asdf")
>   11: ((FLET ASDF/FIND-SYSTEM::TRY :IN ASDF/FIND-SYSTEM:SEARCH-FOR-SYSTEM-DEFINITION) ASDF/FIND-SYSTEM:SYSDEF-SOURCE-REGISTRY-SEARCH)
>   12: ((FLET ASDF/FIND-SYSTEM::TRY :IN ASDF/FIND-SYSTEM:SEARCH-FOR-SYSTEM-DEFINITION) ASDF/FIND-SYSTEM:SYSDEF-SOURCE-REGISTRY-SEARCH) [external]
>   13: (SB-KERNEL:%MAP-FOR-EFFECT-ARITY-1 #<CLOSURE (FLET ASDF/FIND-SYSTEM::TRY :IN ASDF/FIND-SYSTEM:SEARCH-FOR-SYSTEM-DEFINITION) {100550208B}> (ASDF/PACKAGE-INFERRED-SYSTEM:SYSDEF-PACKAGE-INFERRED-SYSTEM-SEARCH ASDF/FIND-SYSTEM:SYSDEF-CENTRAL-REGISTRY-SEARCH ASDF/FIND-SYSTEM:SYSDEF-SOURCE-REGISTRY-SEARCH))
>   14: (ASDF/FIND-SYSTEM:SEARCH-FOR-SYSTEM-DEFINITION "asdf")
>   15: (ASDF/FIND-SYSTEM:SEARCH-FOR-SYSTEM-DEFINITION "asdf") [tl,external]
>   16: (ASDF/FIND-SYSTEM:LOCATE-SYSTEM "asdf")
>   17: ((LAMBDA NIL :IN ASDF/SYSTEM:FIND-SYSTEM))
>   18: (ASDF/CACHE:CONSULT-ASDF-CACHE (ASDF/SYSTEM:FIND-SYSTEM "asdf") #<CLOSURE (LAMBDA NIL :IN ASDF/SYSTEM:FIND-SYSTEM) {1005501FAB}>)
>   19: ((:METHOD ASDF/SYSTEM:FIND-SYSTEM (STRING)) "asdf" NIL) [fast-method]
>   20: ((:METHOD ASDF/FIND-COMPONENT:FIND-COMPONENT (STRING T)) "asdf" NIL) [fast-method]
>   21: ((:METHOD ASDF/OPERATE:OPERATE (SYMBOL T)) ASDF/LISP-ACTION:LOAD-OP :ASDF :VERBOSE NIL) [fast-method]
>   22: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP :ASDF :VERBOSE NIL)
>   23: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
>   24: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100534AADB}> :OVERRIDE NIL :KEY NIL)
>   25: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :ASDF :VERBOSE NIL) [fast-method]
>   26: (ASDF/OPERATE:LOAD-SYSTEM :ASDF :VERBOSE NIL)
>   27: (ASDF/UPGRADE:UPGRADE-ASDF)
>   28: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :ASDF) [fast-method]
>   29: (ASDF/OPERATE:LOAD-SYSTEM :ASDF)
>   30: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:LOAD-SYSTEM :ASDF) #<NULL-LEXENV>)
>   31: (EVAL (ASDF/OPERATE:LOAD-SYSTEM :ASDF))
>   32: (INTERACTIVE-EVAL (ASDF/OPERATE:LOAD-SYSTEM :ASDF) :EVAL NIL)
>   33: (SB-IMPL::REPL-FUN NIL)
>   34: ((LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL))
>   35: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL) {10039C838B}>)
>   36: (SB-IMPL::TOPLEVEL-REPL NIL)
>   37: (SB-IMPL::TOPLEVEL-INIT)
>   38: ((FLET #:WITHOUT-INTERRUPTS-BODY-89 :IN SAVE-LISP-AND-DIE))
>   39: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))
>
>   0]
>
> Or am I doing something wrong here?
>
> Thanks for your time!
>
>   Daniel
>
> -- System Information:
> Debian Release: jessie/sid
>   APT prefers unstable
>   APT policy: (500, 'unstable'), (500, 'testing'), (500, 'stable'), (1, 'experimental')
> Architecture: amd64 (x86_64)
> Foreign Architectures: i386
>
> Kernel: Linux 3.14-2-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
>
> Versions of packages sbcl depends on:
> ii  libc6   2.19-11
> ii  zlib1g  1:1.2.8.dfsg-2
>
> Versions of packages sbcl recommends:
> pn  binfmt-support  <none>
>
> Versions of packages sbcl suggests:
> pn  sbcl-doc     <none>
> ii  sbcl-source  2:1.2.3-1
> pn  slime        <none>
>
> -- no debconf information
>
> _______________________________________________
> pkg-common-lisp-devel mailing list
> pkg-common-lisp-devel at lists.alioth.debian.org
> http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-common-lisp-devel



More information about the pkg-common-lisp-devel mailing list