Debbuger error ?

[David Axmark <davida@isil.detron.se>]

I have not been able to make a any reproducibly example (of a decent
size) of this but here it is anyway.

When debugging my application I often get this error in the debugger.
This version is from a 16 core but when I used 15 cores I got an error
mutch like Peter_Cousseau@A.NL.CS.CMU.EDU (Type-error in
KERNEL:%SET-SAP-REF-32).


9] so
File: /tmp_mnt/net/puma/d2/my/w-lisp/match/areacodes.lisp
 
Type-error in BIGNUM:BIGNUM-ASHIFT-LEFT:
  8589934592 is not of type FIXNUM
 
Restarts:
  0: [ABORT] Return to debug level 1.
  1:         Return to Top-Level.
 
Debug  (type H for help)
 
(DEBUG::DEBUG-LOOP)
0]] ba
 
(DEBUG::DEBUG-LOOP)
("DEFUN DEBUG-LOOP" #<unavailable-arg> #<unavailable-arg>)[:EXTERNAL]
(DEBUG:INTERNAL-DEBUG)
(INVOKE-DEBUGGER #<TYPE-ERROR {B3884BD}>)
(SIGNAL #<TYPE-ERROR {B3884BD}>)
(ERROR TYPE-ERROR :FUNCTION-NAME BIGNUM:BIGNUM-ASHIFT-LEFT :DATUM ...)
("DEFERR OBJECT-NOT-FIXNUM-ERROR" BIGNUM:BIGNUM-ASHIFT-LEFT
 #.(INT-SAP #x00E00970) #<Alien (* #) at #xF7FFDA58> (556))
("DEFERR OBJECT-NOT-FIXNUM-ERROR" #<unavailable-arg> #<unavailable-arg>
 #<unavailable-arg> #<unavailable-arg>)
(KERNEL::INTERNAL-ERROR #.(INT-SAP #xF7FFDA58) #<unavailable-arg>)
("Foreign function call land")
(BIGNUM:BIGNUM-ASHIFT-LEFT #<unavailable-arg>
                           #<unavailable-arg>
                           #<unavailable-arg>
                           #<unavailable-arg>)[:EXTERNAL]
(UNIX:UNIX-SELECT #<unavailable-arg>
                  #<unavailable-arg>
                  #<unavailable-arg>
                  #<unavailable-arg>
                  ...)
(COMMON-LISP::DO-INPUT
 #<Stream for file "/tmp_mnt/net/puma/d2/my/w-lisp/match/areacodes.lisp">)
(COMMON-LISP::INPUT-CHARACTER
 #<Stream for file "/tmp_mnt/net/puma/d2/my/w-lisp/match/areacodes.lisp">
 T
 (COMMON-LISP::*EOF*))
(READ-PRESERVING-WHITESPACE
 #<Stream for file "/tmp_mnt/net/puma/d2/my/w-lisp/match/areacodes.lisp">
 T
 NIL
 T)
(READ-PRESERVING-WHITESPACE
 #<Stream for file "/tmp_mnt/net/puma/d2/my/w-lisp/match/areacodes.lisp">
 T
 NIL
 NIL)
(READ-PRESERVING-WHITESPACE 4
                            #<Stream for file "/tmp_mnt/net/puma/d2/my/w-lisp/m\atch/areacodes.lisp">
                            T
                            NIL
                            ...)[:EXTERNAL]
(READ #<Stream for file "/tmp_mnt/net/puma/d2/my/w-lisp/match/areacodes.lisp">
      T
      NIL
      NIL)
(DEBUG::PRINT-FRAME-SOURCE-FROM-FILE 0
                                     NIL
                                     #<Compiled-Code-Location EXTRACT-PHONE-ARE\ACODE>
                                     #S(C::DEBUG-SOURCE
                                          C::FROM :FILE
                                          C::NAME "/tmp_mnt/net/puma/d2/my/w-li\sp/match/areacodes.lisp"
                                          C::COMMENT NIL
                                          C::CREATED 2910217988
                                          C::COMPILED 2910255377
                                          ...)
                                     ...)
(DEBUG::DEBUG-LOOP)
("DEFUN DEBUG-LOOP" #<unavailable-arg> #<unavailable-arg>)[:EXTERNAL]
(DEBUG:INTERNAL-DEBUG)
(INVOKE-DEBUGGER #<TYPE-ERROR {B3684AD}>)
(ERROR TYPE-ERROR :FUNCTION-NAME EXTRACT-PHONE-AREACODE :DATUM ...)
("DEFERR OBJECT-NOT-TYPE-ERROR" EXTRACT-PHONE-AREACODE #.(INT-SAP #x00E00430)
 #<Alien (* #) at #xF7FFE610> (524 556))
("DEFERR OBJECT-NOT-TYPE-ERROR" #<unavailable-arg> #<unavailable-arg>
 #<unavailable-arg> #<unavailable-arg>)
(KERNEL::INTERNAL-ERROR #.(INT-SAP #xF7FFE610) #<unavailable-arg>)
("Foreign function call land")
... more frames from my program.

Sometimes I can fix this by making the function there the first error
occurs interpreted.

I did not report this earlier because I thougt I had destroyed some
memory with my very patched alien code ...
With the new aliens I may still do this but it is much less likely.

David