*slime-repl sbcl*.txt

CL-USER> (ql:quickload "cl-json")
To load "cl-json":
  Load 1 ASDF system:
    cl-json
; Loading "cl-json"

("cl-json")
CL-USER> (json:decode-json-from-string
		  "{\"a\":{\"b\":{\"c\":{\"d\":\"test\"}}}}")
((:A (:B (:C (:D . "test")))))
CL-USER> (json:encode-json-alist-to-string '((:a (:b (:c (:d . "test"))))))
Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA (SB-DEBUG::FRAME) :IN BACKTRACE) {10056FBA1B}> :START 0 :COUNT 4611686018427387903)
1: (BACKTRACE 4611686018427387903 #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003DD8C23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003EE2793}>>)
2: ((LAMBDA NIL :IN SB-IMPL::ERROR-ERROR))
3: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-IMPL::ERROR-ERROR) {10056FB8DB}>)
4: (SB-IMPL::ERROR-ERROR "Help! " 11 " nested errors. " "SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.")
5: (SB-IMPL::INFINITE-ERROR-PROTECTOR)
6: (ERROR JSON:UNENCODABLE-VALUE-ERROR :DATUM (:D . "test") :CONTEXT JSON:ENCODE-JSON)
7: (JSON:UNENCODABLE-VALUE-ERROR (:D . "test") JSON:ENCODE-JSON)
8: ((FLET #:LAMBDA196 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<unavailable argument>)
9: (SIGNAL #<TYPE-ERROR expected-type: LIST datum: "test">)
10: (ERROR TYPE-ERROR :DATUM "test" :EXPECTED-TYPE LIST)
11: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #X7FFFF5A9AA60) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF5A9A440 :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405))
12: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF5A9A440) #<unavailable argument>)
13: ("foreign function: call_into_lisp")
14: ("foreign function: funcall2")
15: ("foreign function: interrupt_internal_error")
16: ("foreign function: handle_trap")
17: ("foreign function: #x412783")
18: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:D . "test") #<SB-IMPL::STRING-OUTPUT-STREAM {10056F8CD3}>)
19: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER ((:D . "test")) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F88D3}>)
20: (JSON:ENCODE-OBJECT-MEMBER :C ((:D . "test")) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F88D3}>)
21: (JSON:ENCODE-JSON-ALIST ((:C (:D . "test"))) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F5663}>)
22: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
23: (SIGNAL #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
24: (ERROR #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
25: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
26: (SIGNAL #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
27: (ERROR JSON:UNENCODABLE-VALUE-ERROR :DATUM (:D . "test") :CONTEXT JSON:ENCODE-JSON)
28: (JSON:UNENCODABLE-VALUE-ERROR (:D . "test") JSON:ENCODE-JSON)
29: ((FLET #:LAMBDA196 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<unavailable argument>)
30: (SIGNAL #<TYPE-ERROR expected-type: LIST datum: "test">)
31: (ERROR TYPE-ERROR :DATUM "test" :EXPECTED-TYPE LIST)
32: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #X7FFFF5A9BD40) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF5A9B700 :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405))
33: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF5A9B700) #<unavailable argument>)
34: ("foreign function: call_into_lisp")
35: ("foreign function: funcall2")
36: ("foreign function: interrupt_internal_error")
37: ("foreign function: handle_trap")
38: ("foreign function: #x412783")
39: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:D . "test") #<SB-IMPL::STRING-OUTPUT-STREAM {10056F5C53}>)
40: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:C (:D . "test")) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F5A63}>)
41: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER ((:C (:D . "test"))) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F5663}>)
42: (JSON:ENCODE-OBJECT-MEMBER :B ((:C (:D . "test"))) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F5663}>)
43: (JSON:ENCODE-JSON-ALIST ((:B (:C (:D . "test")))) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F22C3}>)
44: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
45: (SIGNAL #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
46: (ERROR #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
47: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
48: (SIGNAL #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
49: (ERROR #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
50: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
51: (SIGNAL #<JSON:UNENCODABLE-VALUE-ERROR expected-type: T datum: (:D . "test")>)
52: (ERROR JSON:UNENCODABLE-VALUE-ERROR :DATUM (:D . "test") :CONTEXT JSON:ENCODE-JSON)
53: (JSON:UNENCODABLE-VALUE-ERROR (:D . "test") JSON:ENCODE-JSON)
54: ((FLET #:LAMBDA196 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<unavailable argument>)
55: (SIGNAL #<TYPE-ERROR expected-type: LIST datum: "test">)
56: (ERROR TYPE-ERROR :DATUM "test" :EXPECTED-TYPE LIST)
57: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #X7FFFF5A9D3C0) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF5A9CD80 :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405))
58: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF5A9CD80) #<unavailable argument>)
59: ("foreign function: call_into_lisp")
60: ("foreign function: funcall2")
61: ("foreign function: interrupt_internal_error")
62: ("foreign function: handle_trap")
63: ("foreign function: #x412783")
64: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:D . "test") #<SB-IMPL::STRING-OUTPUT-STREAM {10056F2AF3}>)
65: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:C (:D . "test")) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F28B3}>)
66: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:B (:C (:D . "test"))) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F26C3}>)
67: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER ((:B (:C (:D . "test")))) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F22C3}>)
68: (JSON:ENCODE-OBJECT-MEMBER :A ((:B (:C (:D . "test")))) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F22C3}>)
69: (JSON:ENCODE-JSON-ALIST ((:A (:B (:C (:D . "test"))))) #<SB-IMPL::STRING-OUTPUT-STREAM {10056F2103}>)
70: (JSON:ENCODE-JSON-ALIST-TO-STRING ((:A (:B (:C (:D . "test"))))))
71: (SB-INT:SIMPLE-EVAL-IN-LEXENV (JSON:ENCODE-JSON-ALIST-TO-STRING (QUOTE ((:A (:B (:C (:D . "test"))))))) #<NULL-LEXENV>)
72: (EVAL (JSON:ENCODE-JSON-ALIST-TO-STRING (QUOTE ((:A (:B (:C (:D . "test"))))))))
73: (SWANK::EVAL-REGION "(json:encode-json-alist-to-string '((:a (:b (:c (:d . \"test\"))))))
")
74: ((LAMBDA NIL :IN SWANK::REPL-EVAL))
75: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {10056F1A6B}>)
76: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {10056F198B}>)
77: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {10056F195B}>)
78: (SWANK::REPL-EVAL "(json:encode-json-alist-to-string '((:a (:b (:c (:d . \"test\"))))))
")
79: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(json:encode-json-alist-to-string '((:a (:b (:c (:d . \"test\"))))))
") #<NULL-LEXENV>)
80: (EVAL (SWANK:LISTENER-EVAL "(json:encode-json-alist-to-string '((:a (:b (:c (:d . \"test\"))))))
"))
81: (SWANK:EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(json:encode-json-alist-to-string '((:a (:b (:c (:d . \"test\"))))))
") "COMMON-LISP-USER" 35)
82: (SWANK::PROCESS-REQUESTS NIL)
83: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
84: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
85: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {1005323D0B}>)
86: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/usr/share/common-lisp/source/swank/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {1005323D0B}>)
87: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #1=#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003EE2793}>) (*STANDARD-INPUT* . #2=#<SWANK-BACKEND::SLIME-INPUT-STREAM {1003DD8C23}>) (*TRACE-OUTPUT* . #1#) (*ERROR-OUTPUT* . #1#) (*DEBUG-IO* . #3=#<TWO-WAY-STREAM :INPUT-STREAM #2# :OUTPUT-STREAM #1#>) (*QUERY-IO* . #3#) (*TERMINAL-IO* . #3#)) #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {1005323D2B}>)
88: (SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {1006A231C3}> NIL)
89: ((FLET #:WITHOUT-INTERRUPTS-BODY-240492 :IN SB-THREAD:MAKE-THREAD))
90: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD:MAKE-THREAD))
91: ((FLET #:WITHOUT-INTERRUPTS-BODY-90114 :IN SB-THREAD::CALL-WITH-MUTEX))
92: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD:MAKE-THREAD) {7FFFF5A9EC0B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "new-repl-thread" RUNNING {1005314143}>> #<SB-THREAD:THREAD "new-repl-thread" RUNNING {1005314143}> T)
93: (SB-THREAD::INITIAL-THREAD-FUNCTION)
94: ("foreign function: call_into_lisp")
95: ("foreign function: new_thread_trampoline")
; Evaluation aborted on NIL.
CL-USER>