From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 22 Nov 2019 13:00:02 +0000 (+0100)
Subject: fix type hints error kind
X-Git-Tag: emacs-28.0.90~2727^2~959
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0bf55d3a8131da02999fe694caf34096d7408952;p=emacs.git

fix type hints error kind
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 666d467051e..5ebaf9f0f5a 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1789,10 +1789,12 @@ Prepare every function for final compilation and drive the C back-end."
 ;; are assumed just to be true. Use with extreme caution...
 
 (defun comp-hint-fixnum (x)
-  (cl-assert (fixnump x)))
+  (unless (fixnump x)
+    (signal 'wrong-type-argument x)))
 
 (defun comp-hint-cons (x)
-  (cl-assert (consp x)))
+  (unless (consp x)
+    (signal 'wrong-type-argument x)))
 
 
 ;; Some entry point support code.