[Cl-perec-devel] Re: cl-def?

Tue Aug 14 05:04:37 UTC 2007

I tried loading cl-perec in SBCL. v1.0  (asdf:oos 'asdf:load-op
:cl-perec) barfs while loading the computed-class package. The REPL
output buffer freezes and the debugger is started in *inferior-lisp*.

There are multiple backtraces and I'm posting the first one completely
(if it helps):

NIL
* Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.
0: (BACKTRACE 536870911 #<SYNONYM-STREAM :SYMBOL SB-SYS:*TTY* {B83F021}>)
1: ((LAMBDA NIL))
2: ((LAMBDA NIL))
3: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {B83F13D}>)
4: (SB-IMPL::ERROR-ERROR)
5: (SB-IMPL::INFINITE-ERROR-PROTECTOR)
6: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB648175C)
#<unavailable argument>)
7: ("foreign function: #x8063F11")
8: ("foreign function: #x805D25C")
9: ("foreign function: #x8054FB6")
10: ("foreign function: #x805D682")
11: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-RECURSIVE-LOCK-HELD
(T T)) #<unavailable argument> #<unavailable argument>
#S(SB-THREAD:MUTEX :NAME "buffer write lock" :VALUE NIL) #<CLOSURE
(LAMBDA NIL) {B83EB8D}>)
12: ((SB-PCL::FAST-METHOD STREAM-WRITE-CHAR
(SWANK-BACKEND::SLIME-OUTPUT-STREAM T)) (#(3 2 4 6) . #())
#<unavailable argument> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM
{A82D041}> #\H)
13: ((SB-PCL::FAST-METHOD STREAM-WRITE-STRING
(FUNDAMENTAL-CHARACTER-OUTPUT-STREAM "#<...>" . "#<...>")) #<unused
argument> #<unused argument> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM
{A82D041}> "Help! " 0 6)
14: (WRITE-STRING "Help! " #<SWANK-BACKEND::SLIME-OUTPUT-STREAM
{A82D041}> :START 0 :END 6)
15: (SB-IMPL::%WRITE-STRING "Help! " #<TWO-WAY-STREAM :INPUT-STREAM
#<SWANK-BACKEND::SLIME-INPUT-STREAM {B478559}> :OUTPUT-STREAM
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>> 0 6)
16: (WRITE-STRING "Help! " #<TWO-WAY-STREAM :INPUT-STREAM
#<SWANK-BACKEND::SLIME-INPUT-STREAM {B478559}> :OUTPUT-STREAM
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>> :START 0 :END NIL)
17: (PRINC "Help! " #<TWO-WAY-STREAM :INPUT-STREAM
#<SWANK-BACKEND::SLIME-INPUT-STREAM {B478559}> :OUTPUT-STREAM
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>>)
18: ((LAMBDA NIL))
19: ((LAMBDA NIL))
20: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {B83EB75}>)
21: (SB-IMPL::ERROR-ERROR)
22: (SB-IMPL::INFINITE-ERROR-PROTECTOR)
23: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB6481F3C)
#<unavailable argument>)
24: ("foreign function: #x8063F11")
25: ("foreign function: #x805D25C")
26: ("foreign function: #x8054FB6")
27: ("foreign function: #x805D682")
28: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-RECURSIVE-LOCK-HELD
(T T)) #<unavailable argument> #<unavailable argument>
#S(SB-THREAD:MUTEX :NAME "buffer write lock" :VALUE NIL) #<CLOSURE
(LAMBDA NIL) {B83EB35}>)
29: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT
(SWANK-BACKEND::SLIME-OUTPUT-STREAM)) (#(5 6) . #()) #<unavailable
argument> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
30: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
31: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM
#<SWANK-BACKEND::SLIME-INPUT-STREAM {B478559}> :OUTPUT-STREAM
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>>)
32: (SB-INT:FLUSH-STANDARD-OUTPUT-STREAMS)
33: (INVOKE-DEBUGGER #<TYPE-ERROR {B83EAB9}>)
34: (ERROR TYPE-ERROR)
35: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument>
#.(SB-SYS:INT-SAP #XB648295C) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP
#XB648262C :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (398))
36: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB648262C)
#<unavailable argument>)
37: ("foreign function: #x8063F11")
38: ("foreign function: #x805D25C")
39: ("foreign function: #x8054FB6")
40: ("foreign function: #x805D682")
41: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-RECURSIVE-LOCK-HELD
(T T)) #<unavailable argument> #<unavailable argument>
#S(SB-THREAD:MUTEX :NAME "buffer write lock" :VALUE NIL) #<CLOSURE
(LAMBDA NIL) {B837E75}>)
42: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT
(SWANK-BACKEND::SLIME-OUTPUT-STREAM)) (#(5 6) . #()) #<unavailable
argument> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
43: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
44: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM
#<SWANK-BACKEND::SLIME-INPUT-STREAM {B478559}> :OUTPUT-STREAM
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>>)
45: (SB-INT:FLUSH-STANDARD-OUTPUT-STREAMS)
46: (INVOKE-DEBUGGER #<TYPE-ERROR {B837DF9}>)
47: (ERROR TYPE-ERROR)
48: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument>
#.(SB-SYS:INT-SAP #XB648304C) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP
#XB6482D1C :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (398))
49: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB6482D1C)
#<unavailable argument>)
50: ("foreign function: #x8063F11")
51: ("foreign function: #x805D25C")
52: ("foreign function: #x8054FB6")
53: ("foreign function: #x805D682")
54: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-RECURSIVE-LOCK-HELD
(T T)) #<unavailable argument> #<unavailable argument>
#S(SB-THREAD:MUTEX :NAME "buffer write lock" :VALUE NIL) #<CLOSURE
(LAMBDA NIL) {B831E85}>)
55: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT
(SWANK-BACKEND::SLIME-OUTPUT-STREAM)) (#(5 6) . #()) #<unavailable
argument> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
56: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
57: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM
#<SWANK-BACKEND::SLIME-INPUT-STREAM {B478559}> :OUTPUT-STREAM
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>>)
58: (SB-INT:FLUSH-STANDARD-OUTPUT-STREAMS)
59: (INVOKE-DEBUGGER #<TYPE-ERROR {B831E09}>)
60: (ERROR TYPE-ERROR)
61: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument>
#.(SB-SYS:INT-SAP #XB648373C) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP
#XB648340C :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (398))
62: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB648340C)
#<unavailable argument>)
63: ("foreign function: #x8063F11")
64: ("foreign function: #x805D25C")
65: ("foreign function: #x8054FB6")
66: ("foreign function: #x805D682")
67: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-RECURSIVE-LOCK-HELD
(T T)) #<unavailable argument> #<unavailable argument>
#S(SB-THREAD:MUTEX :NAME "buffer write lock" :VALUE NIL) #<CLOSURE
(LAMBDA NIL) {B82CB0D}>)
68: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT
(SWANK-BACKEND::SLIME-OUTPUT-STREAM)) (#(5 6) . #()) #<unavailable
argument> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
69: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
70: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM
#<SWANK-BACKEND::SLIME-INPUT-STREAM {B478559}> :OUTPUT-STREAM
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>>)
71: (SB-INT:FLUSH-STANDARD-OUTPUT-STREAMS)
72: (INVOKE-DEBUGGER #<TYPE-ERROR {B82CA91}>)
73: (ERROR TYPE-ERROR)
74: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument>
#.(SB-SYS:INT-SAP #XB6483E2C) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP
#XB6483AFC :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (398))
75: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB6483AFC)
#<unavailable argument>)
76: ("foreign function: #x8063F11")
77: ("foreign function: #x805D25C")
78: ("foreign function: #x8054FB6")
79: ("foreign function: #x805D682")
80: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-RECURSIVE-LOCK-HELD
(T T)) #<unavailable argument> #<unavailable argument>
#S(SB-THREAD:MUTEX :NAME "buffer write lock" :VALUE NIL) #<CLOSURE
(LAMBDA NIL) {B8262BD}>)
81: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT
(SWANK-BACKEND::SLIME-OUTPUT-STREAM)) (#(5 6) . #()) #<unavailable
argument> #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
82: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>)
83: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM
#<SWANK-BACKEND::SLIME-INPUT-STREAM {B478559}> :OUTPUT-STREAM
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}>>)
84: (SWANK::FORCE-USER-OUTPUT)
85: (SWANK::DEBUG-IN-EMACS #<TYPE-ERROR {B826221}>)
86: (INVOKE-DEBUGGER #<TYPE-ERROR {B826221}>)
87: (ERROR TYPE-ERROR)
88: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument>
#.(SB-SYS:INT-SAP #XB6484538) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP
#XB648420C :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (398))
89: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #XB648420C)
#<unavailable argument>)
90: ("foreign function: #x8063F11")
91: ("foreign function: #x805D25C")
92: ("foreign function: #x8054FB6")
93: ("foreign function: #x805D682")
94: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-RECURSIVE-LOCK-HELD
(T T)) #<unavailable argument> #<unavailable argument>
#S(SB-THREAD:MUTEX :NAME "buffer write lock" :VALUE NIL) #<CLOSURE
(LAMBDA NIL) {B81D7E5}>)
95: (SB-FORMAT::&-FORMAT-DIRECTIVE-INTERPRETER
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}> #<~&> (#<~@<> #<~S> ":
" #<~3i> #<~:_> #<~A> #<~:>> #<~%>) #<unavailable argument>
(STYLE-WARNING #<SB-INT:SIMPLE-STYLE-WARNING {B81D471}>))
96: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}> (#<~&> #<~@<> #<~S> ":
" #<~3i> #<~:_> #<~A> #<~:>> #<~%>) (STYLE-WARNING
#<SB-INT:SIMPLE-STYLE-WARNING {B81D471}>) (STYLE-WARNING
#<SB-INT:SIMPLE-STYLE-WARNING {B81D471}>))
97: (SB-FORMAT::%FORMAT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM
{A82D041}> "~&~@<~S: ~3i~:_~A~:>~%" (STYLE-WARNING
#<SB-INT:SIMPLE-STYLE-WARNING {B81D471}>) (STYLE-WARNING
#<SB-INT:SIMPLE-STYLE-WARNING {B81D471}>))
98: (FORMAT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A82D041}> "~&~@<~S:
~3i~:_~A~:>~%")
99: (WARN SB-INT:SIMPLE-STYLE-WARNING)
100: (SB-IMPL::CALL-WITH-SANE-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {B81D41D}>)
101: (SB-INT:STYLE-WARN "redefining ~S in DEFGENERIC")
102: (SB-PCL::LOAD-DEFGENERIC SWANK-BACKEND:CURRENT-THREAD NIL
#S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING
"/home/nanda/deb/lisp/libs/slime/swank-backend.lisp"
:TOPLEVEL-FORM-NUMBER 111 :PLIST NIL) :DOCUMENTATION "Return the
currently executing thread.")
103: (SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file
/var/cache/common-lisp-controller/1000/sbcl/local/home/nanda/deb/lisp/libs/slime/swank-backend.fasl"
{B0F1689}>)
104: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file
/var/cache/common-lisp-controller/1000/sbcl/local/home/nanda/deb/lisp/libs/slime/swank-backend.fasl"
{B0F1689}> NIL #<unavailable argument>)
105: (SB-FASL::INTERNAL-LOAD
#P"/var/cache/common-lisp-controller/1000/sbcl/local/home/nanda/deb/lisp/libs/slime/swank-backend.fasl"
#P"/var/cache/common-lisp-controller/1000/sbcl/local/home/nanda/deb/lisp/libs/slime/swank-backend.fasl"
:ERROR NIL NIL :BINARY NIL)
106: (SB-FASL::INTERNAL-LOAD
#P"/var/cache/common-lisp-controller/1000/sbcl/local/home/nanda/deb/lisp/libs/slime/swank-backend.fasl"
#P"/var/cache/common-lisp-controller/1000/sbcl/local/home/nanda/deb/lisp/libs/slime/swank-backend.fasl"
:ERROR NIL NIL NIL :DEFAULT)
107: (LOAD #P"/var/cache/common-lisp-controller/1000/sbcl/local/home/nanda/deb/lisp/libs/slime/swank-backend.fasl")
108: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:LOAD-OP
ASDF:CL-SOURCE-FILE)) #<unavailable argument> #<unavailable argument>
#<ASDF:LOAD-OP NIL {B422111}> #<ASDF:CL-SOURCE-FILE "swank-backend"
{B422121}>)
109: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.
SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable
argument> #<ASDF:LOAD-OP NIL {B422111}> #<ASDF:CL-SOURCE-FILE
"swank-backend" {B422121}>)
110: ((LAMBDA NIL))
111: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {B0D59DD}>)
112: (ASDF:OPERATE ASDF:LOAD-OP :CL-PEREC)
113: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OOS (QUOTE ASDF:LOAD-OP)
:CL-PEREC) #<NULL-LEXENV>)
114: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op :cl-perec)
" T)
115: ((LAMBDA NIL))
116: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T))
#<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL)
{B75CFCD}>)
117: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {B75CFCD}>)
118: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(asdf:oos
'asdf:load-op :cl-perec)
") #<NULL-LEXENV>)
119: ((LAMBDA NIL))
120: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T
T)) #<unused argument> #<unused argument> #<FUNCTION
SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {B6FF40D}>)
121: ((LAMBDA NIL))
122: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T
T)) #<unused argument> #<unused argument> #<FUNCTION
SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {A9B217D}>)
123: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {B2B5869}>
#<CLOSURE (LAMBDA NIL) {B6FF2C5}>)
124: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {B2B5869}>
#<FUNCTION (LAMBDA NIL) {A9B217D}>)
125: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {B2B5869}>)
126: ((LAMBDA NIL))
127: ((LAMBDA NIL))
128: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T
T)) #<unused argument> #<unused argument> #<FUNCTION
SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {B49A0BD}>)
129: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {B2B5869}>
#<CLOSURE (LAMBDA NIL) {B49A0CD}>)
130: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {B2B5869}>
#<CLOSURE (LAMBDA NIL) {B49A0BD}>)
131: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA NIL) {B49A09D}>)
132: ((LAMBDA NIL))
133: ("foreign function: #x8063F11")
134: ("foreign function: #x805D2B1")
135: ("foreign function: #x805BDAD")
136: ("foreign function: #xB7FC331B")

Thanks,
Saurabh.
-- 
http://nandz.blogspot.com
http://foodieforlife.blogspot.com