From bbdb6e3fb71db6254bffb8698910ee686bc61c5c Mon Sep 17 00:00:00 2001 From: ajberkley Date: Sat, 4 Jan 2025 12:42:07 -0800 Subject: [PATCH] Remove repeated object class identifiers and array identifiers from output --- src/reftable.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/reftable.lisp b/src/reftable.lisp index 9292c37..1409965 100644 --- a/src/reftable.lisp +++ b/src/reftable.lisp @@ -92,10 +92,12 @@ (notice-recursively k context) (notice-recursively v context))) ((or string package symbol r-ref pointer)) - (t (let ((encoded-alist (encode-object object))) - (notice-recursively encoded-alist context) - (setf (gethash object (ref-context-encoded-objects context)) - encoded-alist)))))))) + (t + (notice-recursively (object-class-identifier object)) + (let ((encoded-alist (encode-object object))) + (notice-recursively encoded-alist context) + (setf (gethash object (ref-context-encoded-objects context)) + encoded-alist)))))))) (defun referrable-p (object) (or (typep object 'sequence)