[Emacs-diffs] scratch/record 5369952 10/10: Fix cl-print-object to find the object class the new way.

[Lars Brinkhoff]

branch: scratch/record
commit 53699522ed107a7ae1a1af4bc8747a14701eda8e
Author: Lars Brinkhoff <address@hidden>
Commit: Lars Brinkhoff <address@hidden>

    Fix cl-print-object to find the object class the new way.
    
    * lisp/emacs-lisp/cl-print.el (cl-print-object): Work with records.
---
 lisp/emacs-lisp/cl-print.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index 8a8d4a4..65c86d2 100644
--- a/lisp/emacs-lisp/cl-print.el
+++ b/lisp/emacs-lisp/cl-print.el
@@ -137,7 +137,7 @@ call other entry points instead, such as `cl-prin1'."
 
 (cl-defmethod cl-print-object ((object cl-structure-object) stream)
   (princ "#s(" stream)
-  (let* ((class (symbol-value (aref object 0)))
+  (let* ((class (cl-find-class (type-of object)))
          (slots (cl--struct-class-slots class)))
     (princ (cl--struct-class-name class) stream)
     (dotimes (i (length slots))