Contents    Page-10    Prev    Next    Page+10    Index   

Parsing Functions

The parser works by recursive descent, but with the ability to fail and back up and try another path.


(defun loc ()
 (let (locname)
  (saveptr)
  (if (and (eq *word* 'in) (next)
           (setq locname (cat 'city))
           (next))
      (progn
        (addrestrict
          (list 'equal
                (dbaccess 'customer-city)
                (kwote locname)))
        (success))
      (fail) ) ))