       ;; to prevent e.g. (they -> theys) or (ourselves -> ourselvess)
       (default
        (let [pronoun (atom :top)
-=======
-(defn deliver-lexicon []
-  (if (not (realized? lexicon))
-    (deliver lexicon
-             (-> (compile-lex lexicon-source
-                              morph/exception-generator
-                              morph/phonize)
-
-                 ;; <category-independent rules>
-
-                 (default
-                  (let [cat (atom :top)]
-                    {:english {:cat cat}
-                     :synsem {:cat cat}}))
-
-                 ;; </category-independent rules>
-
-                 ;; <noun default rules>
-
-                 ;; make :propernoun and :pronoun available to morphological rules
-                 ;; to prevent e.g. (they -> theys) or (ourselves -> ourselvess)
-                 (default
-                  (let [pronoun (atom :top)
->>>>>>> Stashed changes
                         propernoun (atom :top)]
          {:english {:pronoun pronoun
                     :propernoun propernoun}

                    {:english {:agr agr}
                     :synsem {:cat :noun
                              :agr agr}}))
<<<<<<< Updated upstream
      
      ;; A pronoun is either reflexive or not reflexive, but
      ;; a non-pronoun is never reflexive.

              :subcat '()}}]
   })


(declare lexicon)

;; TODO: allow a filter of lexemes
(defn- deliver-lexicon []
  (-> (compile-lex lexicon-source 
                   morph/exception-generator 
