gistfile1.lisp

CL-USER> (defun gethash* (hash-table key &rest more-keys)
           (cond ((null more-keys) (gethash key hash-table))
                 (t (apply #'gethash*
                           (append (list (gethash key hash-table)
                                         (car more-keys))
                                   (cdr more-keys))))))
GETHASH*
CL-USER> (gethash* (yason:parse "{foo:{bar:{baz:42}}}") "foo" "bar" "baz")
42
T