PGM4 UPDATE 2

(defun checkRequest (parse)
    (PROG (result)
        (do (setf g)
            ((NULL gram))
        )

        ;;VERB
        (setf gram (getToken parse))
        (if (not (isa gram 'verb))
            (return NIL)
        (putp 'verb parse gram))

        ;;ARTICLE
        (setf saveCursor (getCursor parse))
        (setf gram (getToken parse))
        (if (NOT(isa gram 'article)) (setCursor parse saveCursor) (putp 'article parse gram))

        ;;DIRECTOBJ
        (setf gram (getToken parse))
        (if (not (isa gram 'noun))
            (return NIL)
        (putp 'directObj parse gram))

        ;;PREP
        (setf gram (getToken parse))
        (if (not (isa gram 'prep))
            (return NIL)
        (putp 'prep parse gram))

        ;;INDIRECT OBJ
        (setf gram (getToken parse))
        (if (not (isa gram 'noun))
            (return NIL)
        (putp 'indirectObj parse gram))


        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        (setf gram (getToken parse))
        (if (isa gram 'prep) (putp 'QualIndirectPrep parse gram))

        (setf gram (getToken parse))
        (if (isa gram 'noun) (putp 'QualIndirectObj parse gram))

        (setf gram (getToken parse))
        (if (isa gram 'comparator) (putp 'Comparator parse gram))

        ;;QUALPREP
        (setf saveCursor (getCursor parse))
        (setf gram (getToken parse))
        (if (NOT(isa gram 'prep)) (setCursor parse saveCursor) (putp 'qualPrep parse gram))

        (setf gram (getToken parse))
        (putp 'QualValue parse gram)



        (setf result T)

        (return result)
    )

)