- (let ((obj (caddr hash-table))
- (hash (funcall (cadr hash-table) key)))
- (values (oget obj hash)
- (in hash obj))))
+ (let* ((obj (caddr hash-table))
+ (hash (funcall (cadr hash-table) key))
+ (exists (in hash obj)))
+ (if exists
+ (values (cdr (oget obj hash)) t)
+ (values default nil))))