Commit 0095837d authored by Noam Postavsky's avatar Noam Postavsky
Browse files

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).
parent 9ae89c2c
...@@ -3028,7 +3028,7 @@ omitted, a default message listing FORM itself is used." ...@@ -3028,7 +3028,7 @@ omitted, a default message listing FORM itself is used."
(delq nil (mapcar (lambda (x) (delq nil (mapcar (lambda (x)
(unless (macroexp-const-p x) (unless (macroexp-const-p x)
x)) x))
(cdr form)))))) (cdr-safe form))))))
`(progn `(progn
(or ,form (or ,form
(cl--assertion-failed (cl--assertion-failed
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment