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

Tue Aug 14 07:50:57 UTC 2007

Unfortunately this stack trace is useless because it is a recursive
error, could you please try with SBCL CVS head and either with the
patch Attila sent or the head cl-perec repo?

levy

On 8/14/07, Saurabh Nanda <saurabhnanda at gmail.com> wrote:
> 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
> _______________________________________________
> Cl-perec-devel mailing list
> Cl-perec-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/cl-perec-devel
>

-- 
There's no perfectoin