Variable: comp-known-predicates-h

comp-known-predicates-h is a variable defined in comp.el.gz.

Value

Large value
#s(hash-table size 65 test eq rehash-size 1.5 rehash-threshold 0.8125 data
	      (arrayp #s(comp-cstr
			 (array)
			 nil nil nil)
		      atom #s(comp-cstr
			      (atom)
			      nil nil nil)
		      characterp #s(comp-cstr nil nil
					      ((-2305843009213693952 . 2305843009213693951))
					      nil)
		      booleanp #s(comp-cstr nil
					    (nil t)
					    nil nil)
		      bool-vector-p #s(comp-cstr
				       (bool-vector)
				       nil nil nil)
		      bufferp #s(comp-cstr
				 (buffer)
				 nil nil nil)
		      natnump #s(comp-cstr nil nil
					   ((0 . +))
					   nil)
		      char-table-p #s(comp-cstr
				      (char-table)
				      nil nil nil)
		      hash-table-p #s(comp-cstr
				      (hash-table)
				      nil nil nil)
		      consp #s(comp-cstr
			       (cons)
			       nil nil nil)
		      integerp #s(comp-cstr nil nil
					    ((- . +))
					    nil)
		      floatp #s(comp-cstr
				(float)
				nil nil nil)
		      functionp #s(comp-cstr #'symbol nil nil nil)
		      keywordp #s(comp-cstr
				  (keyword)
				  nil nil nil)
		      listp #s(comp-cstr
			       (list)
			       nil nil nil)
		      numberp #s(comp-cstr
				 (number)
				 nil nil nil)
		      null #s(comp-cstr nil
					(nil)
					nil nil)
		      sequencep #s(comp-cstr
				   (sequence)
				   nil nil nil)
		      stringp #s(comp-cstr
				 (string)
				 nil nil nil)
		      symbolp #s(comp-cstr
				 (symbol)
				 nil nil nil)
		      vectorp #s(comp-cstr
				 (vector)
				 nil nil nil)
		      integer-or-marker-p #s(comp-cstr
					     (integer-or-marker)
					     nil nil nil)))

Documentation

Hash table function -> comp-constraint.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defconst comp-known-predicates-h
  (cl-loop
   with comp-ctxt = (make-comp-cstr-ctxt)
   with h = (make-hash-table :test #'eq)
   for (pred . type-spec) in comp-known-predicates
   for cstr = (comp-type-spec-to-cstr type-spec)
   do (puthash pred cstr h)
   finally return h)
  "Hash table function -> `comp-constraint'.")