Closed slyrus closed 6 years ago
When loading spinneret with ABCL, I get the following error:
The function SERAPEUM::ITEM is undefined. [Condition of type UNDEFINED-FUNCTION] Restarts: 0: [CONTINUE] Try again. 1: [USE-VALUE] Specify a function to call instead. 2: [RETURN-VALUE] Return one or more values from the call to SERAPEUM::ITEM. 3: [RETRY] Retry compiling #<ASDF/LISP-ACTION:CL-SOURCE-FILE "serapeum" "level2" "range">. 4: [ACCEPT] Continue, treating compiling #<ASDF/LISP-ACTION:CL-SOURCE-FILE "serapeum" "level2" "range"> as having been successful. 5: [RETRY] Retry ASDF operation. --more-- Backtrace: 0: (#<FUNCTION {7480E6B9}> #<UNDEFINED-FUNCTION {486C948A}> #<FUNCTION {7480E6B9}>) 1: (APPLY #<FUNCTION {7480E6B9}> (#<UNDEFINED-FUNCTION {486C948A}> #<FUNCTION {7480E6B9}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<UNDEFINED-FUNCTION {486C948A}> #<FUNCTION {7480E6B9}>) 3: (INVOKE-DEBUGGER #<UNDEFINED-FUNCTION {486C948A}>) 4: (ERROR #<UNDEFINED-FUNCTION {486C948A}>) 5: (SYSTEM:UNDEFINED-FUNCTION-CALLED SERAPEUM::ITEM ((ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER INTEGER RATIO RATIONAL SINGLE-FLOAT ...))) 6: (SERAPEUM::ITEM (ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER INTEGER RATIO RATIONAL SINGLE-FLOAT ...)) 7: (SERAPEUM:ORDERING (ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER INTEGER RATIO RATIONAL SINGLE-FLOAT ...) :TEST #<EQL {5864E467}> :UNORDERED-TO-END NIL ...) 8: (SERAPEUM:TOPOSORT ((ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER) (ALEXANDRIA.0.DEV:ARRAY-INDEX INTEGER) (ALEXANDRIA.0.DEV:ARRAY-INDEX RATIONAL) (ALEXANDRIA.0.DEV:NON-NEGATIVE-I.. 9: (SERAPEUM/DISPATCH-CASE::SORT-CLAUSES (((ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER) (GO #:TAG126047)) ((ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER ALEX.. 10: ((MACRO-FUNCTION SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS) (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS ((#:ARG0 SERAPEUM::REAL*) (#:ARG1 SERAPEUM::REAL*) (#:ARG2 SERAPEUM::REAL*)) ((ALEX.. 11: (MACROEXPAND-1 (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS ((#:ARG0 SERAPEUM::REAL*) (#:ARG1 SERAPEUM::REAL*) (#:ARG2 SERAPEUM::REAL*)) ((ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:ARRAY-INDE.. 12: (PRECOMPILER::PRECOMPILE1 (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS ((#:ARG0 SERAPEUM::REAL*) (#:ARG1 SERAPEUM::REAL*) (#:ARG2 SERAPEUM::REAL*)) ((ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV.. 13: (PRECOMPILER::PRECOMPILE-TAGBODY (TAGBODY (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS (# # #) (# #) (# #) (# #) (# #) ...) #:TAG126047 (RETURN-FROM #:BLOCK126046 (PROGN #)) #:TAG126048 (RETURN-F.. 14: (PRECOMPILER::PRECOMPILE1 (TAGBODY (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS (# # #) (# #) (# #) (# #) (# #) ...) #:TAG126047 (RETURN-FROM #:BLOCK126046 (PROGN #)) #:TAG126048 (RETURN-FROM #:B.. 15: (PRECOMPILER::PRECOMPILE-BLOCK (BLOCK #:BLOCK126046 (TAGBODY (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS # # # # # ...) #:TAG126047 (RETURN-FROM #:BLOCK126046 #) #:TAG126048 (RETURN-FROM #:BLOCK.. 16: (PRECOMPILER::PRECOMPILE1 (BLOCK #:BLOCK126046 (TAGBODY (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS # # # # # ...) #:TAG126047 (RETURN-FROM #:BLOCK126046 #) #:TAG126048 (RETURN-FROM #:BLOCK12604.. 17: (PRECOMPILER::PRECOMPILE-PROGN (PROGN (BLOCK #:BLOCK126046 (TAGBODY # #:TAG126047 # #:TAG126048 # ...)))) 18: (PRECOMPILER::PRECOMPILE1 (PROGN (BLOCK #:BLOCK126046 (TAGBODY # #:TAG126047 # #:TAG126048 # ...)))) 19: (PRECOMPILER::PRECOMPILE1 (SERAPEUM:WITH-READ-ONLY-VARS (#:ARG0 #:ARG1 #:ARG2) (BLOCK #:BLOCK126046 (TAGBODY # #:TAG126047 # #:TAG126048 # ...)))) --more--
Oh wait, this is a serapeum problem.
When loading spinneret with ABCL, I get the following error: