Author: smokeink. Date 2019-12-01 12:35:04, views: 53, Raw

Увеличить
https://filebin.net/baisxebxvg69tm3p   <- asdf loadable manardb
 
(DEFCLASS IMAGE NIL
             ((|pk| :INITFORM (LIST 'CATEG 'ID) :ACCESSOR PK :INITARG :PK :TYPE
               LIST))
             (:METACLASS MANARDB:MM-METACLASS))
 
(MANARDB::ENSURE-FINALIZE-INHERITANCE 'IMAGE)
 
=>
failed AVER: (SB-C::LEAF-HAS-SOURCE-NAME-P SB-C::LEAF)
This is probably a bug in SBCL (1.5.9) itself. (Alternatively, SBCL
might have been corrupted by bad user code, e.g. by an undefined
Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers
from alien code or from unsafe Lisp code; or there might be a
bug in the OS or hardware that SBCL is running on.) If it seems
to be a bug in SBCL itself, the maintainers would like to know
about it. Bug reports are welcome on the SBCL mailing lists,
which you can find at <http://sbcl.sourceforge.net/>.
 
 
Any idea what what's wrong? The older sbcl didn't complain, only the new one has this reaction
 
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005704C3}>
0: (SB-C::LEAF-SOURCE-NAME #<SB-KERNEL:CONSTANT :VALUE #<FUNCTION (LAMBDA (MANARDB::NEW-VAL MANARDB::OBJECT)) {52F627DB}> {1004ABC1F3}>)
1: (SB-C::LVAR-FUN-TYPE #<SB-C::LVAR 1 {1004ABBB13}> T T)
2: (SB-C::PROPAGATE-FUN-CHANGE #<SB-C::COMBINATION :FUN #<CAST :%TYPE-CHECK NIL :VALUE #<SB-C::LVAR 2 {1004ABBFC3}> :ASSERTED-TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T MANARDB:MM-OBJECT) *)> :TYPE-TO-CHECK #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> {1004ABC163}> :ARGS (#<SB-C::COMBINATION :FUN #<SB-C::REF :%SOURCE-NAME SB-C::THING :LEAF #<SB-KERNEL:CONSTANT :VALUE #<FUNCTION # {52F7F81B}> {1004ABCC23}> {1004AC2ED3}> :ARGS NIL {1004ABCF33}> #<SB-C::REF :%SOURCE-NAME MANARDB::INSTANCE :LEAF #<SB-C::LAMBDA-VAR :%SOURCE-NAME MANARDB::INSTANCE {1004AAFC93}> {1004ABD073}>) {1004ABC623}>)
3: (SB-C::IR1-OPTIMIZE-COMBINATION #<SB-C::COMBINATION :FUN #<CAST :%TYPE-CHECK NIL :VALUE #<SB-C::LVAR 2 {1004ABBFC3}> :ASSERTED-TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T MANARDB:MM-OBJECT) *)> :TYPE-TO-CHECK #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> {1004ABC163}> :ARGS (#<SB-C::COMBINATION :FUN #<SB-C::REF :%SOURCE-NAME SB-C::THING :LEAF #<SB-KERNEL:CONSTANT :VALUE #<FUNCTION # {52F7F81B}> {1004ABCC23}> {1004AC2ED3}> :ARGS NIL {1004ABCF33}> #<SB-C::REF :%SOURCE-NAME MANARDB::INSTANCE :LEAF #<SB-C::LAMBDA-VAR :%SOURCE-NAME MANARDB::INSTANCE {1004AAFC93}> {1004ABD073}>) {1004ABC623}>)
4: (SB-C::IR1-OPTIMIZE-BLOCK #<SB-C::CBLOCK NIL :START c3 {1004AC2D73}>)
5: (SB-C::IR1-OPTIMIZE #<SB-C:COMPONENT :NAME (LAMBDA (MANARDB::INSTANCE MANARDB::INITARGS)) :REANALYZE T {1004ABF513}> NIL)
6: (SB-C::IR1-OPTIMIZE-UNTIL-DONE #<SB-C:COMPONENT :NAME (LAMBDA (MANARDB::INSTANCE MANARDB::INITARGS)) :REANALYZE T {1004ABF513}>)
7: (SB-C::IR1-OPTIMIZE-PHASE-1 #<SB-C:COMPONENT :NAME (LAMBDA (MANARDB::INSTANCE MANARDB::INITARGS)) :REANALYZE T {1004ABF513}>)
8: (SB-C::IR1-PHASES #<SB-C:COMPONENT :NAME (LAMBDA (MANARDB::INSTANCE MANARDB::INITARGS)) :REANALYZE T {1004ABF513}>)
9: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME (LAMBDA (MANARDB::INSTANCE MANARDB::INITARGS)) :REANALYZE T {1004ABF513}>)
10: (SB-C::%COMPILE (LAMBDA (MANARDB::INSTANCE MANARDB::INITARGS) (DECLARE (IGNORABLE MANARDB::INITARGS)) (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 14 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 14) 8))) (LET (#1=#:|pk528|) (LOOP ITERATE:FOR MANARDB::ARG ITERATE:IN MANARDB::INITARGS MANARDB::BY (FUNCTION CDDR) DO (CASE MANARDB::ARG (:PK #))) (UNLESS #1# (FUNCALL (THE MANARDB::MM-SLOT-DEFINITION-WRITER #<FUNCTION # {52F627DB}>) (FUNCALL #<FUNCTION # {52F7F81B}>) . #2=(MANARDB::INSTANCE)))) . #2#) #<SB-C::CORE-OBJECT {1004AAEB93}> :NAME NIL :PATH (SB-C::ORIGINAL-SOURCE-START 0 0))
11: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;TARGET-MAIN.LISP"))
12: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
13: (SB-C:COMPILE-IN-LEXENV (LAMBDA (MANARDB::INSTANCE MANARDB::INITARGS) (DECLARE (IGNORABLE MANARDB::INITARGS)) (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 14 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 14) 8))) (LET (#1=#:|pk528|) (LOOP ITERATE:FOR MANARDB::ARG ITERATE:IN MANARDB::INITARGS MANARDB::BY (FUNCTION CDDR) DO (CASE MANARDB::ARG (:PK #))) (UNLESS #1# (FUNCALL (THE MANARDB::MM-SLOT-DEFINITION-WRITER #<FUNCTION # {52F627DB}>) (FUNCALL #<FUNCTION # {52F7F81B}>) . #2=(MANARDB::INSTANCE)))) . #2#) #<NULL-LEXENV> NIL NIL NIL NIL NIL)
14: (COMPILE NIL (LAMBDA (MANARDB::INSTANCE MANARDB::INITARGS) (DECLARE (IGNORABLE MANARDB::INITARGS)) (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 14 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 14) 8))) (LET (#1=#:|pk528|) (LOOP ITERATE:FOR MANARDB::ARG ITERATE:IN MANARDB::INITARGS MANARDB::BY (FUNCTION CDDR) DO (CASE MANARDB::ARG (:PK #))) (UNLESS #1# (FUNCALL (THE MANARDB::MM-SLOT-DEFINITION-WRITER #<FUNCTION # {52F627DB}>) (FUNCALL #<FUNCTION # {52F7F81B}>) . #2=(MANARDB::INSTANCE)))) . #2#))
15: (MANARDB::SETUP-DEFAULT-METACLASS-FUNCTIONS #<unavailable argument>)
16: ((:METHOD SB-MOP:FINALIZE-INHERITANCE :AFTER (MANARDB:MM-METACLASS)) #<unavailable argument>) [fast-method]
17: ((SB-PCL::EMF SB-MOP:FINALIZE-INHERITANCE) #<unavailable argument> #<unavailable argument> #<unavailable argument>)
18: (SB-INT:SIMPLE-EVAL-IN-LEXENV (MANARDB::ENSURE-FINALIZE-INHERITANCE (QUOTE IMAGE)) #<NULL-LEXENV>)
19: (EVAL (MANARDB::ENSURE-FINALIZE-INHERITANCE (QUOTE IMAGE)))