;   parse a location
(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) ) ))

Example:

Input:   ... in Austin ...

Output:  (EQUAL
           (GETDB (QUOTE CUSTOMER-CITY))
           (QUOTE AUSTIN))

Contents    Page-10    Prev    Next    Page+10    Index