[cl-store-devel] Simple-type-error on SBCL 1.0.15

[Alexandre Passos]

On trying to restore a structure instance with function pointers on
sbcl 1.0.15 I get a simple-type-error from one of the function names.
On sbcl 1.0.11 I get no problem.

Any ideas?

The error is

unhandled SIMPLE-TYPE-ERROR in thread #<SB-THREAD:THREAD "initial
thread" {ECCC9F9}>:
 invalid function name: (SB-C::&OPTIONAL-DISPATCH
                         RAMEAU-PARDO:INCF-PARDO-CLASSIFY)

0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {EE17045}>)[:EXTERNAL]
1: (BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {90A16D1}>)
2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
   #<SIMPLE-TYPE-ERROR {EE15EB9}>
   #<unavailable argument>)
3: (INVOKE-DEBUGGER #<SIMPLE-TYPE-ERROR {EE15EB9}>)
4: (INVOKE-DEBUGGER #<SIMPLE-TYPE-ERROR {EE15EB9}>)[:EXTERNAL]
5: (ERROR SIMPLE-TYPE-ERROR)[:EXTERNAL]
6: (SB-INT:LEGAL-FUN-NAME-OR-TYPE-ERROR
   (SB-C::&OPTIONAL-DISPATCH RAMEAU-PARDO:INCF-PARDO-CLASSIFY))
7: (SB-KERNEL:FDEFINITION-OBJECT
   (SB-C::&OPTIONAL-DISPATCH RAMEAU-PARDO:INCF-PARDO-CLASSIFY)
   NIL)
8: (FDEFINITION (SB-C::&OPTIONAL-DISPATCH RAMEAU-PARDO:INCF-PARDO-CLASSIFY))
9: ((SB-PCL::FAST-METHOD CL-STORE::INTERNAL-RESTORE-OBJECT
    (CL-STORE:CL-STORE (EQL 'FUNCTION) T))
   #<unused argument>
   #<unused argument>
   #<unused argument>
   #<unused argument>
   #<SB-SYS:FD-STREAM for "file
/home/givaldo/genos/repos/rameau/tools/algorithms.store" {ED43C99}>)
10: (CL-STORE::HANDLE-NORMAL #<unavailable lambda list>)
11: (CL-STORE:RESTORE-OBJECT
    #<SB-SYS:FD-STREAM for "file
/home/givaldo/genos/repos/rameau/tools/algorithms.store" {ED43C99}>
    #<CL-STORE:CL-STORE {94DD979}>)
12: (CL-STORE::RESTORE-TYPE-OBJECT
    #<SB-SYS:FD-STREAM for "file
/home/givaldo/genos/repos/rameau/tools/algorithms.store" {ED43C99}>)
13: ((SB-PCL::FAST-METHOD CL-STORE::INTERNAL-RESTORE-OBJECT
     (CL-STORE:CL-STORE (EQL 'STRUCTURE-OBJECT) T))
    #<unused argument>
    #<unused argument>
    #<unused argument>
    #<unused argument>
    #<SB-SYS:FD-STREAM for "file
/home/givaldo/genos/repos/rameau/tools/algorithms.store" {ED43C99}>)
14: (CL-STORE::HANDLE-NORMAL #<unavailable lambda list>)
15: (CL-STORE:RESTORE-OBJECT
    #<SB-SYS:FD-STREAM for "file
/home/givaldo/genos/repos/rameau/tools/algorithms.store" {ED43C99}>
    #<CL-STORE:CL-STORE {94DD979}>)
16: (CL-STORE::RESTORE-LIST #<unavailable lambda list>)
17: ((SB-PCL::FAST-METHOD CL-STORE::INTERNAL-RESTORE-OBJECT
     (CL-STORE:CL-STORE (EQL 'CONS) T))
    #<unused argument>
    #<unused argument>
    #<unused argument>
    #<unused argument>
    #<SB-SYS:FD-STREAM for "file
/home/givaldo/genos/repos/rameau/tools/algorithms.store" {ED43C99}>)
18: (CL-STORE::HANDLE-NORMAL #<unavailable lambda list>)
19: ((SB-PCL::FAST-METHOD CL-STORE:BACKEND-RESTORE
     (CL-STORE:RESOLVING-BACKEND STREAM))
    #<unused argument>
    #<unused argument>
    #<CL-STORE:CL-STORE {94DD979}>
    #<SB-SYS:FD-STREAM for "file
/home/givaldo/genos/repos/rameau/tools/algorithms.store" {ED43C99}>)
20: (CL-STORE::RESTORE-FROM-FILE
    #<unavailable argument>
    #<unavailable argument>)
21: ((SB-PCL::FAST-METHOD CL-STORE:BACKEND-RESTORE (CL-STORE:BACKEND
STRING))
    #<unused argument>
    #<unused argument>
    #<CL-STORE:CL-STORE {94DD979}>
    "/home/givaldo/genos/repos/rameau/tools/algorithms.store")
22: ((SB-PCL::FAST-METHOD CL-STORE:RESTORE (T))
    #<unused argument>
    #<unused argument>
    #<unavailable argument>
    #<unavailable argument>)
23: (RAMEAU-SAVE:LOAD-ALGORITHMS)
24: (RAMEAU-MAIN:MAIN NIL)
25: ((LABELS SB-IMPL::RESTART-LISP))



-- 
 - Alexandre