#;24> (define my_alist (read-json "{\"a_key\":3, \"another_key\": \"a_string_value\"}"))
#;25> (assv `a_key my_alist)
(a_key . 3)
#;26> (alist-ref `a_key my_alist)

Error: (null-list?) bad argument type - not a list: a_key

	Call history:

	<syntax>	  (alist-ref (quasiquote a_key) my_alist)
	<syntax>	  (quasiquote a_key)
	<syntax>	  (##core#quote a_key)
	<eval>	  (alist-ref (quasiquote a_key) my_alist)
	alist-lib-core.scm:116: alist-ref	  
	alist-lib-core.scm:119: alist-ref	  
	alist-lib-core.scm:121: assoc	  	<--
#;26> (alist-ref `(`a_key) my_alist)

Error: Key not found -- ALIST-REF: ((a_key . 3) (another_key . "a_string_value"))

	Call history:

	<syntax>	  (alist-ref (quasiquote ((quasiquote a_key))) my_alist)
	<syntax>	  (quasiquote ((quasiquote a_key)))
	<syntax>	  (##sys#list (##sys#list (##core#quote quasiquote130) (##core#quote a_key)))
	<syntax>	  (##sys#list (##core#quote quasiquote130) (##core#quote a_key))
	<syntax>	  (##core#quote quasiquote130)
	<syntax>	  (##core#quote a_key)
	<eval>	  (alist-ref (quasiquote ((quasiquote a_key))) my_alist)
	<eval>	  (##sys#list (##sys#list (##core#quote quasiquote130) (##core#quote a_key)))
	<eval>	  (##sys#list (##core#quote quasiquote130) (##core#quote a_key))
	alist-lib-core.scm:116: alist-ref	  
	alist-lib-core.scm:119: alist-ref	  
	alist-lib-core.scm:121: assoc	  
	alist-lib-core.scm:124: thunk	  
	alist-lib-core.scm:117: error	  	<--
#;26>