Re: [Sbcl-devel] [Sbcl-commits] master: Tweak INFO-VECTOR-FDEFINITION

[Jan M. <jmo...@te...>]

On Sat, 2014-04-19 at 15:06 +0400, Stas Boukarev wrote:
> "Douglas Katzman" <sn...@us...> writes:
> 
> > The branch "master" has been updated in SBCL:
> >        via  f6f734c93a0d199b8e56283419b11191d5926e4d (commit)
> >       from  0b7de6203dd43f85b46ec93c44668575273b0ae1 (commit)
> >
> > - Log -----------------------------------------------------------------
> > commit f6f734c93a0d199b8e56283419b11191d5926e4d
> > Author: Douglas Katzman <do...@go...>
> > Date:   Fri Apr 18 23:15:48 2014 -0400
> >
> >     Tweak INFO-VECTOR-FDEFINITION
> > ---
> >  src/compiler/globaldb.lisp    |   12 ++++++++++--
> >  src/compiler/info-vector.lisp |   29 +++++++++++------------------
> >  tests/info.before-xc.lisp     |   30 ++++++++++++++++--------------
> >  3 files changed, 37 insertions(+), 34 deletions(-)
> 
> This breaks the info.impure :get-info-value-initializing.

Apparently on Linux {x86,x86_64} but not on MacOS [1].

On Linux x86, the failure looks like this (see [2] for complete log):

::: Running :GET-INFO-VALUE-INITIALIZING
Unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD RUNNING {CE97401}>:
  The value 517884022 is not of type (OR SB-KERNEL:FDEFN NULL).

Backtrace for: #<SB-THREAD:THREAD RUNNING {CE97401}>
0: (SB-INT:FIND-FDEFINITION #:G704)
1: (SB-IMPL::BE-AN-FDEFN-READER #((SB-PCL::CTOR #:G693 #:G694) (DEFMACRO #:G695) #:G696 (SB-PCL::CTOR #:G697 #:G698) (DEFMACRO #:G699) #:G700 (SB-PCL::CTOR #:G701 #:G702) (DEFMACRO #:G703) #:G704 (SB-PCL::CTOR #:G705 #:G706) (DEFMACRO #:G707) #:G708 ...))
2: ((FLET #:WITHOUT-INTERRUPTS-BODY-1207 :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
3: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
4: ((FLET #:WITHOUT-INTERRUPTS-BODY-660 :IN SB-THREAD::CALL-WITH-MUTEX))
5: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {B50A111D}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD RUNNING {CE97401}>> NIL T NIL)
6: (SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE #<SB-THREAD:THREAD RUNNING {CE97401}> #S(SB-THREAD:SEMAPHORE :NAME "Thread setup semaphore" :%COUNT 0 :WAITCOUNT 0 :MUTEX #<SB-THREAD:MUTEX (free) {CE97439}> :QUEUE #<SB-THREAD:WAITQUEUE  {CE97451}>) #<FUNCTION SB-IMPL::BE-AN-FDEFN-READER> (#((SB-PCL::CTOR #:G693 #:G694) (DEFMACRO #:G695) #:G696 (SB-PCL::CTOR #:G697 #:G698) (DEFMACRO #:G699) #:G700 (SB-PCL::CTOR #:G701 #:G702) (DEFMACRO #:G703) #:G704 (SB-PCL::CTOR #:G705 #:G706) (DEFMACRO #:G707) #:G708 ...)) NIL NIL NIL)
7: ("foreign function: call_into_lisp")
8: ("foreign function: funcall0")
9: ("foreign function: new_thread_trampoline")
10: ("foreign function: #xB7FA5D4C")

Kind regards,
Jan

[1] https://ci.cor-lab.org/job/sbcl-master/409/
[2] https://ci.cor-lab.org/job/sbcl-master/409/featureset=1,label=ubuntu_quantal_32bit/consoleFull