From 0095837d90a07535abb7848de47cc3745656620f Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sun, 3 Jul 2016 23:44:14 -0400 Subject: [PATCH] Fix cl-assert with atomp FORM, non-nil SHOW-ARGS * lisp/emacs-lisp/cl-macs.el (cl-assert): Don't require that FORM is a list when showing its (non-existent) arguments (Bug #18587). --- lisp/emacs-lisp/cl-macs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 37244f5c350..9a599391e6c 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -3028,7 +3028,7 @@ omitted, a default message listing FORM itself is used." (delq nil (mapcar (lambda (x) (unless (macroexp-const-p x) x)) - (cdr form)))))) + (cdr-safe form)))))) `(progn (or ,form (cl--assertion-failed -- 2.39.2