Define missing type in semantic/db-find.el

* lisp/cedet/semantic/db-find.el
(semanticdb-find-result-with-nil): New deftype.

(cherry picked from commit c57b50569cca1b0d1cc85446ecf6be11326c2a4d)

diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index 551f86a792ebba483295e28776c7d68cf0ffab90..920588abf89a10ceb99a569e4f5c997730f1f7d4 100644 (file)
--- a/lisp/cedet/semantic/db-find.el
+++ b/lisp/cedet/semantic/db-find.el
@@ -928,6 +928,9 @@ but should be good enough for debugging assertions."
            (semanticdb-find-result-length result)
            (length result))))
 
+(cl-deftype semanticdb-find-result-with-nil ()
+  '(satisfies semanticdb-find-result-with-nil-p))
+
 (defun semanticdb-find-result-with-nil-p (resultp)
   "Non-nil if RESULTP is in the form of a semanticdb search result.
 The value nil is valid where a TABLE usually is, but only if the TAG