From: Noam Postavsky <npostavs@gmail.com>
Date: Tue, 31 Jan 2017 02:45:02 +0000 (-0500)
Subject: Fix call to debugger on assertion failure
X-Git-Tag: emacs-25.2-rc1~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72ef710f6e1c8e334fd50da9480a8cb151e823a2;p=emacs.git

Fix call to debugger on assertion failure

* lisp/emacs-lisp/cl-preloaded.el (cl--assertion-failed): The first
argument must be `error', and the second is a list of arguments for
`signal'.
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 0b079410002..4ae77a58ec9 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -45,7 +45,7 @@
 
 (defun cl--assertion-failed (form &optional string sargs args)
   (if debug-on-error
-      (funcall debugger `(cl-assertion-failed ,form ,string ,@sargs))
+      (funcall debugger 'error `(cl-assertion-failed (,form ,string ,@sargs)))
     (if string
         (apply #'error string (append sargs args))
       (signal 'cl-assertion-failed `(,form ,@sargs)))))