;;; KPML 1.0 inquiry implementation bug fixes.
;;; Time-stamp: <97/01/22 02:40:49 jlitchfi>

(defun Inflected-Form-Q-Code (quality)
  (let ((features (fetch-lexicon-info quality 'features)))
    (when features
      (if (not (member 'more-most features)) 
	  'inflected
	'noninflected))))