From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 6 Mar 2023 15:51:07 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp.el (comp-prettyformat-insn): Fix (bug#61917)
X-Git-Tag: emacs-29.0.90~232
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a7e657389a;p=emacs.git

* lisp/emacs-lisp/comp.el (comp-prettyformat-insn): Fix (bug#61917)
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 72e9b8e37dc..a1838b1abf2 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1137,10 +1137,12 @@ with `message'.  Otherwise, log with `comp-log-to-buffer'."
           (comp-cstr-to-type-spec mvar)))
 
 (defun comp-prettyformat-insn (insn)
-  (cl-typecase insn
-    (comp-mvar (comp-prettyformat-mvar insn))
-    (atom (prin1-to-string insn))
-    (cons (concat "(" (mapconcat #'comp-prettyformat-insn insn " ") ")"))))
+  (cond
+   ((comp-mvar-p insn)
+    (comp-prettyformat-mvar insn))
+   ((proper-list-p insn)
+    (concat "(" (mapconcat #'comp-prettyformat-insn insn " ") ")"))
+   (t (prin1-to-string insn))))
 
 (defun comp-log-func (func verbosity)
   "Log function FUNC at VERBOSITY.