From 0bf55d3a8131da02999fe694caf34096d7408952 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 22 Nov 2019 14:00:02 +0100 Subject: [PATCH] fix type hints error kind --- lisp/emacs-lisp/comp.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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. -- 2.39.5