master c57b50569cc 1/4: Define missing type in semantic/db-find.el

[Po Lu]

branch: master
commit c57b50569cca1b0d1cc85446ecf6be11326c2a4d
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Define missing type in semantic/db-find.el
    
    * lisp/cedet/semantic/db-find.el
    (semanticdb-find-result-with-nil): New deftype.
---
 lisp/cedet/semantic/db-find.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index 551f86a792e..920588abf89 100644
--- 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