Skip to content

Instantly share code, notes, and snippets.

@anton0xf
Created November 21, 2012 12:53
Show Gist options
  • Save anton0xf/4124717 to your computer and use it in GitHub Desktop.
Save anton0xf/4124717 to your computer and use it in GitHub Desktop.
; SLIME - ChangeLog file not found
CL-USER> (ql:quickload "cl-json")
To load "cl-json":
Load 1 ASDF system:
cl-json
; Loading "cl-json"
("cl-json")
CL-USER> (use-package :json)
T
CL-USER> (decode-json-from-string "{\"a\": {\"b\": {\"c\": \"test\"}}}")
((:A (:B (:C . "test"))))
CL-USER> (encode-json-to-string
(decode-json-from-string "{\"a\": {\"b\": {\"c\": \"test\"}}}"))
Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA (SB-DEBUG::FRAME) :IN BACKTRACE) {1005B8E80B}> :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) {1005B8E1CB}>)
4: (SB-IMPL::ERROR-ERROR "Help! " 11 " nested errors. " "SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.")
5: (SB-IMPL::INFINITE-ERROR-PROTECTOR)
6: (ERROR UNENCODABLE-VALUE-ERROR :DATUM (:C . "test") :CONTEXT ENCODE-JSON)
7: (UNENCODABLE-VALUE-ERROR (:C . "test") 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 #X7FFFF4502BA0) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF4502580 :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405))
12: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF4502580) #<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 (:C . "test") #<SB-IMPL::STRING-OUTPUT-STREAM {1005B8B5C3}>)
19: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER ((:C . "test")) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B8B1C3}>)
20: (ENCODE-OBJECT-MEMBER :B ((:C . "test")) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B8B1C3}>)
21: (ENCODE-JSON-ALIST ((:B (:C . "test"))) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B7FE83}>)
22: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
23: (SIGNAL #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
24: (ERROR #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
25: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
26: (SIGNAL #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
27: (ERROR UNENCODABLE-VALUE-ERROR :DATUM (:C . "test") :CONTEXT ENCODE-JSON)
28: (UNENCODABLE-VALUE-ERROR (:C . "test") 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 #X7FFFF4503E80) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF4503840 :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405))
33: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF4503840) #<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 (:C . "test") #<SB-IMPL::STRING-OUTPUT-STREAM {1005B88553}>)
40: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:B (:C . "test")) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B88363}>)
41: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER ((:B (:C . "test"))) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B7FE83}>)
42: (ENCODE-OBJECT-MEMBER :A ((:B (:C . "test"))) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B7FE83}>)
43: (ENCODE-JSON-ALIST ((:A (:B (:C . "test")))) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B78DC3}>)
44: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
45: (SIGNAL #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
46: (ERROR #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
47: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
48: (SIGNAL #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
49: (ERROR #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
50: ((FLET #:LAMBDA195 :IN JSON::ENCODE-JSON-LIST-GUESSING-ENCODER) #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
51: (SIGNAL #<UNENCODABLE-VALUE-ERROR expected-type: T datum: (:C . "test")>)
52: (ERROR UNENCODABLE-VALUE-ERROR :DATUM (:C . "test") :CONTEXT ENCODE-JSON)
53: (UNENCODABLE-VALUE-ERROR (:C . "test") 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 #X7FFFF4505500) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF4504EC0 :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405))
58: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF4504EC0) #<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 (:C . "test") #<SB-IMPL::STRING-OUTPUT-STREAM {1005B7D1C3}>)
65: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:B (:C . "test")) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B7C9C3}>)
66: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER (:A (:B (:C . "test"))) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B7ADD3}>)
67: (JSON::ENCODE-JSON-LIST-GUESSING-ENCODER ((:A (:B (:C . "test")))) #<SB-IMPL::STRING-OUTPUT-STREAM {1005B78DC3}>)
68: (ENCODE-JSON-TO-STRING ((:A (:B (:C . "test")))))
69: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ENCODE-JSON-TO-STRING (DECODE-JSON-FROM-STRING "{\"a\": {\"b\": {\"c\": \"test\"}}}")) #<NULL-LEXENV>)
70: (EVAL (ENCODE-JSON-TO-STRING (DECODE-JSON-FROM-STRING "{\"a\": {\"b\": {\"c\": \"test\"}}}")))
71: (SWANK::EVAL-REGION "(encode-json-to-string
(decode-json-from-string \"{\\\"a\\\": {\\\"b\\\": {\\\"c\\\": \\\"test\\\"}}}\"))
")
72: ((LAMBDA NIL :IN SWANK::REPL-EVAL))
73: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {1005B778CB}>)
74: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {1005B777EB}>)
75: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {1005B777BB}>)
76: (SWANK::REPL-EVAL "(encode-json-to-string
(decode-json-from-string \"{\\\"a\\\": {\\\"b\\\": {\\\"c\\\": \\\"test\\\"}}}\"))
")
77: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(encode-json-to-string
(decode-json-from-string \"{\\\"a\\\": {\\\"b\\\": {\\\"c\\\": \\\"test\\\"}}}\"))
") #<NULL-LEXENV>)
78: (EVAL (SWANK:LISTENER-EVAL "(encode-json-to-string
(decode-json-from-string \"{\\\"a\\\": {\\\"b\\\": {\\\"c\\\": \\\"test\\\"}}}\"))
"))
79: (SWANK:EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(encode-json-to-string
(decode-json-from-string \"{\\\"a\\\": {\\\"b\\\": {\\\"c\\\": \\\"test\\\"}}}\"))
") "COMMON-LISP-USER" 46)
80: (SWANK::PROCESS-REQUESTS NIL)
81: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
82: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
83: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {1003F0810B}>)
84: ((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) {1003F0810B}>)
85: (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) {1003F0812B}>)
86: (SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {1006A231C3}> NIL)
87: ((FLET #:WITHOUT-INTERRUPTS-BODY-240492 :IN SB-THREAD:MAKE-THREAD))
88: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD:MAKE-THREAD))
89: ((FLET #:WITHOUT-INTERRUPTS-BODY-90114 :IN SB-THREAD::CALL-WITH-MUTEX))
90: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD:MAKE-THREAD) {7FFFF4506C0B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {1003F00063}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {1003F00063}> T)
91: (SB-THREAD::INITIAL-THREAD-FUNCTION)
92: ("foreign function: call_into_lisp")
93: ("foreign function: new_thread_trampoline")
; Evaluation aborted on NIL.
CL-USER>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment