Custom Query (1030 matches)
Results (406 - 408 of 1030)
| Ticket | Resolution | Summary | Owner | Reporter |
|---|---|---|---|---|
| #571 | fixed | Win32 CCL invalid memory access in Slime mode | ||
| Description |
M-x "slime", latest version. CCL Win32 versions 1.3 and 1.4-dev (latest) manifested the problem. I repeated it on 2 single-CPU win32 machines. Start win32 slime, and run (loop for i from 1 do (progn nil)) It fails within a few minutes. Failure always involves "invalid memory access"; but doesn't alwas provide a good stack. Stack examples from when they do (a 1.3 at the bottom): 1.4 dev Fault during read of memory address #x8
[Condition of type CCL::INVALID-MEMORY-ACCESS]
Restarts:
0: [RETRY] Retry SLIME REPL evaluation request.
1: [ABORT] Return to SLIME's top level.
2: [ABORT-BREAK] Reset this thread
3: [ABORT] Kill this thread
Backtrace:
0: (CCL::%ADD-WITH-CARRY)
1: (CCL::ADD-BIGNUM-AND-FIXNUM 539282969 1)
2: (#<Anonymous Function #x8EB1856>)
--more--
value #<Unprintable CCL::IMMEDIATE : #x23B023B> is not of the expected type MACPTR.
[Condition of type TYPE-ERROR]
Restarts:
0: [ABORT] Return to sldb level 9.
1: [ABORT] Return to sldb level 8.
2: [ABORT] Return to sldb level 7.
3: [ABORT] Return to sldb level 6.
4: [ABORT] Return to sldb level 5.
5: [ABORT] Return to sldb level 4.
--more--
Backtrace:
0: ((:INTERNAL CCL::%XERR-DISP))
1: (CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x256DFC6>)
2: (CCL::%XERR-DISP 9361102)
3: (CCL::%PASCAL-FUNCTIONS% 2 9361102)
4: (CCL::%XERR-DISP 9361806)
5: (CCL::%PASCAL-FUNCTIONS% 2 9361806)
6: (CCL::XCMAIN NIL)
7: (CCL::%PASCAL-FUNCTIONS% 1 9362510)
8: ((:INTERNAL CONSTANTLY))
9: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8F03BF6> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8F03C26>))
10: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8F03BF6> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
11: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8F03BF6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
12: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
13: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
14: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
15: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8F03F96> "..")
16: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
17: (SWANK:BACKTRACE 0 20)
18: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
19: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
20: (SWANK::SLDB-LOOP 9)
21: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
22: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E8C45E>)
23: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E8C45E>)
24: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E8C436>)
25: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E8C45E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
26: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E8C45E> 9649119)
27: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E8C45E> NIL 9649119)
28: (CCL::XCMAIN 9363210)
29: (CCL::%PASCAL-FUNCTIONS% 1 9363210)
30: ((:INTERNAL CONSTANTLY))
31: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8AF86> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E8AFB6>))
32: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8AF86> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
33: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8AF86> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
34: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
35: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
36: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
37: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E8B326> "..")
38: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
39: (SWANK:BACKTRACE 0 20)
40: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
41: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
42: (SWANK::SLDB-LOOP 8)
43: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
44: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E8AF46>)
45: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E8AF46>)
46: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E8AF1E>)
47: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E8AF46> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
48: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E8AF46> 9649351)
49: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E8AF46> NIL 9649351)
50: (CCL::XCMAIN 9363910)
51: (CCL::%PASCAL-FUNCTIONS% 1 9363910)
52: ((:INTERNAL CONSTANTLY))
53: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E89AD6> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E89B06>))
54: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E89AD6> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
55: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E89AD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
56: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
57: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
58: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
59: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E89E76> "..")
60: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
61: (SWANK:BACKTRACE 0 20)
62: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
63: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
64: (SWANK::SLDB-LOOP 7)
65: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
66: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E89A96>)
67: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E89A96>)
68: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E89A6E>)
69: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E89A96> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
70: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E89A96> 9649583)
71: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E89A96> NIL 9649583)
72: (CCL::XCMAIN 9364610)
73: (CCL::%PASCAL-FUNCTIONS% 1 9364610)
74: ((:INTERNAL CONSTANTLY))
75: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E876D6> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E87706>))
76: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E876D6> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
77: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E876D6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
78: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
79: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
80: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
81: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E87A76> "..")
82: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
83: (SWANK:BACKTRACE 0 20)
84: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
85: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
86: (SWANK::SLDB-LOOP 6)
87: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
88: (SWANK::DEBUG-IN-EMACS #<TYPE-ERROR #x8E88E4E>)
89: (SWANK:INVOKE-SLIME-DEBUGGER #<TYPE-ERROR #x8E88E4E>)
90: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E88A8E>)
91: (SWANK:SWANK-DEBUGGER-HOOK #<TYPE-ERROR #x8E88E4E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
92: (CCL::BREAK-LOOP-HANDLE-ERROR #<TYPE-ERROR #x8E88E4E> 9649831)
93: (CCL::%ERROR #<TYPE-ERROR #x8E88E4E> NIL 9649831)
94: ((:INTERNAL CCL::%XERR-DISP))
95: (CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x256EC5E>)
Locals:
CCL::THUNK = #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x256EC5E>
COUNT = 0
CCL::*ERROR-REENTRY-COUNT* = 0
96: (CCL::%XERR-DISP 9365310)
97: (CCL::%PASCAL-FUNCTIONS% 2 9365310)
98: (CCL::%XERR-DISP 9366014)
99: (CCL::%PASCAL-FUNCTIONS% 2 9366014)
100: (CCL::%XERR-DISP NIL)
101: (CCL::%PASCAL-FUNCTIONS% 2 9366718)
102: (CCL::XCMAIN NIL)
103: (CCL::%PASCAL-FUNCTIONS% 1 9367422)
104: ((:INTERNAL CONSTANTLY))
105: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8670E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E8673E>))
106: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8670E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
107: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8670E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
108: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
109: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
110: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
111: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E86AAE> "..")
112: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
113: (SWANK:BACKTRACE 0 20)
114: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
115: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
116: (SWANK::SLDB-LOOP 5)
117: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
118: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E87696>)
119: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E87696>)
120: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E8766E>)
121: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E87696> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
122: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E87696> 9650153)
123: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E87696> NIL 9650153)
124: (CCL::XCMAIN 9368122)
125: (CCL::%PASCAL-FUNCTIONS% 1 9368122)
126: ((:INTERNAL CONSTANTLY))
127: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E857DE> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E8580E>))
128: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E857DE> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
129: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E857DE> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
130: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
131: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
132: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
133: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E85B7E> "..")
134: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
135: (SWANK:BACKTRACE 0 20)
Locals:
SWANK::START = 0
SWANK::END = 20
SWANK::FRAME = (:FRAME 9650395 NIL ..))
#:LOOP-LIST-8364 = ((:FRAME 9650409 NIL ..))))
SWANK::I = 1
#:LOOP-LIST-HEAD-8365 = (NIL (0 "((:INTERNAL CONSTANTLY))"))
#:LOOP-LIST-TAIL-8366 = ((0 "((:INTERNAL CONSTANTLY))"))
136: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
137: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
138: (SWANK::SLDB-LOOP 4)
139: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
140: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E866CE>)
141: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E866CE>)
142: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E866A6>)
143: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E866CE> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
144: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E866CE> 9650385)
145: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E866CE> NIL 9650385)
146: (CCL::XCMAIN 9368822)
147: (CCL::%PASCAL-FUNCTIONS% 1 9368822)
148: ((:INTERNAL CONSTANTLY))
149: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E84946> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E84976>))
150: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E84946> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
151: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E84946> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
152: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
153: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
154: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
155: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E84CE6> "..")
156: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
157: (SWANK:BACKTRACE 0 20)
158: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
159: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
160: (SWANK::SLDB-LOOP 3)
161: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
162: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E8579E>)
163: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E8579E>)
164: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E85776>)
165: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E8579E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
166: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E8579E> 9650617)
167: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E8579E> NIL 9650617)
168: (CCL::XCMAIN 9369522)
169: (CCL::%PASCAL-FUNCTIONS% 1 9369522)
170: ((:INTERNAL CONSTANTLY))
171: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8417E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E841AE>))
172: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8417E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
173: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8417E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
174: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
175: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
Locals:
CLASS = #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM>
CCL::INITARGS = (:OUTPUT-FN ..)))
176: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
177: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E8451E> "..")
178: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
179: (SWANK:BACKTRACE 0 20)
180: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
181: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
182: (SWANK::SLDB-LOOP 2)
183: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
184: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E834A6>)
185: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E834A6>)
186: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E83436>)
187: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E834A6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
188: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E834A6> 9650849)
189: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E834A6> NIL 9650849)
190: (CCL::XCMAIN 9370222)
191: (CCL::%PASCAL-FUNCTIONS% 1 9370222)
192: ((:INTERNAL CONSTANTLY))
193: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8263E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E8266E>))
194: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8263E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
195: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8263E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
196: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
197: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
198: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8B48FD6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
199: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E829DE> "..")
200: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
201: (SWANK:BACKTRACE 0 20)
202: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
203: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
204: (SWANK::SLDB-LOOP 1)
205: (#<Anonymous Function #x8B32CAE> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8D1F6F6>)
206: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E81FC6>)
207: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:INVOKE-SLIME-DEBUGGER) #x8E81E2E>)
208: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #1=#<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E734BE>) (*STANDARD-INPUT* . #<SWANK-BACKEND::SLIME-INPUT-STREAM #x8E736F6>) (*TRACE-OUTPUT* . #1#) ..)))
209: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x8E61526> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:INVOKE-SLIME-DEBUGGER) #x8E81E2E>)
210: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E81FC6>)
211: (#<Anonymous Function #x8B32AD6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E81E56>)
212: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E81FC6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8D205F6>)
213: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E81FC6> 9651127)
214: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E81FC6> NIL 9651127)
215: (CCL::XCMAIN 9370922)
216: (CCL::%PASCAL-FUNCTIONS% 1 9370922)
217: (#<Anonymous Function #x8B38F96>)
218: (#<STANDARD-METHOD CCL::STREAM-FINISH-OUTPUT (SWANK-BACKEND::SLIME-OUTPUT-STREAM)> NIL)
1.3 Example:
Fault during read of memory address #x8
[Condition of type CCL::INVALID-MEMORY-ACCESS]
Restarts:
0: [RETRY] Retry SLIME REPL evaluation request.
1: [ABORT] Return to SLIME's top level.
2: [ABORT-BREAK] Reset this thread
3: [ABORT] Kill this thread
Backtrace:
0: (CCL::%ADD-WITH-CARRY)
1: (CCL::ADD-BIGNUM-AND-FIXNUM 595166159 1)
2: (#<Anonymous Function #x8B3A886>)
--more--
Fault during read of memory address #x10
[Condition of type CCL::INVALID-MEMORY-ACCESS]
Restarts:
0: [ABORT] Return to sldb level 167.
1: [ABORT] Return to sldb level 166.
2: [ABORT] Return to sldb level 165.
3: [ABORT] Return to sldb level 164.
4: [ABORT] Return to sldb level 163.
5: [ABORT] Return to sldb level 162.
--more--
Backtrace:
0: ((:INTERNAL CONSTANTLY))
1: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EEF33E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8EEF36E>))
2: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EEF33E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
3: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EEF33E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
4: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
5: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
6: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
7: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8EEF6DE> "..")
8: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
9: (SWANK:BACKTRACE 0 20)
10: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
11: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
12: (SWANK::SLDB-LOOP 167)
13: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
14: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8EED946>)
15: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8EED946>)
16: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8EED91E>)
17: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8EED946> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
18: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8EED946> 9367307)
19: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8EED946> NIL 9367307)
20: (CCL::XCMAIN 9008962)
21: (CCL::%PASCAL-FUNCTIONS% 1 9008962)
22: ((:INTERNAL CONSTANTLY))
23: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EDE92E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8EDE95E>))
24: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EDE92E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
25: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EDE92E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
26: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
27: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
28: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
29: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8EDECCE> "..")
30: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
31: (SWANK:BACKTRACE 0 20)
32: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
33: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
34: (SWANK::SLDB-LOOP 166)
35: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
36: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8EDD006>)
37: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8EDD006>)
38: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8EDCFDE>)
39: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8EDD006> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
40: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8EDD006> 9367536)
41: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8EDD006> NIL 9367536)
42: (CCL::XCMAIN 9009662)
43: (CCL::%PASCAL-FUNCTIONS% 1 9009662)
44: ((:INTERNAL CONSTANTLY))
45: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8ECE096> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8ECE0C6>))
46: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8ECE096> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
47: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8ECE096> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
48: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
49: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
50: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
51: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8ECE436> "..")
52: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
53: (SWANK:BACKTRACE 0 20)
54: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
55: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
56: (SWANK::SLDB-LOOP 165)
57: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
58: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8ECC43E>)
59: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8ECC43E>)
60: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8ECC416>)
61: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8ECC43E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
62: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8ECC43E> 9367765)
63: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8ECC43E> NIL 9367765)
64: (CCL::XCMAIN 9010362)
65: (CCL::%PASCAL-FUNCTIONS% 1 9010362)
66: ((:INTERNAL CONSTANTLY))
67: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EBD406> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8EBD436>))
68: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EBD406> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
69: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EBD406> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
70: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
71: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
72: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
73: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8EBD7A6> "..")
74: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
75: (SWANK:BACKTRACE 0 20)
76: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
77: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
78: (SWANK::SLDB-LOOP 164)
79: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
80: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8EBBA0E>)
81: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8EBBA0E>)
82: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8EBB9E6>)
83: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8EBBA0E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
84: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8EBBA0E> 9367994)
85: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8EBBA0E> NIL 9367994)
86: (CCL::XCMAIN 9011062)
87: (CCL::%PASCAL-FUNCTIONS% 1 9011062)
88: ((:INTERNAL CONSTANTLY))
89: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EACBE6> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8EACC16>))
90: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EACBE6> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
91: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8EACBE6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
92: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
93: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
94: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
95: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8EACF86> "..")
96: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
97: (SWANK:BACKTRACE 0 20)
98: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
99: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
100: (SWANK::SLDB-LOOP 163)
101: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
102: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8EAB2BE>)
103: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8EAB2BE>)
104: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8EAB296>)
105: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8EAB2BE> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
106: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8EAB2BE> 9368223)
107: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8EAB2BE> NIL 9368223)
108: (CCL::XCMAIN 9011762)
109: (CCL::%PASCAL-FUNCTIONS% 1 9011762)
110: ((:INTERNAL CONSTANTLY))
111: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E9C52E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E9C55E>))
112: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E9C52E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
113: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E9C52E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
114: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
115: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
116: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
117: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E9C8CE> "..")
118: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
119: (SWANK:BACKTRACE 0 20)
120: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
121: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
122: (SWANK::SLDB-LOOP 162)
123: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
124: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E9A8D6>)
125: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E9A8D6>)
126: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E9A8AE>)
127: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E9A8D6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
128: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E9A8D6> 9368452)
129: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E9A8D6> NIL 9368452)
130: (CCL::XCMAIN 9012462)
131: (CCL::%PASCAL-FUNCTIONS% 1 9012462)
132: ((:INTERNAL CONSTANTLY))
133: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8BC0E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E8BC3E>))
134: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8BC0E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
135: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E8BC0E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
136: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
137: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
138: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
139: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E8BFAE> "..")
140: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
141: (SWANK:BACKTRACE 0 20)
142: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
143: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
144: (SWANK::SLDB-LOOP 161)
145: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
146: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E7253E>)
147: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E7253E>)
148: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E72516>)
149: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E7253E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
150: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E7253E> 9368681)
151: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E7253E> NIL 9368681)
152: (CCL::XCMAIN 9013162)
153: (CCL::%PASCAL-FUNCTIONS% 1 9013162)
154: ((:INTERNAL CONSTANTLY))
155: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E6B60E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E6B63E>))
156: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E6B60E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
157: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E6B60E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
158: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
159: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
160: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
161: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E6B9AE> "..")
162: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
163: (SWANK:BACKTRACE 0 20)
164: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
165: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
166: (SWANK::SLDB-LOOP 160)
167: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
168: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E69E4E>)
169: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E69E4E>)
170: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E69E26>)
171: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E69E4E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
172: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E69E4E> 9368910)
173: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E69E4E> NIL 9368910)
174: (CCL::XCMAIN 9013862)
175: (CCL::%PASCAL-FUNCTIONS% 1 9013862)
176: ((:INTERNAL CONSTANTLY))
177: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E62DC6> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E62DF6>))
178: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E62DC6> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
179: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E62DC6> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
180: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
181: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
182: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
183: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E63166> "..")
184: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
185: (SWANK:BACKTRACE 0 20)
186: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
187: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
188: (SWANK::SLDB-LOOP 159)
189: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
190: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E61966>)
191: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E61966>)
192: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E6193E>)
193: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E61966> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
194: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E61966> 9369139)
195: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E61966> NIL 9369139)
196: (CCL::XCMAIN 9014562)
197: (CCL::%PASCAL-FUNCTIONS% 1 9014562)
198: ((:INTERNAL CONSTANTLY))
199: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E5AB4E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E5AB7E>))
200: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E5AB4E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
201: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E5AB4E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
202: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
203: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
204: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
205: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E5AEEE> "..")
206: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
207: (SWANK:BACKTRACE 0 20)
208: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
209: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
210: (SWANK::SLDB-LOOP 158)
211: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
212: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E59426>)
213: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E59426>)
214: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E593FE>)
215: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E59426> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
216: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E59426> 9369368)
217: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E59426> NIL 9369368)
218: (CCL::XCMAIN 9015262)
219: (CCL::%PASCAL-FUNCTIONS% 1 9015262)
220: ((:INTERNAL CONSTANTLY))
221: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E526DE> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E5270E>))
222: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E526DE> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
223: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E526DE> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
224: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
225: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
226: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
227: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E52A7E> "..")
228: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
229: (SWANK:BACKTRACE 0 20)
230: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
231: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
232: (SWANK::SLDB-LOOP 157)
233: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
234: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E50FB6>)
235: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E50FB6>)
236: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E50F8E>)
237: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E50FB6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
238: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E50FB6> 9369597)
239: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E50FB6> NIL 9369597)
240: (CCL::XCMAIN 9015962)
241: (CCL::%PASCAL-FUNCTIONS% 1 9015962)
242: ((:INTERNAL CONSTANTLY))
243: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E4A30E> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E4A33E>))
244: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E4A30E> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
245: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E4A30E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
246: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
247: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
248: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
249: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E4A6AE> "..")
250: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
251: (SWANK:BACKTRACE 0 20)
252: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
253: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
254: (SWANK::SLDB-LOOP 156)
255: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
256: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E48BE6>)
257: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E48BE6>)
258: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E48BBE>)
259: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E48BE6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
260: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E48BE6> 9369826)
261: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E48BE6> NIL 9369826)
262: (CCL::XCMAIN 9016662)
263: (CCL::%PASCAL-FUNCTIONS% 1 9016662)
264: ((:INTERNAL CONSTANTLY))
265: (CCL::%SHARED-INITIALIZE #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E41FDE> T (:OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING) #x8E4200E>))
266: (#<CCL::STANDARD-KERNEL-METHOD SHARED-INITIALIZE (STANDARD-OBJECT T)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E41FDE> T :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
267: (#<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8E41FDE> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
268: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> (:OUTPUT-FN ..)
269: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS SWANK-BACKEND::SLIME-OUTPUT-STREAM> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..))
270: (CCL::%MAKE-INSTANCE #<CLASS-CELL for SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8A50D3E> :OUTPUT-FN #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::WRITE-OUTPUT ..)
271: (SWANK::CALL/TRUNCATED-OUTPUT-TO-STRING 200 #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FRAME-TO-STRING) #x8E4237E> "..")
272: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-READABLY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 6) (*PRINT-LINES* . 1) (*PRINT-RIGHT-MARGIN* . 200) ..))
273: (SWANK:BACKTRACE 0 20)
274: (SWANK:DEBUGGER-INFO-FOR-EMACS 0 20)
275: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) ..))))
276: (SWANK::SLDB-LOOP 155)
277: (#<Anonymous Function #x8A42466> #<Compiled-function (:INTERNAL SWANK::DEBUG-IN-EMACS) (Non-Global) #x8ADC7C6>)
278: (SWANK::DEBUG-IN-EMACS #<CCL::INVALID-MEMORY-ACCESS #x8E408B6>)
279: (SWANK:INVOKE-SLIME-DEBUGGER #<CCL::INVALID-MEMORY-ACCESS #x8E408B6>)
280: (#<Anonymous Function #x8A4222E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:SWANK-DEBUGGER-HOOK) #x8E4088E>)
281: (SWANK:SWANK-DEBUGGER-HOOK #<CCL::INVALID-MEMORY-ACCESS #x8E408B6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x8ADDA3E>)
282: (CCL::BREAK-LOOP-HANDLE-ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E408B6> 9370055)
283: (CCL::%ERROR #<CCL::INVALID-MEMORY-ACCESS #x8E408B6> NIL 9370055)
284: (CCL::XCMAIN 9017362)
285: (CCL::%PASCAL-FUNCTIONS% 1 9017362)
286: ((:INTERNAL CONSTANTLY))
--more--
|
|||
| #1225 | fixed | While disassembling a gf using objc: Can't use #<error printing ccl::immediate #x12> as a hash-table key | ||
| Description |
ui> (pprint (swank::macroexpand-all '(defgeneric call-with-focused-view (view function &optional font-view)
;; Note: be careful to return the FUNCTION results in all cases.
(:method ((view simple-view) function &optional (font-view view))
(labels ((call-it ()
(call-with-pen-state (lambda () (funcall function view))
(view-pen view)))
(call-it/trans ()
(let* ((window (view-window view))
(wtrans (window-affine-transform window))
(vtrans (make-affine-transform))
(origin (convert-coordinates #@(0 0) view window)))
[wtrans set]
[vtrans translateXBy:(cgfloat 0.0) yBy:(cgfloat (point-v (view-size (view-window view))))]
[vtrans scaleXBy:(cgfloat 1.0) yBy:(cgfloat -1.0)]
[vtrans translateXBy:(cgfloat (point-h origin)) yBy:(cgfloat (point-v origin))]
[vtrans concat]
[vtrans release]
;; (setf *trace-output* cl-user::*to*)
#+debug-views (format-trace 'call-with-focused-view (list (class-name (class-of view))
:origin (point-to-list origin)
:frame (rect-to-list (view-frame view))
:bounds (rect-to-list (view-bounds view)))
:ctm (get-ctm window))
(unwind-protect
(call-it)
[wtrans set]))))
(declare (inline call-it call-it/trans))
(if (eql *current-view* view)
(if (eql *current-font-view* font-view)
(let ((*current-view* view)
(*current-font-view* font-view)
(*current-font-codes* (copy-list *current-font-codes*)))
(call-it))
(unwind-protect
(let* ((*current-view* view)
(*current-font-view* font-view)
(*current-font-codes* (set-font *current-font-view*))) ; change font
(call-it))
(set-font *current-font-view*))) ; revert font
(with-view-handle (winh view)
(let ((unlock nil))
(unwind-protect
(let ((*current-view* view)
(*current-font-view* font-view)
(*current-font-codes* (copy-list *current-font-codes*)))
(when (setf unlock [winh lockFocusIfCanDraw])
(focus-view *current-view* *current-font-view*)
(apply (function set-current-font-codes) (set-font *current-font-view*))
(call-it/trans)))
[[NSGraphicsContext currentContext] flushGraphics]
(when unlock
(set-font *current-font-view*)
[winh unlockFocus])
(focus-view *current-view* *current-font-view*))))))))))
(progn (closer-mop::maybe-remove-initial-methods 'call-with-focused-view)
(progn (eval-when (:compile-toplevel)
(progn (eval-when #2=(:compile-toplevel)
(ccl::record-function-info
'call-with-focused-view
'#(134218244 nil nil (:methods))
#3=#<ccl::lexical-environment #x3020065FEB2D>))
(let ((#1=#:g50952
(ccl::%defgeneric 'call-with-focused-view
'#4=(view function &optional font-view)
'#5=(standard)
'common-lisp:standard-generic-function
'nil)))
(ccl::%set-defgeneric-methods #1#)
#1#)))
(eval-when (:load-toplevel :execute)
(progn (progn (eval-when #2#
(ccl::record-function-info
'call-with-focused-view
'#(134218244 nil nil (:methods))
#3#))
(let ((#6=#:g50953
(ccl::%defgeneric 'call-with-focused-view
'#4#
'#5#
'common-lisp:standard-generic-function
'nil)))
(ccl::%set-defgeneric-methods
#6#
(progn (eval-when (:compile-toplevel)
(ccl::record-function-info
'call-with-focused-view
'#(16900 nil nil (:methods ((nil) nil simple-view t)))
#3#))
(ccl:compiler-let ((ccl::*nx-method-warning-name*
'(call-with-focused-view (simple-view t))))
(let* ((#19=#:g50954
(ccl::ensure-method
'call-with-focused-view
(list 'simple-view t)
:function
(ccl:nfunction call-with-focused-view
lambda
(ccl::&method #8=#:next-method-context
. #18=(view
function
&optional
(font-view view)))
(declare (ignorable view))
(block call-with-focused-view
(flet
((call-next-method
(&rest #7=#:g50955)
(declare (dynamic-extent #7#))
(if
#7#
(apply
#'ccl::%call-next-method-with-args
#8#
#7#)
(ccl::%call-next-method #8#)))
(next-method-p
nil
(ccl::%next-method-p #8#)))
(declare
(inline
call-next-method
next-method-p))
(declare
(ftype
#'(&rest t)
call-with-focused-view))
(labels
((call-it
nil
(call-with-pen-state
(lambda
nil
(funcall function view))
(view-pen view)))
(call-it/trans
nil
(let*
((window (view-window view))
(wtrans
(window-affine-transform
window))
(vtrans (make-affine-transform))
(origin
(convert-coordinates
0
view
window)))
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(let*
((#9=#:g50956 wtrans))
(if
(let
((#10=#:g50959
(typep #9# 'ns:+ns-set)))
(if
#10#
#10#
(typep
#9#
'ns:ns-ordered-set)))
(progn
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep
#11="objc_msgSend")))
:address
#9#
:address
(ccl::%get-selector
#12=#S(ccl::objc-selector :name "set"
:%sel #<ns-number -120 (#x7FFF8D318807)>))
:address))
(if
t
(progn
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
#9#
:address
(ccl::%get-selector #12#)
:void))
nil)))))
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
vtrans
:address
(ccl::%get-selector
#13=#S(ccl::objc-selector :name "translateXBy:yBy:"
:%sel #<A Foreign Pointer #x7FFF8D3269F3>))
:double-float
(cgfloat 0.0)
:double-float
(cgfloat
(point-v
(view-size
(view-window view))))
:void)))
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
vtrans
:address
(ccl::%get-selector
#S(ccl::objc-selector :name "scaleXBy:yBy:"
:%sel #<A Foreign Pointer #x7FFF8D326A05>))
:double-float
(cgfloat 1.0)
:double-float
(cgfloat -1.0)
:void)))
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
vtrans
:address
(ccl::%get-selector #13#)
:double-float
(cgfloat (point-h origin))
:double-float
(cgfloat (point-v origin))
:void)))
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
vtrans
:address
(ccl::%get-selector
#S(ccl::objc-selector :name "concat"
:%sel #<A Foreign Pointer #x7FFF8D31B17A>))
:void)))
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
vtrans
:address
(ccl::%get-selector
#S(ccl::objc-selector :name "release"
:%sel #<A Foreign Pointer #x7FFF8D316666>))
:void)))
(unwind-protect
(call-it)
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(let*
((#14=#:g50966 wtrans))
(if
(let
((#15=#:g50969
(typep #14# 'ns:+ns-set)))
(if
#15#
#15#
(typep
#14#
'ns:ns-ordered-set)))
(progn
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
#14#
:address
(ccl::%get-selector #12#)
:address))
(if
t
(progn
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
#14#
:address
(ccl::%get-selector #12#)
:void))
nil)))))))))
(declare
(inline call-it call-it/trans))
(if
(eql *current-view* view)
(if
(eql *current-font-view* font-view)
(let
((*current-view* view)
(*current-font-view* font-view)
(*current-font-codes*
(copy-list
*current-font-codes*)))
(call-it))
(unwind-protect
(let*
((*current-view* view)
(*current-font-view* font-view)
(*current-font-codes*
(set-font
*current-font-view*)))
(call-it))
(set-font *current-font-view*)))
(let*
((#16=#:g50970 view)
(#17=#:g50971
(handle
(if
(typep #16# 'window)
#16#
(view-window #16#)))))
(if
#17#
(progn
(let
((winh
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
#17#
:address
(ccl::%get-selector
#S(ccl::objc-selector :name "contentView"
:%sel #<A Foreign Pointer #x7FFF8D31B1C5>))
:address)))))
(let
((unlock nil))
(unwind-protect
(let
((*current-view* view)
(*current-font-view*
font-view)
(*current-font-codes*
(copy-list
*current-font-codes*)))
(if
(setq
unlock
(progn
(let*
()
(declare
(dynamic-extent))
(declare
(type ccl:macptr))
(declare
(ccl::unsettable))
(ccl::coerce-from-bool
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep
#11#)))
:address
winh
:address
(ccl::%get-selector
#S(ccl::objc-selector :name "lockFocusIfCanDraw"
:%sel #<ns-date 2001-01-01 00:00:00 +0000 (#x7FFF8D330CFD)>))
:signed-byte)))))
(progn
(focus-view
*current-view*
*current-font-view*)
(apply
#'set-current-font-codes
(set-font
*current-font-view*))
(call-it/trans))))
(progn
(let*
()
(declare (dynamic-extent))
(declare (type ccl:macptr))
(declare (ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
(progn
(let*
()
(declare
(dynamic-extent))
(declare
(type ccl:macptr))
(declare
(ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
ns:ns-graphics-context
:address
(ccl::%get-selector
#S(ccl::objc-selector :name "currentContext"
:%sel #<A Foreign Pointer #x7FFF8D31B156>))
:address)))
:address
(ccl::%get-selector
#S(ccl::objc-selector :name "flushGraphics"
:%sel #<A Foreign Pointer #x7FFF8D3330C6>))
:void)))
(if
unlock
(progn
(set-font
*current-font-view*)
(progn
(let*
()
(declare (dynamic-extent))
(declare
(type ccl:macptr))
(declare
(ccl::unsettable))
(ccl:%ff-call
(ccl:%reference-external-entry-point
(load-time-value
(ccl::load-eep #11#)))
:address
winh
:address
(ccl::%get-selector
#S(ccl::objc-selector :name "unlockFocus"
:%sel #<A Foreign Pointer #x7FFF8D31886B>))
:void)))))
(focus-view
*current-view*
*current-font-view*))))))))))))
:qualifiers
'nil
:lambda-list
'#18#)))
(ccl:record-source-file #19# 'method)
#19#))))
#6#)))))
(let ((#20=#:gf (fdefinition 'call-with-focused-view))) nil #20#))
; No value
ui> (disassemble (function call-with-focused-view))
L0
(leaq (@ (:^ L0) (% rip)) (% fn)) ; [0]
(movq (@ (% rsp)) (% temp2)) ; [7]
(movl (% nargs) (% imm0.l)) ; [11]
(subq ($ 24) (% imm0)) ; [13]
(jle L34) ; [17]
(movq (% rbp) (@ 8 (% rsp) (% imm0))) ; [19]
(leaq (@ 8 (% rsp) (% imm0)) (% rbp)) ; [24]
(popq (@ 8 (% rbp))) ; [29]
(jmp L38) ; [32]
L34
(pushq (% rbp)) ; [34]
(movq (% rsp) (% rbp)) ; [35]
L38
(testl (% nargs) (% nargs)) ; [38]
(je L53) ; [40]
(cmpl ($ 16) (% nargs)) ; [42]
(je L51) ; [45]
(jb L52) ; [47]
(pushq (% arg_x)) ; [49]
L51
(pushq (% arg_y)) ; [51]
L52
(pushq (% arg_z)) ; [52]
L53
(pushq (% imm2)) ; [53]
(movq (% rsp) (% arg_z)) ; [54]
(movl (@ #x12FB8) (% imm0.l)) ; [57]
(cmpq (% temp2) (% imm0)) ; [64]
(je L79) ; [67]
(movl (@ #x12F08) (% temp2.l)) ; [69]
(jmp L89) ; [77]
L79
(pushq (@ #x12F10)) ; [79]
(movq (% imm0) (% temp2)) ; [86]
L89
(pushq (% temp2)) ; [89]
(movq (@
> Debug: Can't use #<error printing ccl::immediate #x12> as a hash-table key
> While executing: (:internal swank::invoke-default-debugger), in process repl-thread(14).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.
1 > :q
; Evaluation aborted on #<simple-error #x3020064EC22D>.
ui>
cl-user> (cl-user::print-bug-report-info)
LISP-IMPLEMENTATION-TYPE "Clozure Common Lisp"
LISP-IMPLEMENTATION-VERSION "Version 1.9 (Darwinx8664)"
SOFTWARE-TYPE "Darwin"
SOFTWARE-VERSION "13.3.0"
MACHINE-INSTANCE "larissa.local"
MACHINE-TYPE "x86_64"
MACHINE-VERSION "MacBookAir6,2"
*FEATURES* (:bordeaux-threads :thread-support :objc-support :cocoa-10.9 :cocoa-10.8 :cocoa-10.7 :cocoa-10.6 :cocoa-10.5 :cocoa-10.4 :cocoa :hemlock :apple-objc-2.0 :apple-objc patchwork.builder::use-cl-midi cffi-features:flat-namespace cffi-features:x86-64 cffi-features:unix cffi-features:darwin :cffi cffi-sys::flat-namespace :bsd :little-endian :swank :com.informatimago.pjb :split-sequence :closer-mop :com.informatimago.common-lisp.lisp.cl-stepper :newline-is-linefeed :has-ascii-code :has-vt :has-bell :has-escape :has-linefeed :has-return :has-backspace :has-tab :has-page :has-rubout :quicklisp :asdf3 :asdf2 :asdf :os-unix :asdf-unicode :primary-classes :common-lisp :openmcl :ccl :ccl-1.2 :ccl-1.3 :ccl-1.4 :ccl-1.5 :ccl-1.6 :ccl-1.7 :ccl-1.8 :ccl-1.9 :clozure :clozure-common-lisp :ansi-cl :unix :openmcl-unicode-strings :openmcl-native-threads :openmcl-partial-mop :mcl-common-mop-subset :openmcl-mop-2 :openmcl-private-hash-tables :x86-64 :x86_64 :x86-target :x86-host :x8664-target :x8664-host :darwin-host :darwin-target :darwinx86-target :darwinx8664-target :darwinx8664-host :64-bit-target :64-bit-host :darwin :little-endian-target :little-endian-host)
; No value
cl-user>
|
|||
| #1418 | duplicate | When exiting via (quit) on the command line, the command line is not restored | ||
| Description |
When I launch wx86cl64 (version 1.11-r16635 (WindowsX8664)) I get the usual CL prompt, but when I (quit) the command line is not restored to a prompt (i.e. >). I can't input any other keyboard commands after exiting, it appears that the prompt is frozen. |
|||
Note:
See TracQuery
for help on using queries.
