(asdf:system-long-description (find-if #'(lambda(was)(string= "asdf" (asdf:component-name was))) (asdf/system-registry:registered-systems*))) failing
While trying to run staple-server I notice that the initial page errored in clasp.
(ql:quickload "staple-server" :verbose t)
The reason is easy to be found: the following call errors:
(asdf:system-long-description (find-if #'(lambda(was)(string= "asdf" (asdf:component-name was))) (asdf/system-registry:registered-systems*)))
-->
Condition of type: FORMATTED-SYSTEM-DEFINITION-ERROR
NIL is not a valid system name
Available restarts:
(use :r1 to invoke restart 1)
1. (RESTART-TOPLEVEL) Go back to Top-Level REPL.
Broken at frame[0] (LAMBDA NIL). In: #<PROCESS TOP-LEVEL @0x1129095b9>.
COMMON-LISP-USER>> (core:btcl)
0: ((LAMBDA NIL))
25: (DEFAULT-DEBUGGER #S(FORMATTED-SYSTEM-DEFINITION-ERROR ))
26: (INVOKE-DEBUGGER #S(FORMATTED-SYSTEM-DEFINITION-ERROR ))
27: (UNIVERSAL-ERROR-HANDLER NIL FORMATTED-SYSTEM-DEFINITION-ERROR (:FORMAT-CONTROL ~@<NIL is not a valid system name~@:> :FORMAT-ARGUMENTS NIL))
30: (ERROR FORMATTED-SYSTEM-DEFINITION-ERROR :FORMAT-CONTROL ~@<NIL is not a valid system name~@:> :FORMAT-ARGUMENTS NIL)
31: (SYSDEF-ERROR ~@<NIL is not a valid system name~@:>)
32: ((METHOD FIND-SYSTEM (NULL)) (NIL) NIL)
33: (PERFORM-OUTCOME #1A(OUTCOME EFFECTIVE-METHOD-OUTCOME (#S(STANDARD-METHOD ) #S(STANDARD-METHOD )) NIL #<CLOSURE-WITH-SLOTS@0x11de39b18 (METHOD FIND-SYSTEM (NULL)) :type cclasp lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11e8c2db0> ) (NIL) (NIL))
34: (DO-DISPATCH-MISS #S(STANDARD-GENERIC-FUNCTION FIND-SYSTEM #slots[11]) (NIL) (NIL))
35: (DISPATCH-MISS #S(STANDARD-GENERIC-FUNCTION FIND-SYSTEM #slots[11]) NIL)
37: (INVALIDATED-DISPATCH-FUNCTION #S(STANDARD-GENERIC-FUNCTION FIND-SYSTEM #slots[11]) (NIL))
38: (INVALIDATED-DISCRIMINATING-FUNCTION NIL)
40: (SYSTEM-VIRTUAL-SLOT-VALUE #S(SYSTEM ) LONG-DESCRIPTION)
It also happens in ccl who has a relatively modern asdf, not in sbcl, who has a relatively old asdf