(in-package "KPML")

;;; Inquiry additions for Release 3 of the Nigel grammar.
;;; Begun 25-03-2001, Bremen.

(defun CARDINAL-QUANTITY-Q-CODE (spec)
  ;; This starts by just seeing if we have any kind of number at all as
  ;; parameter, and if not making sure that we say NO.
  (if (not (or (and (symbolp spec)
		    (boundp spec)
		    (typep (symbol-value spec) 'term-graph)
		    (term-type-p spec 'number))
	       (numberp spec)))
      'notcardinal))