emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] scratch/record 5369952 10/10: Fix cl-print-object to find


From: Lars Brinkhoff
Subject: [Emacs-diffs] scratch/record 5369952 10/10: Fix cl-print-object to find the object class the new way.
Date: Sun, 19 Mar 2017 05:34:13 -0400 (EDT)

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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]