anchor.diff:              (cond ((null it)
                      (error 'parser-error :text "What? All done?"))
                     ((articlep it)
  +                   (setf article it)
                      (setf state :numerical))
                     (t
                      (push it token-list)
  
positive.code: 
  (defun parse-noun-phrase (token-list)
    (let ((state :pronoun)
          noun adjs amount ordinality owns)
      (loop
         (case state
           (:pronoun
  
negative.code:                        (setf noun it))
                     (return-from parse-noun-phrase
                       (values `(:noun-phrase
                                 . ((:article . ,article)
                                    (:noun . ,noun)
                                    (:adjectives . ,adjs)
                                    (:amount . ,amount)
                                    (:ordinality . ,ordinality)
  