[Openmcl-devel] Problems with openMCL slime and Aquamacs (Mac OS X)

Philippe Sismondi psismondi at arqux.com
Fri Oct 23 21:10:04 UTC 2009


Further to my last post, and just for fun here is a complete backtrace  
of a failure that resulted in an invalid memory access:

========

Fault during read of memory address #x3
    [Condition of type CCL::INVALID-MEMORY-ACCESS]

Restarts:
  0: [RETRY-LOAD] Retry loading #P"/Library/Application Support/ 
Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp"
  1: [SKIP-LOAD] Skip loading #P"/Library/Application Support/Aquamacs  
Emacs/SLIME/contrib/swank-asdf.lisp"
  2: [LOAD-OTHER] Load other file instead of #P"/Library/Application  
Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp"
  3: [ABORT] Return to SLIME's top level.
  4: [ABORT-BREAK] Reset this thread
  5: [ABORT] Kill this thread

Backtrace:
   0: ((:INTERNAL CCL::1WAY CCL::TYPE-INTERSECTION2) #<NAMED-CTYPE T> 0)
   1: (CCL::TYPE-INTERSECTION2 #<TYPE-CLASS CCL::NAMED #x3000401AB69D>  
0)
   2: (CCL::SIMPLIFY-INTERSECTIONS (#<NAMED-CTYPE T> 0))
   3: (CCL::%TYPE-INTERSECTION (#<NAMED-CTYPE T> 0))
   4: (CCL::NX1-TYPE-INTERSECT #:LOOP-LIST-15 T LIST NIL)
   5: (CCL::NX1-TYPED-VAR-INITFORM #S(CCL::PENDING- 
DECLARATIONS :VDECLS ((#1=#:LOOP-LIST-15 TYPE . LIST)) :FDECLS NIL ..)
   6: (CCL::NX1-LET (LET ((SWANK::DIR NIL) (#1=#:LOOP-LIST-15  
(SWANK::ASDF-CENTRAL-REGISTRY))) ..))
   7: (CCL::NX1-COMBINATION (LET ((SWANK::DIR NIL) (#1=#:LOOP-LIST-15  
(SWANK::ASDF-CENTRAL-REGISTRY))) ..))
   8: (CCL::NX1-TRANSFORMED-FORM (LET ((SWANK::DIR NIL) (#1=#:LOOP- 
LIST-15 (SWANK::ASDF-CENTRAL-REGISTRY))) ..))
   9: (CCL::NX1-TYPED-FORM (LET ((SWANK::DIR NIL) (#1=#:LOOP-LIST-15  
(SWANK::ASDF-CENTRAL-REGISTRY))) ..))
  10: (CCL::NX1-FORM (LET ((SWANK::DIR NIL) (#1=#:LOOP-LIST-15  
(SWANK::ASDF-CENTRAL-REGISTRY))) ..))
  11: (CCL::NX1-BLOCK (BLOCK NIL ..)
  12: (CCL::NX1-COMBINATION (BLOCK NIL ..)
  13: (CCL::NX1-TRANSFORMED-FORM (BLOCK NIL ..)
  14: (CCL::NX1-TYPED-FORM (BLOCK NIL ..)
  15: (CCL::NX1-FORM (BLOCK NIL ..)
  16: (CCL::NX1-ARGLIST ((BLOCK NIL (LET (# #) (DECLARE #) (LET #  
#))) :TEST #'STRING=) 3)
  17: (CCL::NX1-CALL-FORM DELETE-DUPLICATES NIL ((BLOCK NIL (LET (# #)  
(DECLARE #) (LET # #))) :TEST #'STRING=) NIL #<CCL::LEXICAL- 
ENVIRONMENT #x30004122FF7D>)
  18: (CCL::NX1-CALL DELETE-DUPLICATES ((BLOCK NIL (LET (# #) (DECLARE  
#) (LET # #))) :TEST #'STRING=) NIL NIL NIL)
  19: (CCL::NX1-TYPED-CALL DELETE-DUPLICATES ((BLOCK NIL (LET (# #)  
(DECLARE #) (LET # #))) :TEST #'STRING=))
  20: (CCL::NX1-COMBINATION (DELETE-DUPLICATES (BLOCK NIL (LET (# #)  
(DECLARE #) (LET # #))) :TEST #'STRING=) #<CCL::LEXICAL-ENVIRONMENT  
#x30004122FF7D>)
       Locals:
         CCL::ENV = #<CCL::LEXICAL-ENVIRONMENT #x30004122FF7D>
         #:ARGS2869 = #<CCL::DESTRUCTURE-STATE #x269BCBD>
         #:REST2870 = ((BLOCK NIL (LET (# #) (DECLARE #) (LET #  
#))) :TEST #'STRING=)
         CCL::*NX-SFNAME* = LET*
         SPECIAL = NIL
  21: (CCL::NX1-TRANSFORMED-FORM (DELETE-DUPLICATES (BLOCK NIL (LET (#  
#) (DECLARE #) (LET # #))) :TEST #'STRING=) #<CCL::LEXICAL-ENVIRONMENT  
#x30004122FF7D>)
  22: (CCL::NX1-TYPED-FORM (DELETE-DUPLICATES (BLOCK NIL (LET (# #)  
(DECLARE #) (LET # #))) :TEST #'STRING=) #<CCL::LEXICAL-ENVIRONMENT  
#x30004122FF7D>)
  23: (CCL::NX1-TYPED-VAR-INITFORM #S(CCL::PENDING- 
DECLARATIONS :VDECLS NIL :FDECLS NIL :MDECLS ...) #:G24 (DELETE- 
DUPLICATES ..))
  24: (CCL::NX1-LET* (LET* ((#:G24 (DELETE-DUPLICATES # :TEST  
#'STRING=)) #:G20) ..)
  25: (CCL::NX1-COMBINATION (LET* ((#:G24 (DELETE-DUPLICATES # :TEST  
#'STRING=)) #:G20) ..)
  26: (CCL::NX1-TRANSFORMED-FORM (LET* ((#:G24 (DELETE-DUPLICATES  
# :TEST #'STRING=)) #:G20) ..)
  27: (CCL::NX1-TYPED-FORM (LET* ((#:G24 (DELETE-DUPLICATES # :TEST  
#'STRING=)) #:G20) ..)
  28: (CCL::NX1-FORM (LET* ((#:G24 (DELETE-DUPLICATES # :TEST  
#'STRING=)) #:G20) ..)
  29: (CCL::NX1-BLOCK (BLOCK NIL ..)
  30: (CCL::NX1-COMBINATION (BLOCK NIL ..)
  31: (CCL::NX1-TRANSFORMED-FORM (BLOCK NIL ..)
  32: (CCL::NX1-TYPED-FORM (DOLIST (#:G20 (DELETE-DUPLICATES (BLOCK  
NIL #) :TEST #'STRING=) (CDR #:G19)) (SETQ #:G18 (SETF (CDR #:G18)  
(LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x30004123086D>)
  33: (CCL::NX1-FORM (DOLIST (#:G20 (DELETE-DUPLICATES (BLOCK NIL  
#) :TEST #'STRING=) (CDR #:G19)) (SETQ #:G18 (SETF (CDR #:G18) (LIST  
#)))) #<CCL::LEXICAL-ENVIRONMENT #x30004123086D>)
  34: (CCL::NX1-ENV-BODY ((DOLIST (#:G20 (DELETE-DUPLICATES # :TEST  
#'STRING=) (CDR #:G19)) (SETQ #:G18 (SETF # #)))) #<CCL::LEXICAL- 
ENVIRONMENT #x30004123158D>)
  35: (CCL::NX1-LET* (LET* ((#:G18 (CONS NIL NIL)) (#:G19 #:G18)  
(#:G21 #'PATHNAME-NAME)) ..))
  36: (CCL::NX1-COMBINATION (LET* ((#:G18 (CONS NIL NIL)) (#:G19  
#:G18) (#:G21 #'PATHNAME-NAME)) ..))
  37: (CCL::NX1-TRANSFORMED-FORM (LET* ((#:G18 (CONS NIL NIL)) (#:G19  
#:G18) (#:G21 #'PATHNAME-NAME)) ..))
  38: (CCL::NX1-TYPED-FORM (MAPCAR #'PATHNAME-NAME ..)
  39: (CCL::NX1-FORM (MAPCAR #'PATHNAME-NAME ..)
  40: (CCL::NX1-BLOCK (BLOCK SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST  
#'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000412315FD>)
  41: (CCL::NX1-COMBINATION (BLOCK SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST  
#'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000412315FD>)
  42: (CCL::NX1-TRANSFORMED-FORM (BLOCK SWANK::LIST-ALL-SYSTEMS-IN- 
CENTRAL-REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP  
# ) :TEST #'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000412315FD>)
  43: (CCL::NX1-TYPED-FORM (BLOCK SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST  
#'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000412315FD>)
  44: (CCL::NX1-FORM (BLOCK SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST  
#'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000412315FD>)
  45: (CCL::NX1-ENV-BODY ((BLOCK SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES # :TEST  
#'STRING=)))) #<CCL::LEXICAL-ENVIRONMENT #x3000412316AD>)
  46: (CCL::NX1-LAMBDA NIL ((BLOCK SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY ..)))))
  47: (CCL::NX1-COMPILE-LAMBDA SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (LAMBDA NIL ..)
  48: (CCL::COMPILE-NAMED-FUNCTION (LAMBDA NIL ..)
  49: (CCL::CHEAP-EVAL-FUNCTION SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (LAMBDA NIL ..)
  50: (CCL::CHEAP-EVAL-IN-ENVIRONMENT (CCL::%DEFUN (NFUNCTION  
SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (LAMBDA NIL (DECLARE #)  
(BLOCK SWANK::LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY #))) ..)
  51: ((:INTERNAL CCL::PROGN-IN-ENV ..))
  52: ((:INTERNAL CCL::PROGN-IN-ENV ..))
  53: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM- 
STREAM))
  54: (CCL::CALL-WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM)  
#x269C26F> :OVERRIDE NIL)
  55: (CCL::LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/ 
Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank- 
asdf.lisp"/15 ISO-8859-1) #x3000411282BD> NIL)
  56: (CCL::%LOAD #P"/Library/Application Support/Aquamacs Emacs/SLIME/ 
contrib/swank-asdf.lisp" NIL NIL :ERROR :DEFAULT)
  57: (LOAD #P"/Library/Application Support/Aquamacs Emacs/SLIME/ 
contrib/swank-asdf.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT- 
EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)
  58: (REQUIRE :SWANK-ASDF #P"/Library/Application Support/Aquamacs  
Emacs/SLIME/contrib/swank-asdf.lisp")
  59: (SWANK:SWANK-REQUIRE :SWANK-ASDF NIL)
  60: (CCL::CALL-CHECK-REGS SWANK:SWANK-REQUIRE :SWANK-ASDF)
  61: (SWANK::EVAL-FOR-EMACS (SWANK:SWANK-REQUIRE :SWANK-ASDF) "COMMON- 
LISP-USER" 3)
  62: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD))
  63: (#<Anonymous Function #x3000410119BF> #<Compiled-function  
SWANK:SWANK-DEBUGGER-HOOK #x3000410C8FCF> #<Compiled-function  
(:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global)  #x30004108C42F>)
  64: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::CALL-WITH-CONNECTION) #x300041128DBF>)
  65: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x3000411061BD>  
#<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non- 
Global)  #x30004108C42F>)
  66: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::SPAWN-WORKER-THREAD) #x300041128DFF>)
  67: (#<Anonymous Function #x300041020C0F>)
  68: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS worker(7) [Active]  
#x30004112428D> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS- 
RUN-FUNCTION) #x3000411241FF>))
  69: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS worker(7)  
[Active] #x30004112428D> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL:: 
%PROCESS-RUN-FUNCTION) #x3000411241FF>))
  70: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))




More information about the Openmcl-devel mailing list