Script started on Tue Sep 25 09:36:50 2007 castor/NL> acl International Allegro CL Enterprise Edition 8.0 [Solaris] (Apr 10, 2007 13:09) Copyright (C) 1985-2005, Franz Inc., Oakland, CA, USA. All Rights Reserved. This development copy of Allegro CL is licensed to: [4549] University at Buffalo ;; Optimization settings: safety 1, space 1, speed 1, debug 2. ;; For a complete description of all compiler switches given the ;; current optimization settings evaluate (explain-compiler-settings). ;;--- ;; Current reader case mode: :case-sensitive-lower cl-user(1): :ld /projects/snwiz/bin/sneps ; Loading /projects/snwiz/bin/sneps.lisp ;;; Installing jlinker patch, version 2 ;;; Installing foreign patch, version 1 ;;; Installing regexp2 patch, version 1 ;;; Installing yacc patch, version 1 Loading system SNePS...10% 20% 30% 40% 50% 60% 70% 80% 90% 100% SNePS-2.7 [PL:0 2007/09/21 16:26:55] loaded. Type `(sneps)' or `(snepslog)' to get started. cl-user(2): (sneps) Welcome to SNePS-2.7 [PL:0 2007/09/21 16:26:55] Copyright (C) 1984--2007 by Research Foundation of State University of New York. SNePS comes with ABSOLUTELY NO WARRANTY! Type `(copyright)' for detailed copyright information. Type `(demo)' for a list of example applications. 9/25/2007 9:37:28 * (demo "mynlpdemo-parse7.sneps") File /u0/faculty/rapaport/CVA/NL/mynlpdemo-parse7.sneps is now the source of input. CPU time : 0.03 * ;;; Demo file for NLP brachet ;;; Prepared by Vikranth B. Rao ;;; Fall 2003 (resetnet t) Net reset CPU time : 0.00 * ;;; ;;; Load requisite files ;;; ^^ --> (load "pmla.cl") ; Loading /u0/faculty/rapaport/CVA/NL/pmla.cl ; Loading /projects/stn2/CVA/defun_noun.cl t --> (load "/projects/robot/Ygdrasil/Princess/newachieve") ; Fast loading /projects/robot/Ygdrasil/Princess/newachieve.fasl Warning: achieve, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/achieve.lisp and is now being defined in newachieve.lisp Warning: find-gplans, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/achieve.lisp and is now being defined in newachieve.lisp t --> (load "/projects/robot/Ygdrasil/Princess/newact") ; Fast loading /projects/robot/Ygdrasil/Princess/newact.fasl Warning: *use-do-acts*, :variable was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: act, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: get-effects, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: get-plans, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: schedule-believe-effects, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: schedule-preconditions, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: schedule-plans, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: test-preconditions, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: tally-preconditions, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: execute-primaction, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: find-preconditions, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: find-effects, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp Warning: find-plans, :operator was defined in /projects/snwiz/Install/Sneps-2.7.0/snip/fns/act.lisp and is now being defined in newact.lisp t --> ^^ CPU time : 0.55 * ;(intext "/projects/stn2/CVA/demos/rels") (define a1 a2 a3 a4 after agent against antonym associated before cause class direction equiv etime event from in indobj instr into lex location manner member mode object on onto part place possessor proper-name property rel skf sp-rel stime subclass superclass subset superset synonym time to whole kn_cat) (a1 a2 a3 a4 after agent against antonym associated before cause class direction equiv etime event from in indobj instr into lex location manner member mode object on onto part place possessor proper-name property rel skf sp-rel stime subclass superclass subset superset synonym time to whole kn_cat) CPU time : 0.01 * (demo "/projects/stn2/CVA/demos/paths") File /projects/stn2/CVA/demos/paths is now the source of input. CPU time : 0.00 * ;;; Composition of certain paths ;;; Make Before Transitive (define-path before (compose before (kstar (compose after- ! before)))) before implied by the path (compose before (kstar (compose after- ! before))) before- implied by the path (compose (kstar (compose before- ! after)) before-) CPU time : 0.00 * ;;; Make After Transitive (define-path after (compose after (kstar (compose before- ! after)))) after implied by the path (compose after (kstar (compose before- ! after))) after- implied by the path (compose (kstar (compose after- ! before)) after-) CPU time : 0.00 * ;; If X is a member of the class Y and Y is a subclass of Z then ;; X is a member of the class Z. ;; Example: If Fido is a brachet and all brachets are hounds then ;;; Fido is a hound. (define-path class (compose class (kstar (compose subclass- ! superclass)))) class implied by the path (compose class (kstar (compose subclass- ! superclass))) class- implied by the path (compose (kstar (compose superclass- ! subclass)) class-) CPU time : 0.01 * ;; Make subclass transitive (define-path subclass (compose subclass (kstar (compose superclass- ! subclass)))) subclass implied by the path (compose subclass (kstar (compose superclass- ! subclass))) subclass- implied by the path (compose (kstar (compose subclass- ! superclass)) subclass-) CPU time : 0.00 * ;; Make member move over equiv arcs (define-path member (compose member (kstar (compose equiv- ! equiv)))) member implied by the path (compose member (kstar (compose equiv- ! equiv))) member- implied by the path (compose (kstar (compose equiv- ! equiv)) member-) CPU time : 0.00 * End of /projects/stn2/CVA/demos/paths demonstration. CPU time : 0.01 * (demo "/projects/stn2/CVA/demos/brachet.base") File /projects/stn2/CVA/demos/brachet.base is now the source of input. CPU time : 0.00 * ;;; This is the set of assertions which build the base network which ;;; corresponds to Karen Ehrlich's vocabulary acquisition project. ;;; Commented and made accessible by Alan Hunt and Geoffrey Koplas, '97 ;;; The following is the information that needs to get fed into the network ;;; for the Narrative Acquisition demos; namely the background knowledge ;;; on the words _other_ than the one being acquired. ; Animals are physical objects (describe (assert subclass (build lex "animal") superclass (build lex "phys obj") kn_cat "life")) (m3! (kn_cat life) (subclass (m1 (lex animal))) (superclass (m2 (lex phys obj)))) (m3!) CPU time : 0.00 * ; Quadrupeds are vertebrates (describe (assert subclass (build lex "quadruped") superclass (build lex "vertebrate") kn_cat "life")) (m6! (kn_cat life) (subclass (m4 (lex quadruped))) (superclass (m5 (lex vertebrate)))) (m6!) CPU time : 0.00 * ; Ungulates are herbivores (describe (assert subclass (build lex "ungulate") superclass (build lex "herbivore") kn_cat "life")) (m9! (kn_cat life) (subclass (m7 (lex ungulate))) (superclass (m8 (lex herbivore)))) (m9!) CPU time : 0.00 * ; Herbivore and carnivore are antonyms (describe (assert antonym (build lex "herbivore") antonym (build lex "carnivore"))) (m11! (antonym (m10 (lex carnivore)) (m8 (lex herbivore)))) (m11!) CPU time : 0.00 * ; Mammals are animals (describe (assert subclass (build lex "mammal") superclass (build lex "animal") kn_cat "life")) (m13! (kn_cat life) (subclass (m12 (lex mammal))) (superclass (m1 (lex animal)))) (m13!) CPU time : 0.00 * ; Mammals are vertebrates (describe (assert subclass (build lex "mammal") superclass (build lex "vertebrate") kn_cat "life")) (m14! (kn_cat life) (subclass (m12 (lex mammal))) (superclass (m5 (lex vertebrate)))) (m14!) CPU time : 0.00 * ; Deer are mammals (describe (assert subclass (build lex "deer") superclass (build lex "mammal") kn_cat "life")) (m16! (kn_cat life) (subclass (m15 (lex deer))) (superclass (m12 (lex mammal)))) (m16!) CPU time : 0.00 * ; Deer are quadrupeds (describe (assert subclass (build lex "deer") superclass (build lex "quadruped") kn_cat "life")) (m17! (kn_cat life) (subclass (m15 (lex deer))) (superclass (m4 (lex quadruped)))) (m17!) CPU time : 0.00 * ; Deer are herbivores (describe (assert subclass (build lex "deer") superclass (build lex "herbivore") kn_cat "life")) (m18! (kn_cat life) (subclass (m15 (lex deer))) (superclass (m8 (lex herbivore)))) (m18!) CPU time : 0.01 * ; Deer are animals (describe (assert subclass (build lex "deer") superclass (build lex "animal") kn_cat "life")) (m19! (kn_cat life) (subclass (m15 (lex deer))) (superclass (m1 (lex animal)))) (m19!) CPU time : 0.00 * ; Deer is a basic level category (describe (assert member (build lex "deer") class (build lex "basic ctgy") kn_cat "life")) (m21! (class (m20 (lex basic ctgy))) (kn_cat life) (member (m15 (lex deer)))) (m21!) CPU time : 0.00 * ; Horses are quadrupeds (describe (assert subclass (build lex "horse") superclass (build lex "quadruped") kn_cat "life")) (m23! (kn_cat life) (subclass (m22 (lex horse))) (superclass (m4 (lex quadruped)))) (m23!) CPU time : 0.00 * ; Horses are herbivores (describe (assert subclass (build lex "horse") superclass (build lex "herbivore") kn_cat "life")) (m24! (kn_cat life) (subclass (m22 (lex horse))) (superclass (m8 (lex herbivore)))) (m24!) CPU time : 0.00 * ; Horses are animals (describe (assert subclass (build lex "horse") superclass (build lex "animal") kn_cat "life")) (m25! (kn_cat life) (subclass (m22 (lex horse))) (superclass (m1 (lex animal)))) (m25!) CPU time : 0.05 * ; Horse is a basic level category (describe (assert member (build lex "horse") class (build lex "basic ctgy") kn_cat "life")) (m26! (class (m20 (lex basic ctgy))) (kn_cat life) (member (m22 (lex horse)))) (m26!) CPU time : 0.00 * ; Ponies are animals (describe (assert subclass (build lex "pony") superclass (build lex "animal") kn_cat "life")) (m28! (kn_cat life) (subclass (m27 (lex pony))) (superclass (m1 (lex animal)))) (m28!) CPU time : 0.01 * ;"Dogs are mammals" (describe (assert subclass (build lex "dog") superclass (build lex "mammal") kn_cat "life")) (m30! (kn_cat life) (subclass (m29 (lex dog))) (superclass (m12 (lex mammal)))) (m30!) CPU time : 0.00 * ;"Dogs are quadrupeds" (describe (assert subclass (build lex "dog") superclass (build lex "quadruped") kn_cat "life")) (m31! (kn_cat life) (subclass (m29 (lex dog))) (superclass (m4 (lex quadruped)))) (m31!) CPU time : 0.01 * ; "Dogs are carnivores" (describe (assert subclass (build lex "dog") superclass (build lex "carnivore"))) (m32! (subclass (m29 (lex dog))) (superclass (m10 (lex carnivore)))) (m32!) CPU time : 0.00 * ;"Dogs are animals" (describe (assert subclass (build lex "dog") superclass (build lex "animal") kn_cat "life")) (m33! (kn_cat life) (subclass (m29 (lex dog))) (superclass (m1 (lex animal)))) (m33!) CPU time : 0.01 * ; Dog is a basic level category (describe (assert member (build lex "dog") class (build lex "basic ctgy") kn_cat "life")) (m34! (class (m20 (lex basic ctgy))) (kn_cat life) (member (m29 (lex dog)))) (m34!) CPU time : 0.00 * ;"Hounds are dogs" (describe (assert subclass (build lex "hound") superclass (build lex "dog") kn_cat "life")) (m36! (kn_cat life) (subclass (m35 (lex hound))) (superclass (m29 (lex dog)))) (m36!) CPU time : 0.01 * ;"Something is a member of the class dog" (describe (assert member #rex class (build lex "dog"))) (m37! (class (m29 (lex dog))) (member b1)) (m37!) CPU time : 0.00 * ;"The dog is possesed by something" (describe (assert object *rex rel (build lex "dog") possessor #rexboss)) (m38! (object b1) (possessor b2) (rel (m29 (lex dog)))) (m38!) CPU time : 0.01 * ;"The thing that owns the dog is a person" (describe (assert member *rexboss class (build lex "person"))) (m40! (class (m39 (lex person))) (member b2)) (m40!) CPU time : 0.00 * ; Kings are persons (describe (add subclass (build lex "king") superclass (build lex "person") kn_cat "life")) (m42! (kn_cat life) (subclass (m41 (lex king))) (superclass (m39 (lex person)))) (m42!) CPU time : 0.01 * ; Wizards are persons. (describe (assert subclass (build lex "wizard") superclass (build lex "person") kn_cat "life")) (m44! (kn_cat life) (subclass (m43 (lex wizard))) (superclass (m39 (lex person)))) (m44!) CPU time : 0.00 * ; Knights are persons. (describe (assert subclass (build lex "knight") superclass (build lex "person") kn_cat "life")) (m46! (kn_cat life) (subclass (m45 (lex knight))) (superclass (m39 (lex person)))) (m46!) CPU time : 0.00 * ; Person is a basic level category (describe (assert member (build lex "person") class (build lex "basic ctgy") kn_cat "life")) (m47! (class (m20 (lex basic ctgy))) (kn_cat life) (member (m39 (lex person)))) (m47!) CPU time : 0.00 * ; Something is named 'King Arthur' (describe (assert object #KA proper-name (build lex "King Arthur") kn_cat "life")) (m49! (kn_cat life) (object b3) (proper-name (m48 (lex King Arthur)))) (m49!) CPU time : 0.00 * ; King Arthur is a king (describe (assert member *KA class (build lex "king") kn_cat "life")) (m50! (class (m41 (lex king))) (kn_cat life) (member b3)) (m50!) CPU time : 0.00 * ; The Round Table is a table (describe (assert member (build lex "Round Table") class (build lex "table") kn_cat "life")) (m53! (class (m52 (lex table))) (kn_cat life) (member (m51 (lex Round Table)))) (m53!) CPU time : 0.00 * ; King Arthur owns the Round Table (describe (assert possessor *KA object (build lex "Round Table") rel (build lex "table") kn_cat "life")) (m54! (kn_cat life) (object (m51 (lex Round Table))) (possessor b3) (rel (m52 (lex table)))) (m54!) CPU time : 0.01 * ; There is something named 'Excalibur' (describe (assert object #Excalibur proper-name (build lex "Excalibur") kn_cat "life")) (m56! (kn_cat life) (object b4) (proper-name (m55 (lex Excalibur)))) (m56!) CPU time : 0.00 * ; Excalibur is a sword (describe (assert member *Excalibur class (build lex "sword") kn_cat "life")) (m58! (class (m57 (lex sword))) (kn_cat life) (member b4)) (m58!) CPU time : 0.01 * ; King Arthur owns Excalibur (describe (assert object *Excalibur rel (build lex "sword") possessor *KA kn_cat "life")) (m59! (kn_cat life) (object b4) (possessor b3) (rel (m57 (lex sword)))) (m59!) CPU time : 0.00 * ; Something is named 'Merlin' (describe (assert object #Mer proper-name (build lex "Merlin") kn_cat "life")) (m61! (kn_cat life) (object b5) (proper-name (m60 (lex Merlin)))) (m61!) CPU time : 0.01 * ; Merlin is a wizard. (describe (assert member *Mer class (build lex "wizard") kn_cat "life")) (m62! (class (m43 (lex wizard))) (kn_cat life) (member b5)) (m62!) CPU time : 0.00 * ; Something is named 'Sir Galahad' (describe (assert object #Galahad proper-name (build lex "Sir Galahad") kn_cat "life")) (m64! (kn_cat life) (object b6) (proper-name (m63 (lex Sir Galahad)))) (m64!) CPU time : 0.00 * ; Sir Galahad is a knight (describe (assert member *Galahad class (build lex "knight") kn_cat "life")) (m65! (class (m45 (lex knight))) (kn_cat life) (member b6)) (m65!) CPU time : 0.00 * ; Something is named 'Sir Tristram' (describe (assert object #Tris proper-name (build lex "Sir Tristram") kn_cat "life")) (m67! (kn_cat life) (object b7) (proper-name (m66 (lex Sir Tristram)))) (m67!) CPU time : 0.00 * ; Sir Tristram is a knight (describe (assert member *Tris class (build lex "knight") kn_cat "life")) (m68! (class (m45 (lex knight))) (kn_cat life) (member b7)) (m68!) CPU time : 0.00 * ; Something is named 'Sir Gawain' (describe (assert object #SG proper-name (build lex "Sir Gawain") kn_cat "life")) (m70! (kn_cat life) (object b8) (proper-name (m69 (lex Sir Gawain)))) (m70!) CPU time : 0.00 * ; Sir Gawain is a knight (describe (assert member *SG class (build lex "knight") kn_cat "life")) (m71! (class (m45 (lex knight))) (kn_cat life) (member b8)) (m71!) CPU time : 0.00 * ; Something is named 'King Ban' (describe (assert object #Ban proper-name (build lex "King Ban") kn_cat "life")) (m73! (kn_cat life) (object b9) (proper-name (m72 (lex King Ban)))) (m73!) CPU time : 0.00 * ; King Ban is a king (describe (assert member *Ban class (build lex "king") kn_cat "life")) (m74! (class (m41 (lex king))) (kn_cat life) (member b9)) (m74!) CPU time : 0.01 * ; Something is named 'King Bors' (describe (assert object #Bors proper-name (build lex "King Bors") kn_cat "life")) (m76! (kn_cat life) (object b10) (proper-name (m75 (lex King Bors)))) (m76!) CPU time : 0.00 * ; King Bors is a king (describe (assert member *Bors class (build lex "king") kn_cat "life")) (m77! (class (m41 (lex king))) (kn_cat life) (member b10)) (m77!) CPU time : 0.01 * ; Something is named 'King Lot' (describe (assert object #Lot proper-name (build lex "King Lot") kn_cat "life")) (m79! (kn_cat life) (object b11) (proper-name (m78 (lex King Lot)))) (m79!) CPU time : 0.00 * ; King Lot is a king (describe (assert member *Lot class (build lex "king") kn_cat "life")) (m80! (class (m41 (lex king))) (kn_cat life) (member b11)) (m80!) CPU time : 0.01 * ; Sideboards are furniture (describe (assert subclass (build lex "sideboard") superclass (build lex "furniture") kn_cat "life")) (m83! (kn_cat life) (subclass (m81 (lex sideboard))) (superclass (m82 (lex furniture)))) (m83!) CPU time : 0.00 * ; Tables are furniture (describe (assert subclass (build lex "table") superclass (build lex "furniture") kn_cat "life")) (m84! (kn_cat life) (subclass (m52 (lex table))) (superclass (m82 (lex furniture)))) (m84!) CPU time : 0.01 * ; Chairs are furniture (describe (assert subclass (build lex "chair") superclass (build lex "furniture") kn_cat "life")) (m86! (kn_cat life) (subclass (m85 (lex chair))) (superclass (m82 (lex furniture)))) (m86!) CPU time : 0.00 * ; Chair is a basic level category (describe (assert member (build lex "chair") class (build lex "basic ctgy") kn_cat "life")) (m87! (class (m20 (lex basic ctgy))) (kn_cat life) (member (m85 (lex chair)))) (m87!) CPU time : 0.00 * ; Table is a basic level category (describe (assert member (build lex "table") class (build lex "basic ctgy") kn_cat "life")) (m88! (class (m20 (lex basic ctgy))) (kn_cat life) (member (m52 (lex table)))) (m88!) CPU time : 0.00 * ; White is a color (describe (assert member (build lex "white") class (build lex "color") kn_cat "life")) (m91! (class (m90 (lex color))) (kn_cat life) (member (m89 (lex white)))) (m91!) CPU time : 0.00 * ; Black is a color (describe (assert member (build lex "black") class (build lex "color") kn_cat "life")) (m93! (class (m90 (lex color))) (kn_cat life) (member (m92 (lex black)))) (m93!) CPU time : 0.01 * ; Small is a size (describe (assert member (build lex "small") class (build lex "size") kn_cat "life")) (m96! (class (m95 (lex size))) (kn_cat life) (member (m94 (lex small)))) (m96!) CPU time : 0.00 * ; "Small" and "little" are synonyms (describe (assert synonym (build lex "small") synonym (build lex "little") kn_cat "life")) (m98! (kn_cat life) (synonym (m97 (lex little)) (m94 (lex small)))) (m98!) CPU time : 0.01 * ; Large is a size (describe (assert member (build lex "large") class (build lex "size") kn_cat "life")) (m100! (class (m95 (lex size))) (kn_cat life) (member (m99 (lex large)))) (m100!) CPU time : 0.00 * ; "Large" and "big" are synonyms (describe (assert synonym (build lex "large") synonym (build lex "big") kn_cat "life")) (m102! (kn_cat life) (synonym (m101 (lex big)) (m99 (lex large)))) (m102!) CPU time : 0.01 * ; Spears are weapons (describe (add subclass (build lex "spear") superclass (build lex "weapon") kn_cat "life")) (m105! (kn_cat life) (subclass (m103 (lex spear))) (superclass (m104 (lex weapon)))) (m105!) CPU time : 0.01 * ; "Kill" and "Slay" are synonyms (describe (assert synonym (build lex "kill") synonym (build lex "slay") kn_cat "life")) (m108! (kn_cat life) (synonym (m107 (lex slay)) (m106 (lex kill)))) (m108!) CPU time : 0.00 * ;; ###################### ;; RULES ;; ###################### ; If something is a hound then that thing hunts. (describe (add forall $hound1 ant (build member *hound1 class (build lex "hound")) cq (build agent *hound1 act (build action (build lex "hunt"))) kn_cat "life-rule.1")) (m111! (forall v1) (ant (p1 (class (m35 (lex hound))) (member v1))) (cq (p2 (act (m110 (action (m109 (lex hunt))))) (agent v1))) (kn_cat life-rule.1)) (m111!) CPU time : 0.07 * ;; If something bays and it is a member of some class then ;; that class is a subclass of hound (describe (add forall ($bayer $categ) &ant ((build agent *bayer act (build action (build lex "bay"))) (build member *bayer class *categ)) cq (build subclass *categ superclass (build lex "hound")))) (m149! (class (m20 (lex basic ctgy))) (member (m15 (lex deer)))) (m148! (class (m20)) (member (m22 (lex horse)))) (m147! (class (m20)) (member (m29 (lex dog)))) (m146! (class (m12 (lex mammal))) (member b1)) (m145! (class (m10 (lex carnivore))) (member b1)) (m144! (class (m5 (lex vertebrate))) (member b1)) (m143! (class (m4 (lex quadruped))) (member b1)) (m142! (class (m2 (lex phys obj))) (member b1)) (m141! (class (m1 (lex animal))) (member b1)) (m140! (class (m20)) (member (m39 (lex person)))) (m139! (class (m41 (lex king))) (member b3)) (m138! (class (m39)) (member b3)) (m137! (class (m82 (lex furniture))) (member (m51 (lex Round Table)))) (m136! (class (m52 (lex table))) (member (m51))) (m135! (class (m57 (lex sword))) (member b4)) (m134! (class (m43 (lex wizard))) (member b5)) (m133! (class (m39)) (member b5)) (m132! (class (m45 (lex knight))) (member b6)) (m131! (class (m39)) (member b6)) (m130! (class (m45)) (member b7)) (m129! (class (m39)) (member b7)) (m128! (class (m45)) (member b8)) (m127! (class (m39)) (member b8)) (m126! (class (m41)) (member b9)) (m125! (class (m39)) (member b9)) (m124! (class (m41)) (member b10)) (m123! (class (m39)) (member b10)) (m122! (class (m41)) (member b11)) (m121! (class (m39)) (member b11)) (m120! (class (m20)) (member (m85 (lex chair)))) (m119! (class (m20)) (member (m52))) (m118! (class (m90 (lex color))) (member (m89 (lex white)))) (m117! (class (m90)) (member (m92 (lex black)))) (m116! (class (m95 (lex size))) (member (m94 (lex small)))) (m115! (class (m95)) (member (m99 (lex large)))) (m114! (forall v3 v2) (&ant (p4 (class v3) (member v2)) (p3 (act (m113 (action (m112 (lex bay))))) (agent v2))) (cq (p5 (subclass v3) (superclass (m35 (lex hound)))))) (m40! (class (m39)) (member b2)) (m37! (class (m29)) (member b1)) (m149! m148! m147! m146! m145! m144! m143! m142! m141! m140! m139! m138! m137! m136! m135! m134! m133! m132! m131! m130! m129! m128! m127! m126! m125! m124! m123! m122! m121! m120! m119! m118! m117! m116! m115! m114! m40! m37!) CPU time : 0.09 * ;; Newly inferred information: ;; ;; "Deer" is a basic category ;; "Horse" is a basic category ;; "Dog" is a basic category ;; The dog (b1) is a quadruped ;; The dog (b1) is a mammal ;; The dog (b1) is a vertebrate ;; The dog (b1) is a physical object ;; The dog (b1) is a animal ;; "Person" is a basic category ;; King Arthur is a king ;; King Arthur is a person ;; The Round Table is a piece of furniture ;; The Round Table is a table ;; Excalibur is a sword ;; Merlin is a wizard ;; Merlin is a person ;; Sir Galahad is a knight ;; Sir Galahad is a person ;; Sir Tristram is a knight ;; Sir Tristram is a person ;; Sir Gawain is a knight ;; Sir Gawain is a person ;; King Ban is a king ;; King Ban is a person ;; King Bors is a king ;; King Bors is a person ;; King Lot is a king ;; King Lot is a person ;; "Chair" is a basic category ;; "Table" is a basic category ;; White is a color ;; Black is a color ;; Small is a size ;; Large is a size ;; If one thing bites another and the biter is a member of some ;; class then that class is a subclass of animal (describe (add forall ($animal1 $bitten *categ) &ant ((build agent *animal1 act (build action (build lex "bite") object *bitten)) (build member *animal1 class *categ)) cq (build subclass *categ superclass (build lex "animal")) kn_cat "life-rule.1")) (m151! (forall v5 v4 v3) (&ant (p8 (class v3) (member v4)) (p7 (act (p6 (action (m150 (lex bite))) (object v5))) (agent v4))) (cq (p9 (subclass v3) (superclass (m1 (lex animal))))) (kn_cat life-rule.1)) (m149! (class (m20 (lex basic ctgy))) (member (m15 (lex deer)))) (m148! (class (m20)) (member (m22 (lex horse)))) (m147! (class (m20)) (member (m29 (lex dog)))) (m146! (class (m12 (lex mammal))) (member b1)) (m145! (class (m10 (lex carnivore))) (member b1)) (m144! (class (m5 (lex vertebrate))) (member b1)) (m143! (class (m4 (lex quadruped))) (member b1)) (m142! (class (m2 (lex phys obj))) (member b1)) (m141! (class (m1)) (member b1)) (m140! (class (m20)) (member (m39 (lex person)))) (m139! (class (m41 (lex king))) (member b3)) (m138! (class (m39)) (member b3)) (m137! (class (m82 (lex furniture))) (member (m51 (lex Round Table)))) (m136! (class (m52 (lex table))) (member (m51))) (m135! (class (m57 (lex sword))) (member b4)) (m134! (class (m43 (lex wizard))) (member b5)) (m133! (class (m39)) (member b5)) (m132! (class (m45 (lex knight))) (member b6)) (m131! (class (m39)) (member b6)) (m130! (class (m45)) (member b7)) (m129! (class (m39)) (member b7)) (m128! (class (m45)) (member b8)) (m127! (class (m39)) (member b8)) (m126! (class (m41)) (member b9)) (m125! (class (m39)) (member b9)) (m124! (class (m41)) (member b10)) (m123! (class (m39)) (member b10)) (m122! (class (m41)) (member b11)) (m121! (class (m39)) (member b11)) (m120! (class (m20)) (member (m85 (lex chair)))) (m119! (class (m20)) (member (m52))) (m118! (class (m90 (lex color))) (member (m89 (lex white)))) (m117! (class (m90)) (member (m92 (lex black)))) (m116! (class (m95 (lex size))) (member (m94 (lex small)))) (m115! (class (m95)) (member (m99 (lex large)))) (m40! (class (m39)) (member b2)) (m37! (class (m29)) (member b1)) (m151! m149! m148! m147! m146! m145! m144! m143! m142! m141! m140! m139! m138! m137! m136! m135! m134! m133! m132! m131! m130! m129! m128! m127! m126! m125! m124! m123! m122! m121! m120! m119! m118! m117! m116! m115! m40! m37!) CPU time : 0.23 * ;; Newly inferred information: ;; ;; None ;; If something is an animal and part of another class then ;; presumably, that class is a subclass of animal (describe (add forall (*animal1 $class2) &ant ((build member *animal1 class (build lex "animal")) (build member *animal1 class *class2)) cq (build mode (build lex "presumably") object (build subclass *class2 superclass (build lex "animal"))) kn_cat "life-rule.1")) (m175! (mode (m152 (lex presumably))) (object (m174 (subclass (m10 (lex carnivore))) (superclass (m1 (lex animal)))))) (m173! (mode (m152)) (object (m172 (subclass (m5 (lex vertebrate))) (superclass (m1))))) (m171! (mode (m152)) (object (m170 (subclass (m4 (lex quadruped))) (superclass (m1))))) (m167! (mode (m152)) (object (m166 (subclass (m12 (lex mammal))) (superclass (m1))))) (m165! (mode (m152)) (object (m164 (subclass (m15 (lex deer))) (superclass (m1))))) (m163! (mode (m152)) (object (m162 (subclass (m22 (lex horse))) (superclass (m1))))) (m159! (mode (m152)) (object (m158 (subclass (m29 (lex dog))) (superclass (m1))))) (m157! (mode (m152)) (object (m156 (subclass (m35 (lex hound))) (superclass (m1))))) (m155! (mode (m152)) (object (m154 (subclass (m2 (lex phys obj))) (superclass (m1))))) (m153! (forall v6 v4) (&ant (p11 (class v6) (member v4)) (p10 (class (m1)) (member v4))) (cq (p13 (mode (m152)) (object (p12 (subclass v6) (superclass (m1)))))) (kn_cat life-rule.1)) (m149! (class (m20 (lex basic ctgy))) (member (m15))) (m148! (class (m20)) (member (m22))) (m147! (class (m20)) (member (m29))) (m146! (class (m12)) (member b1)) (m145! (class (m10)) (member b1)) (m144! (class (m5)) (member b1)) (m143! (class (m4)) (member b1)) (m142! (class (m2)) (member b1)) (m141! (class (m1)) (member b1)) (m140! (class (m20)) (member (m39 (lex person)))) (m139! (class (m41 (lex king))) (member b3)) (m138! (class (m39)) (member b3)) (m137! (class (m82 (lex furniture))) (member (m51 (lex Round Table)))) (m136! (class (m52 (lex table))) (member (m51))) (m135! (class (m57 (lex sword))) (member b4)) (m134! (class (m43 (lex wizard))) (member b5)) (m133! (class (m39)) (member b5)) (m132! (class (m45 (lex knight))) (member b6)) (m131! (class (m39)) (member b6)) (m130! (class (m45)) (member b7)) (m129! (class (m39)) (member b7)) (m128! (class (m45)) (member b8)) (m127! (class (m39)) (member b8)) (m126! (class (m41)) (member b9)) (m125! (class (m39)) (member b9)) (m124! (class (m41)) (member b10)) (m123! (class (m39)) (member b10)) (m122! (class (m41)) (member b11)) (m121! (class (m39)) (member b11)) (m120! (class (m20)) (member (m85 (lex chair)))) (m119! (class (m20)) (member (m52))) (m118! (class (m90 (lex color))) (member (m89 (lex white)))) (m117! (class (m90)) (member (m92 (lex black)))) (m116! (class (m95 (lex size))) (member (m94 (lex small)))) (m115! (class (m95)) (member (m99 (lex large)))) (m40! (class (m39)) (member b2)) (m37! (class (m29)) (member b1)) (m175! m173! m171! m167! m165! m163! m159! m157! m155! m153! m149! m148! m147! m146! m145! m144! m143! m142! m141! m140! m139! m138! m137! m136! m135! m134! m133! m132! m131! m130! m129! m128! m127! m126! m125! m124! m123! m122! m121! m120! m119! m118! m117! m116! m115! m40! m37!) CPU time : 0.39 * ;; Newly inferred information: ;; ;; Presumably, quadruped is a subclass of animal ;; Presumably, vertebrate is a subclass of animal ;; Presumably, mammal is a subclass of animal ;; Presumably, deer is a subclass of animal ;; Presumably, hart is a subclass of animal ;; Presumably, horse is a subclass of animal ;; Presumably, dog is a subclass of animal ;; Presumably, hound is a subclass of animal ;; Presumably, physical object is a subclass of animal ;; If something is presumably an animal and is a member of another class then ;; presumably, that class is a subclass of animal (describe (add forall (*animal1 *class2) &ant ((build mode (build lex "presumably") object (build member *animal1 class (build lex "animal"))) (build member *animal1 class *class2)) cq (build mode (build lex "presumably") object (build subclass *class2 superclass (build lex "animal"))) kn_cat "life-rule.1")) (m176! (forall v6 v4) (&ant (p15 (mode (m152 (lex presumably))) (object (p10 (class (m1 (lex animal))) (member v4)))) (p11 (class v6) (member v4))) (cq (p13 (mode (m152)) (object (p12 (subclass v6) (superclass (m1)))))) (kn_cat life-rule.1)) (m176!) CPU time : 0.04 * ;; Newly inferred information: ;; ;; None ;; If something is a mammal and a member of another class then ;; presumably, that class is a subclass of mammal (describe (add forall (*animal1 *class2) &ant ((build member *animal1 class (build lex "mammal")) (build member *animal1 class *class2)) cq (build mode (build lex "presumably") object (build subclass *class2 superclass (build lex "mammal"))) kn_cat "life-rule.1")) (m199! (mode (m152 (lex presumably))) (object (m198 (subclass (m12 (lex mammal))) (superclass (m12))))) (m197! (mode (m152)) (object (m196 (subclass (m15 (lex deer))) (superclass (m12))))) (m195! (mode (m152)) (object (m194 (subclass (m22 (lex horse))) (superclass (m12))))) (m193! (mode (m152)) (object (m192 (subclass (m27 (lex pony))) (superclass (m12))))) (m191! (mode (m152)) (object (m190 (subclass (m35 (lex hound))) (superclass (m12))))) (m189! (mode (m152)) (object (m188 (subclass (m1 (lex animal))) (superclass (m12))))) (m187! (mode (m152)) (object (m186 (subclass (m4 (lex quadruped))) (superclass (m12))))) (m185! (mode (m152)) (object (m184 (subclass (m10 (lex carnivore))) (superclass (m12))))) (m183! (mode (m152)) (object (m182 (subclass (m29 (lex dog))) (superclass (m12))))) (m181! (mode (m152)) (object (m180 (subclass (m5 (lex vertebrate))) (superclass (m12))))) (m179! (mode (m152)) (object (m178 (subclass (m2 (lex phys obj))) (superclass (m12))))) (m177! (forall v6 v4) (&ant (p16 (class (m12)) (member v4)) (p11 (class v6) (member v4))) (cq (p18 (mode (m152)) (object (p17 (subclass v6) (superclass (m12)))))) (kn_cat life-rule.1)) (m146! (class (m12)) (member b1)) (m199! m197! m195! m193! m191! m189! m187! m185! m183! m181! m179! m177! m146!) CPU time : 0.25 * ;; Newly inferred information: ;; ;; Presumably, mammal is a subclass of mammal ;; Presumably, deer is a subclass of mammal ;; Presumably, hart is a subclass of mammal ;; Presumably, horse is a subclass of mammal ;; Presumably, pony is a subclass of mammal ;; Presumably, hound is a subclass of mammal ;; Presumably, animal is a subclass of mammal ;; Presumably, vertebrate is a subclass of mammal ;; Presumably, quadruped is a subclass of mammal ;; Presumably, dog is a subclass of mammal ;; Presumably, physical object is a subclass of mammal ;; If something is a mammal, then it presumably bears live young (describe (add forall *animal1 ant (build member *animal1 class (build lex "mammal")) cq (build mode (build lex "presumably") object (build agent *animal1 act (build action (build lex "bear") object (build lex "live young")))) kn_cat "life-rule.1")) (m205! (mode (m152 (lex presumably))) (object (m204 (act (m202 (action (m200 (lex bear))) (object (m201 (lex live young))))) (agent b1)))) (m203! (forall v4) (ant (p16 (class (m12 (lex mammal))) (member v4))) (cq (p21 (mode (m152)) (object (p20 (act (m202)) (agent v4))))) (kn_cat life-rule.1)) (m205! m203!) CPU time : 0.03 * ;; Newly inferred information: ;; ;; The dog (b1) bears live young ;"If something bears something else, the bearer is an animal" (describe (add forall (*animal1 $animal2) ant (build agent *animal1 act (build action (build lex "bear") object *animal2)) cq (build member *animal1 class (build lex "mammal")) kn_cat "life-rule.1")) (m206! (forall v7 v4) (ant (p23 (act (p22 (action (m200 (lex bear))) (object v7))) (agent v4))) (cq (p16 (class (m12 (lex mammal))) (member v4))) (kn_cat life-rule.1)) (m206!) CPU time : 0.03 * ;; Newly inferred information: ;; ;; None ; If there is a person and that person can carry something, then the ; thing that can be carried has the property "small". (describe (add forall ($thingy $person) &ant ((build member *person class (build lex "person")) (build agent *person act (build action (build lex "carry") object *thingy))) cq (build object *thingy property (build lex "small")) kn_cat "life-rule.2")) (m208! (forall v9 v8) (&ant (p26 (act (p25 (action (m207 (lex carry))) (object v8))) (agent v9)) (p24 (class (m39 (lex person))) (member v9))) (cq (p27 (object v8) (property (m94 (lex small))))) (kn_cat life-rule.2)) (m138! (class (m39)) (member b3)) (m133! (class (m39)) (member b5)) (m131! (class (m39)) (member b6)) (m129! (class (m39)) (member b7)) (m127! (class (m39)) (member b8)) (m125! (class (m39)) (member b9)) (m123! (class (m39)) (member b10)) (m121! (class (m39)) (member b11)) (m40! (class (m39)) (member b2)) (m208! m138! m133! m131! m129! m127! m125! m123! m121! m40!) CPU time : 0.13 * ;; Newly inferred information: ;; ;; None ; If something wants something then the thing that is wanted is valuable (describe (add forall (*thingy *person) ant (build agent *person act (build action (build lex "want") object *thingy)) cq (build object *thingy property (build lex "valuable")) kn_cat "life-rule.2")) (m211! (forall v9 v8) (ant (p31 (act (p30 (action (m209 (lex want))) (object v8))) (agent v9))) (cq (p32 (object v8) (property (m210 (lex valuable))))) (kn_cat life-rule.2)) (m211!) CPU time : 0.02 * ;; Newly inferred information: ;; ;; None ; If something says that it wants another thing, then it actually ; does want that thing (describe (add forall (*thingy *person) ant (build agent *person act (build action (build lex "say that") object (build agent *person act (build action (build lex "want") object *thingy)))) cq (build agent *person act (build action (build lex "want") object *thingy)) kn_cat "life-rule.2")) (m213! (forall v9 v8) (ant (p34 (act (p33 (action (m212 (lex say that))) (object (p31 (act (p30 (action (m209 (lex want))) (object v8))) (agent v9))))) (agent v9))) (cq (p31)) (kn_cat life-rule.2)) (m213!) CPU time : 0.03 * ;; Newly inferred information: ;; ;; None. ; (describe ; If a member of some class has a property that is a color, ; then the class that it is a member of is a subclass of 'physical object' (add forall ($thing $prop $foo) &ant ((build member *foo class *thing) (build object *foo property *prop) (build member *prop class (build lex "color"))) cq (build subclass *thing superclass (build lex "phys obj")) kn_cat "intrinsic")) (m214! (forall v12 v11 v10) (&ant (p37 (class (m90 (lex color))) (member v11)) (p36 (object v12) (property v11)) (p35 (class v10) (member v12))) (cq (p38 (subclass v10) (superclass (m2 (lex phys obj))))) (kn_cat intrinsic)) (m149! (class (m20 (lex basic ctgy))) (member (m15 (lex deer)))) (m148! (class (m20)) (member (m22 (lex horse)))) (m147! (class (m20)) (member (m29 (lex dog)))) (m146! (class (m12 (lex mammal))) (member b1)) (m145! (class (m10 (lex carnivore))) (member b1)) (m144! (class (m5 (lex vertebrate))) (member b1)) (m143! (class (m4 (lex quadruped))) (member b1)) (m142! (class (m2)) (member b1)) (m141! (class (m1 (lex animal))) (member b1)) (m140! (class (m20)) (member (m39 (lex person)))) (m139! (class (m41 (lex king))) (member b3)) (m138! (class (m39)) (member b3)) (m137! (class (m82 (lex furniture))) (member (m51 (lex Round Table)))) (m136! (class (m52 (lex table))) (member (m51))) (m135! (class (m57 (lex sword))) (member b4)) (m134! (class (m43 (lex wizard))) (member b5)) (m133! (class (m39)) (member b5)) (m132! (class (m45 (lex knight))) (member b6)) (m131! (class (m39)) (member b6)) (m130! (class (m45)) (member b7)) (m129! (class (m39)) (member b7)) (m128! (class (m45)) (member b8)) (m127! (class (m39)) (member b8)) (m126! (class (m41)) (member b9)) (m125! (class (m39)) (member b9)) (m124! (class (m41)) (member b10)) (m123! (class (m39)) (member b10)) (m122! (class (m41)) (member b11)) (m121! (class (m39)) (member b11)) (m120! (class (m20)) (member (m85 (lex chair)))) (m119! (class (m20)) (member (m52))) (m118! (class (m90)) (member (m89 (lex white)))) (m117! (class (m90)) (member (m92 (lex black)))) (m116! (class (m95 (lex size))) (member (m94 (lex small)))) (m115! (class (m95)) (member (m99 (lex large)))) (m40! (class (m39)) (member b2)) (m37! (class (m29)) (member b1)) (m214! m149! m148! m147! m146! m145! m144! m143! m142! m141! m140! m139! m138! m137! m136! m135! m134! m133! m132! m131! m130! m129! m128! m127! m126! m125! m124! m123! m122! m121! m120! m119! m118! m117! m116! m115! m40! m37!) CPU time : 0.31 * ;; Newly inferred information: ;; ;; None. ; If a member of some class has a property that is a size, ; then the class that it is a member of is a subclass of 'physical object' (describe (add forall (*thing *prop *foo) &ant ((build member *foo class *thing) (build object *foo property *prop) (build member *prop class (build lex "size"))) cq (build subclass *thing superclass (build lex "phys obj")) kn_cat "intrinsic")) (m215! (forall v12 v11 v10) (&ant (p42 (class (m95 (lex size))) (member v11)) (p36 (object v12) (property v11)) (p35 (class v10) (member v12))) (cq (p38 (subclass v10) (superclass (m2 (lex phys obj))))) (kn_cat intrinsic)) (m116! (class (m95)) (member (m94 (lex small)))) (m115! (class (m95)) (member (m99 (lex large)))) (m215! m116! m115!) CPU time : 0.08 * ;; Newly inferred information: ;; ;; None. ; A weapon damages (describe (add forall $weapon1 ant (build member *weapon1 class (build lex "weapon")) cq (build agent *weapon1 act (build action (build lex "damage"))) kn_cat "life-rule.1")) (m218! (forall v13) (ant (p46 (class (m104 (lex weapon))) (member v13))) (cq (p47 (act (m217 (action (m216 (lex damage))))) (agent v13))) (kn_cat life-rule.1)) (m218!) CPU time : 0.05 * ;; Newly inferred information: ;; ;; None. ; If something is an elder then that thing is old and is presumably a person (describe (add forall $eld1 ant (build member *eld1 class (build lex "elder")) cq ((build object *eld1 property (build lex "old")) (build mode (build lex "presumably") object (build member *eld1 class (build lex "person")))) kn_cat "life-rule.1")) (m221! (forall v14) (ant (p51 (class (m219 (lex elder))) (member v14))) (cq (p54 (mode (m152 (lex presumably))) (object (p53 (class (m39 (lex person))) (member v14)))) (p52 (object v14) (property (m220 (lex old))))) (kn_cat life-rule.1)) (m221!) CPU time : 0.05 * ;; Newly inferred information: ;; ;; None. ; if one thing chases another, the former runs behind the latter (describe (add forall ($chaser $chasee) ant (build agent *chaser act (build action (build lex "chase") object *chasee)) cq ((build agent *chaser act (build action (build lex "run"))) (build object1 *chaser rel (build lex "behind") object2 *chasee)) kn_cat "life-rule.1")) (m226! (forall v16 v15) (ant (p59 (act (p58 (action (m222 (lex chase))) (object v16))) (agent v15))) (cq (p61 (object1 v15) (object2 v16) (rel (m225 (lex behind)))) (p60 (act (m224 (action (m223 (lex run))))) (agent v15))) (kn_cat life-rule.1)) (m226!) CPU time : 0.03 * ;; Newly inferred information: ;; ;; None. End of /projects/stn2/CVA/demos/brachet.base demonstration. CPU time : 2.14 * ^^ --> ;;;(sneps::sneps-setup) (atnin "Falltempgram.lisp") agent is already defined. act is already defined. action is already defined. object is already defined. member is already defined. class is already defined. lex is already defined. subclass is already defined. superclass is already defined. stime is already defined. etime is already defined. before is already defined. after is already defined. event is already defined. rel is already defined. property is already defined. into is already defined. sp-rel is already defined. location is already defined. to is already defined. direction is already defined. place is already defined. mode is already defined. possessor is already defined. equiv is already defined. to is already defined. kn_cat is already defined. State s processed. State sin processed. State stk processed. State stk/end processed. State s1 processed. State s/init processed. State ps processed. State s/subj processed. State s/is processed. State s/isnoun processed. State s/isadj processed. State s/isnamed processed. State s/rule processed. State vp/passv processed. State vp processed. State vp/v processed. State pp processed. State pp/end processed. State s/final processed. State s/finis processed. State s/end processed. State np processed. State nppos processed. State npa processed. State np/art processed. State nomprop processed. State n/ref processed. State np/n processed. State np/end processed. State respond processed. State resp/end processed. State g processed. State gs processed. State gposs/p processed. State gposs/rel processed. State gequiv processed. State gequivrest processed. State gequivend processed. State gsubsup processed. State g/member processed. State gprop processed. State gloc processed. State gloc2 processed. State g/arg1 processed. State g/sqce processed. State g/sqce2 processed. State g/subj processed. State g/v processed. State g/obj processed. State g/end processed. State gnp processed. State gstring processed. State gdefcat processed. State gdefcat1 processed. State gcat processed. State gnp/end processed. State flush processed. Missing (or NIL) form in state gequivend on arc: (pop nil t) Missing (or NIL) form in state g/end on arc: (pop nil t) Missing (or NIL) form in state gnp/end on arc: (pop nil t) Missing (or NIL) form in state flush on arc: (pop nil t) Missing (or NIL) form in state resp/end on arc: (pop nil t (say ".")) Atnin read in states: (flush gnp/end gcat gdefcat1 gdefcat gstring gnp g/end g/obj g/v g/subj g/sqce2 g/sqce g/arg1 gloc2 gloc gprop g/member gsubsup gequivend gequivrest gequiv gposs/rel gposs/p gs g resp/end respond np/end np/n n/ref nomprop np/art npa nppos np s/end s/finis s/final pp/end pp vp/v vp vp/passv s/rule s/isnamed s/isadj s/isnoun s/is s/subj ps s/init s1 stk/end stk sin s nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil) --> (lexin "Klexicon.lisp") undefined- (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil) ("blue" "green" "orange" "red" "violet" "yellow" "young" "clever" "carnivorous" "smart" "sweet" "rich" "old" "fat" "stupid" "white" "group" "black" "next" "round" "there" "a" "an" "the" "every" "King Arthur" "Round Table" "Sir Tor" "Sir Gawain" "Merlin" "dwarf" "elder" "hall" "buttock" "knight" "lady" "Round" "sir" "Sir" "king" "King" "dogs" "hound" "hounds" "hart" "horse" "pavilion" "brachet" "girl" "boy" "cat" "dog" "mammal" "manx" "Computer Science" "John" "Mary" "Bob" "Bill" "Rover" "computer" "Computer" "man" "men" "woman" "women" "person" "people" "animal" "pet" "professor" "he" "her" "him" "I" "it" "me" "she" "they" "them" "us" "we" "you" "myself" "yourself" "yourselves" "himself" "herself" "Cassie" "Fred" "John" "Lucy" "Oscar" "picksup" "arise" "arose" "pick" "pick" "picked" "ride" "rode" "mount" "mounted" "carry" "carried" "run" "ran" "take" "took" "say" "said" "define" "want" "must" "will" "chase" "seek" "spy" "know" "spies" "give" "bay" "find" "bring" "belong" "are" "is" "live" "own" "pet" "saw" "see" "was" "were" "sleep" "slept" "believe" "bit" "bite" "like" "study" "use" "love" "dislike" "hate" "did" "does" "do" "life" "story" "who" "what" "into" "to" "of" "behind" "in" "at" "nextto" "that") --> ;;; ;;; Declare the primitive actions ;;; (attach-primaction believe believe (= (build lex "defnoun") defnoun) defN) t --> ^^ CPU time : 0.44 * (describe (assert whenever (build agent *I act (build action (build lex "definingnoun"))) do (build action *defnoun object1 "brachet"))) (m232! (do (m231 (action (m227 (lex defnoun))) (object1 brachet))) (whenever (m230 (act (m229 (action (m228 (lex definingnoun)))))))) (m232!) CPU time : 0.01 * ^^( --> parse 7) ATN parser initialization... Trace level = 7. Beginning at state 's'. Input sentences in normal English orthographic convention. Sentences may go beyond a line by having a space followed by a To exit the parser, write ^end. : A hart runs. Input sentence: ("A" "hart" "runs" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("a" "hart" "runs" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("a" "hart" "runs" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("a" "hart" "runs" ".") Registers: (* . "a"), (lex . "a") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("a" "hart" "runs" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("a" "hart" "runs" ".") Registers: (* . "a"), (lex . "a") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("a" "hart" "runs" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("a" "hart" "runs" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "hart" "runs" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "hart" "runs" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("hart" "runs" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hart" "runs" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("runs" ".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("runs" ".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("runs" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b13), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("runs" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b13), (def), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("runs" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b13), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("runs" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b13), (def), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b13 With Configuration: Level: 3 State: np/end String: ("runs" ".") Registers: (lex . "runs"), (* . "runs"), (gender m f n), (num . sing), (head . b13), (def), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("runs" ".") Registers: (mood . decl), (agent . b13), (* . b13), (num . sing), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("run" ".") Registers: (proptype . avo), (* . "run"), (lex . "runs"), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("run" ".") Registers: (proptype . avo), (* . "run"), (lex . "runs"), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: (".") Registers: (action . "run"), (* . "run"), (lex . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: (".") Registers: (action . "run"), (* . "run"), (lex . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Sendrs: (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Sendrs: (agent . b13) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: (".") Sendrs: (agent . b13), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: (".") Sendrs: (agent . b13), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: (".") Registers: (* . "."), (pron_case . acc), (mood . decl), (agent . b13), (lex . ".") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: (".") Registers: (* . "."), (pron_case . acc), (mood . decl), (agent . b13), (lex . ".") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (getr def) (getf basic)) (setr head (assert lex (^ (getr *)))) (liftr generic t) (setr num 'plur) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (getf basic)) (setr head (assert lex (^ (getr *)))) (liftr generic t) (setr num 'plur) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (getr generic) (getf basic)) ($ 'anydog) (liftr restr (build member (* 'anydog) class (build lex (^ (getr *))))) (setr head (* 'anydog)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr generic) (getf basic)) ($ 'anydog) (liftr restr (build member (* 'anydog) class (build lex (^ (getr *))))) (setr head (* 'anydog)) (setr gender (getf gender)) (to nppos)) Doing arc: (jump s/final t) JUMPing to state: s/final With Configuration: Level: 2 State: s/final String: (".") Registers: (* . "."), (lex . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (* . "."), (lex . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m235!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m235!)) Registers: (foo b13 m f n sing 6), (assertion . m235!), (* . m235!), (mood . decl), (proptype . avo), (lex . "a") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m235!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m235!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . nom), (lex . b13) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . nom), (lex . b13) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m224)) Registers: (tes . m235!), (* . m235!), (reg), (lex . m235!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) runs JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m224)) Registers: (* . m224), (lex . m224), (tes . m235!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m224)) Registers: (* . m224), (lex . m224), (tes . m235!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m235!) Registers: (* . m224), (lex . m224), (tes . m235!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m235!) Registers: (* . m224), (lex . m224), (tes . m235!), (reg) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m235!), (lex . m235!), (tes . m235!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m235!), (lex . m235!), (tes . m235!), (reg) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m235!), (tes . m235!), (reg) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m235!), (foo b13 m f n sing 6), (assertion . m235!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 6), (assertion . m235!), (mood . decl), (proptype . avo) Time (sec.): 0.54 : A white brachet is nextto the hart. Input sentence: ("A" "white" "brachet" "is" "nextto" "the" "hart" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "a"), (lex . "a") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "a"), (lex . "a") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Taking CAT arc on adj, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" "is" "nextto" "the" "hart" ".") Registers: (props . m89), (pron_case . nom), (mood . decl), (def), (lex . "white"), (* . "white") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" "is" "nextto" "the" "hart" ".") Registers: (props . m89), (pron_case . nom), (mood . decl), (def), (lex . "white"), (* . "white") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("is" "nextto" "the" "hart" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("is" "nextto" "the" "hart" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("is" "nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender . n), (num . sing), (head . b14), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("is" "nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender . n), (num . sing), (head . b14), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("is" "nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender . n), (num . sing), (head . b14), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("is" "nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender . n), (num . sing), (head . b14), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: ("is" "nextto" "the" "hart" ".") Registers: (lex . "is"), (* . "is"), (gender . n), (num . sing), (head . b14), (props . m89), (pron_case . nom), (mood . decl), (def) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("is" "nextto" "the" "hart" ".") Registers: (mood . decl), (agent . b14), (* . b14), (num . sing), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) TOing to state: s/is With Configuration: Level: 2 State: s/is String: ("nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/is String: ("nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd a t (to s/isnoun)) Blocked at arc: (wrd a t (to s/isnoun)) Doing arc: (cat n (and (getr generic) (overlap (getf num) 'plur)) (jump s/isnoun)) Blocked at arc: (cat n (and (getr generic) (overlap (getf num) 'plur)) (jump s/isnoun)) Doing arc: (cat v t (setr action *) (setr pass t) (to vp/passv)) Blocked at arc: (cat v t (setr action *) (setr pass t) (to vp/passv)) Doing arc: (cat av t (setr mod *) (liftr mod) (to s/is)) Blocked at arc: (cat av t (setr mod *) (liftr mod) (to s/is)) Doing arc: (cat adj t (jump s/isadj)) Blocked at arc: (cat adj t (jump s/isadj)) Doing arc: (wrd named t (to s/isnamed)) Blocked at arc: (wrd named t (to s/isnamed)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("be" "nextto" "the" "hart" ".") Registers: (proptype . avo), (* . "be"), (lex . "is"), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("be" "nextto" "the" "hart" ".") Registers: (proptype . avo), (* . "be"), (lex . "is"), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("nextto" "the" "hart" ".") Registers: (action . "be"), (* . "be"), (lex . "be"), (proptype . avo), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("nextto" "the" "hart" ".") Registers: (action . "be"), (* . "be"), (lex . "be"), (proptype . avo), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("nextto" "the" "hart" ".") Sendrs: (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("nextto" "the" "hart" ".") Sendrs: (agent . b14) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("the" "hart" ".") Registers: (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b14), (lex . "nextto") Liftrs: (rel . "nextto"), (nec . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("the" "hart" ".") Registers: (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b14), (lex . "nextto") Liftrs: (rel . "nextto"), (nec . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("the" "hart" ".") Registers: (lex . "the"), (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b14) Liftrs: (rel . "nextto"), (nec . true) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "hart" ".") Registers: (prepo . propo), (*), (nec . true), (rel . "nextto"), (lex . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "hart" ".") Sendrs: (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "hart" ".") Sendrs: (agent . b14) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "hart" ".") Sendrs: (agent . b14), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "hart" ".") Sendrs: (agent . b14), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("hart" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b14), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hart" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b14), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b13 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b13), (* . b13), (num . sing), (lex . "the"), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) location (build sp-rel (build lex ,(snepsulize (getr rel))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (getr nec) (nullr indobject))) POPing in state: s/end, a result: (m242!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m242!)) Registers: (foo b13 m f n sing 11), (assertion . m242!), (* . m242!), (mood . decl), (lex . "a") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m242!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m242!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) Blocked at arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) Doing arc: (rcall gnp (geta object) (and (geta object) (geta location)) (sendr case 'nom) reg (to gloc (geta location))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: gloc String: ((m241)) Registers: (* . m242!), (reg), (lex . m242!) Doing arc: (jump gloc2 (geta lex (geta sp-rel)) (say is) (say (geta lex (geta sp-rel)))) is nextto JUMPing to state: gloc2 With Configuration: Level: 2 State: gloc2 String: ((m241)) Registers: (* . m241), (lex . m241), (reg) Entering MAINLOOP with a configuration: Level: 2 State: gloc2 String: ((m241)) Registers: (* . m241), (lex . m241), (reg) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (to g/end)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . obj), (lex . b13) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . obj), (lex . b13) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m233), (mems . b13), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m241), (reg), (lex . m241) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m241), (reg) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m242!), (foo b13 m f n sing 11), (assertion . m242!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 11), (assertion . m242!), (mood . decl) Time (sec.): 0.73 : A black hound runs. Input sentence: ("A" "black" "hound" "runs" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("a" "black" "hound" "runs" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("a" "black" "hound" "runs" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("a" "black" "hound" "runs" ".") Registers: (* . "a"), (lex . "a") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("a" "black" "hound" "runs" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("a" "black" "hound" "runs" ".") Registers: (* . "a"), (lex . "a") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("a" "black" "hound" "runs" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("a" "black" "hound" "runs" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "black" "hound" "runs" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "black" "hound" "runs" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("black" "hound" "runs" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("black" "hound" "runs" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Taking CAT arc on adj, to state np/art. With Configuration: Level: 3 State: np/art String: ("hound" "runs" ".") Registers: (props . m92), (pron_case . nom), (mood . decl), (def), (lex . "black"), (* . "black") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hound" "runs" ".") Registers: (props . m92), (pron_case . nom), (mood . decl), (def), (lex . "black"), (* . "black") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("runs" ".") Registers: (gender m f n), (num . sing), (head . b15), (* . "hound"), (lex . "hound"), (props . m92), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("runs" ".") Registers: (gender m f n), (num . sing), (head . b15), (* . "hound"), (lex . "hound"), (props . m92), (pron_case . nom), (mood . decl), (def) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("runs" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b15), (props . m92), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("runs" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b15), (props . m92), (pron_case . nom), (mood . decl), (def) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("runs" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b15), (props . m92), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("runs" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b15), (props . m92), (pron_case . nom), (mood . decl), (def) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b15 With Configuration: Level: 3 State: np/end String: ("runs" ".") Registers: (lex . "runs"), (* . "runs"), (gender m f n), (num . sing), (head . b15), (props . m92), (pron_case . nom), (mood . decl), (def) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("runs" ".") Registers: (mood . decl), (agent . b15), (* . b15), (num . sing), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("run" ".") Registers: (proptype . avo), (* . "run"), (lex . "runs"), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("run" ".") Registers: (proptype . avo), (* . "run"), (lex . "runs"), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: (".") Registers: (action . "run"), (* . "run"), (lex . "run"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: (".") Registers: (action . "run"), (* . "run"), (lex . "run"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Sendrs: (agent . b15) Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Sendrs: (agent . b15) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: (".") Sendrs: (agent . b15), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: (".") Sendrs: (agent . b15), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: (".") Registers: (* . "."), (pron_case . acc), (mood . decl), (agent . b15), (lex . ".") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: (".") Registers: (* . "."), (pron_case . acc), (mood . decl), (agent . b15), (lex . ".") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (getr def) (getf basic)) (setr head (assert lex (^ (getr *)))) (liftr generic t) (setr num 'plur) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (getf basic)) (setr head (assert lex (^ (getr *)))) (liftr generic t) (setr num 'plur) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (getr generic) (getf basic)) ($ 'anydog) (liftr restr (build member (* 'anydog) class (build lex (^ (getr *))))) (setr head (* 'anydog)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr generic) (getf basic)) ($ 'anydog) (liftr restr (build member (* 'anydog) class (build lex (^ (getr *))))) (setr head (* 'anydog)) (setr gender (getf gender)) (to nppos)) Doing arc: (jump s/final t) JUMPing to state: s/final With Configuration: Level: 2 State: s/final String: (".") Registers: (* . "."), (lex . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (* . "."), (lex . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m245!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (action . "run"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m245!)) Registers: (foo b13 m f n sing 9), (assertion . m245!), (* . m245!), (mood . decl), (proptype . avo), (lex . "a") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m245!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m245!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b15) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b15) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b15) Registers: (adjdescr . done), (adj . black), (* . b15), (case . nom), (lex . b15) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b15) Registers: (adjdescr . done), (adj . black), (* . b15), (case . nom), (lex . b15) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m35) Registers: (* . b15), (lex . b15), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m35) Registers: (* . b15), (lex . b15), (adjdescr . done), (adj . black), (case . nom) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m35) Registers: (mems . b15), (* . m35), (lex . m35), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m35) Registers: (mems . b15), (* . m35), (lex . m35), (adjdescr . done), (adj . black), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the black JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m35) Registers: (* . m35), (lex . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m35) Registers: (* . m35), (lex . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hound TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m35), (lex . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m35), (lex . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m224)) Registers: (tes . m245!), (* . m245!), (reg), (lex . m245!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) runs JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m224)) Registers: (* . m224), (lex . m224), (tes . m245!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m224)) Registers: (* . m224), (lex . m224), (tes . m245!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m245!) Registers: (* . m224), (lex . m224), (tes . m245!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m245!) Registers: (* . m224), (lex . m224), (tes . m245!), (reg) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m245!), (lex . m245!), (tes . m245!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m245!), (lex . m245!), (tes . m245!), (reg) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m245!), (tes . m245!), (reg) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m245!), (foo b13 m f n sing 9), (assertion . m245!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 9), (assertion . m245!), (mood . decl), (proptype . avo) Time (sec.): 1.82 : The hound is behind the hart. Input sentence: ("The" "hound" "is" "behind" "the" "hart" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "hound" "is" "behind" "the" "hart" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "hound" "is" "behind" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "hound" "is" "behind" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "hound" "is" "behind" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "hound" "is" "behind" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "hound" "is" "behind" "the" "hart" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "hound" "is" "behind" "the" "hart" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "hound" "is" "behind" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "hound" "is" "behind" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("hound" "is" "behind" "the" "hart" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hound" "is" "behind" "the" "hart" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("is" "behind" "the" "hart" ".") Registers: (gender m f n), (num . sing), (head . b15), (* . "hound"), (lex . "hound"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("is" "behind" "the" "hart" ".") Registers: (gender m f n), (num . sing), (head . b15), (* . "hound"), (lex . "hound"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("is" "behind" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender m f n), (num . sing), (head . b15), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("is" "behind" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender m f n), (num . sing), (head . b15), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("is" "behind" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender m f n), (num . sing), (head . b15), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("is" "behind" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender m f n), (num . sing), (head . b15), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b15 With Configuration: Level: 3 State: np/end String: ("is" "behind" "the" "hart" ".") Registers: (lex . "is"), (* . "is"), (gender m f n), (num . sing), (head . b15), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("is" "behind" "the" "hart" ".") Registers: (mood . decl), (agent . b15), (* . b15), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) TOing to state: s/is With Configuration: Level: 2 State: s/is String: ("behind" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/is String: ("behind" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd a t (to s/isnoun)) Blocked at arc: (wrd a t (to s/isnoun)) Doing arc: (cat n (and (getr generic) (overlap (getf num) 'plur)) (jump s/isnoun)) Blocked at arc: (cat n (and (getr generic) (overlap (getf num) 'plur)) (jump s/isnoun)) Doing arc: (cat v t (setr action *) (setr pass t) (to vp/passv)) Blocked at arc: (cat v t (setr action *) (setr pass t) (to vp/passv)) Doing arc: (cat av t (setr mod *) (liftr mod) (to s/is)) Blocked at arc: (cat av t (setr mod *) (liftr mod) (to s/is)) Doing arc: (cat adj t (jump s/isadj)) Blocked at arc: (cat adj t (jump s/isadj)) Doing arc: (wrd named t (to s/isnamed)) Blocked at arc: (wrd named t (to s/isnamed)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("be" "behind" "the" "hart" ".") Registers: (proptype . avo), (* . "be"), (lex . "is"), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("be" "behind" "the" "hart" ".") Registers: (proptype . avo), (* . "be"), (lex . "is"), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("behind" "the" "hart" ".") Registers: (action . "be"), (* . "be"), (lex . "be"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("behind" "the" "hart" ".") Registers: (action . "be"), (* . "be"), (lex . "be"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("behind" "the" "hart" ".") Sendrs: (agent . b15) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("behind" "the" "hart" ".") Sendrs: (agent . b15) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("the" "hart" ".") Registers: (nec . true), (rel . "behind"), (* . "behind"), (agent . b15), (lex . "behind") Liftrs: (rel . "behind"), (nec . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("the" "hart" ".") Registers: (nec . true), (rel . "behind"), (* . "behind"), (agent . b15), (lex . "behind") Liftrs: (rel . "behind"), (nec . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("the" "hart" ".") Registers: (lex . "the"), (nec . true), (rel . "behind"), (* . "behind"), (agent . b15) Liftrs: (rel . "behind"), (nec . true) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "hart" ".") Registers: (prepo . propo), (*), (nec . true), (rel . "behind"), (lex . "behind"), (action . "be"), (proptype . avo), (mood . decl), (agent . b15), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "hart" ".") Sendrs: (agent . b15) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "hart" ".") Sendrs: (agent . b15) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "hart" ".") Sendrs: (agent . b15), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "hart" ".") Sendrs: (agent . b15), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("hart" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b15), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hart" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b15), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b15) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b15) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b15) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b15) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b15) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b15) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b13 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b15) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b13), (* . b13), (num . sing), (lex . "the"), (prepo . propo), (nec . true), (rel . "behind"), (action . "be"), (proptype . avo), (mood . decl), (agent . b15) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "behind"), (action . "be"), (proptype . avo), (mood . decl), (agent . b15) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "behind"), (action . "be"), (proptype . avo), (mood . decl), (agent . b15) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) location (build sp-rel (build lex ,(snepsulize (getr rel))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (getr nec) (nullr indobject))) POPing in state: s/end, a result: (m270!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "behind"), (action . "be"), (proptype . avo), (mood . decl), (agent . b15) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m270!)) Registers: (foo b13 m f n sing 14 b15 m f n sing 6), (assertion . m270!), (* . m270!), (mood . decl), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m270!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m270!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) Blocked at arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) Doing arc: (rcall gnp (geta object) (and (geta object) (geta location)) (sendr case 'nom) reg (to gloc (geta location))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b15) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b15) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b15) Registers: (adjdescr . done), (adj . black), (* . b15), (case . nom), (lex . b15) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b15) Registers: (adjdescr . done), (adj . black), (* . b15), (case . nom), (lex . b15) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m35) Registers: (* . b15), (lex . b15), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m35) Registers: (* . b15), (lex . b15), (adjdescr . done), (adj . black), (case . nom) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m35) Registers: (mems . b15), (* . m35), (lex . m35), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m35) Registers: (mems . b15), (* . m35), (lex . m35), (adjdescr . done), (adj . black), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the black JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m35) Registers: (* . m35), (lex . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m35) Registers: (* . m35), (lex . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hound TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m35), (lex . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m35), (lex . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m35), (mems . b15), (adjdescr . done), (adj . black), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: gloc String: ((m269)) Registers: (* . m270!), (reg), (lex . m270!) Doing arc: (jump gloc2 (geta lex (geta sp-rel)) (say is) (say (geta lex (geta sp-rel)))) is behind JUMPing to state: gloc2 With Configuration: Level: 2 State: gloc2 String: ((m269)) Registers: (* . m269), (lex . m269), (reg) Entering MAINLOOP with a configuration: Level: 2 State: gloc2 String: ((m269)) Registers: (* . m269), (lex . m269), (reg) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (to g/end)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . obj), (lex . b13) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . obj), (lex . b13) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m233), (mems . b13), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m269), (reg), (lex . m269) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m269), (reg) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m270!), (foo b13 m f n sing 14 b15 m f n sing 6), (assertion . m270!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 14 b15 m f n sing 6), (assertion . m270!), (mood . decl) Time (sec.): 0.72 : The hart is nextto Round Table. Input sentence: ("The" "hart" "is" "nextto" "Round" "Table" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "hart" "is" "nextto" "Round" "Table" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("hart" "is" "nextto" "Round" "Table" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hart" "is" "nextto" "Round" "Table" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("is" "nextto" "Round" "Table" ".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("is" "nextto" "Round" "Table" ".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("is" "nextto" "Round" "Table" ".") Registers: (* . "is"), (lex . "is"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("is" "nextto" "Round" "Table" ".") Registers: (* . "is"), (lex . "is"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("is" "nextto" "Round" "Table" ".") Registers: (* . "is"), (lex . "is"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("is" "nextto" "Round" "Table" ".") Registers: (* . "is"), (lex . "is"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b13 With Configuration: Level: 3 State: np/end String: ("is" "nextto" "Round" "Table" ".") Registers: (lex . "is"), (* . "is"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("is" "nextto" "Round" "Table" ".") Registers: (mood . decl), (agent . b13), (* . b13), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) TOing to state: s/is With Configuration: Level: 2 State: s/is String: ("nextto" "Round" "Table" ".") Registers: (* . "is"), (lex . "is"), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/is String: ("nextto" "Round" "Table" ".") Registers: (* . "is"), (lex . "is"), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd a t (to s/isnoun)) Blocked at arc: (wrd a t (to s/isnoun)) Doing arc: (cat n (and (getr generic) (overlap (getf num) 'plur)) (jump s/isnoun)) Blocked at arc: (cat n (and (getr generic) (overlap (getf num) 'plur)) (jump s/isnoun)) Doing arc: (cat v t (setr action *) (setr pass t) (to vp/passv)) Blocked at arc: (cat v t (setr action *) (setr pass t) (to vp/passv)) Doing arc: (cat av t (setr mod *) (liftr mod) (to s/is)) Blocked at arc: (cat av t (setr mod *) (liftr mod) (to s/is)) Doing arc: (cat adj t (jump s/isadj)) Blocked at arc: (cat adj t (jump s/isadj)) Doing arc: (wrd named t (to s/isnamed)) Blocked at arc: (wrd named t (to s/isnamed)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("be" "nextto" "Round" "Table" ".") Registers: (proptype . avo), (* . "be"), (lex . "is"), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("be" "nextto" "Round" "Table" ".") Registers: (proptype . avo), (* . "be"), (lex . "is"), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("nextto" "Round" "Table" ".") Registers: (action . "be"), (* . "be"), (lex . "be"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("nextto" "Round" "Table" ".") Registers: (action . "be"), (* . "be"), (lex . "be"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("nextto" "Round" "Table" ".") Sendrs: (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("nextto" "Round" "Table" ".") Sendrs: (agent . b13) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("Round" "Table" ".") Registers: (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b13), (lex . "nextto") Liftrs: (rel . "nextto"), (nec . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("Round" "Table" ".") Registers: (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b13), (lex . "nextto") Liftrs: (rel . "nextto"), (nec . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("Round" "Table" ".") Registers: (lex . "Round"), (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b13) Liftrs: (rel . "nextto"), (nec . true) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("Round" "Table" ".") Registers: (prepo . propo), (*), (nec . true), (rel . "nextto"), (lex . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("Round" "Table" ".") Sendrs: (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("Round" "Table" ".") Sendrs: (agent . b13) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Round" "Table" ".") Sendrs: (agent . b13), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Round" "Table" ".") Sendrs: (agent . b13), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Round" "Table" ".") Registers: (* . "Round"), (pron_case . acc), (mood . decl), (agent . b13), (lex . "Round") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Round" "Table" ".") Registers: (* . "Round"), (pron_case . acc), (mood . decl), (agent . b13), (lex . "Round") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Taking CAT arc on adj, to state np/art. With Configuration: Level: 3 State: np/art String: ("Table" ".") Registers: (props . m271), (agent . b13), (mood . decl), (pron_case . acc), (lex . "Round"), (* . "round") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Table" ".") Registers: (props . m271), (agent . b13), (mood . decl), (pron_case . acc), (lex . "Round"), (* . "round") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (getr def) (getf basic)) (setr head (assert lex (^ (getr *)))) (liftr generic t) (setr num 'plur) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (getf basic)) (setr head (assert lex (^ (getr *)))) (liftr generic t) (setr num 'plur) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (getr generic) (getf basic)) ($ 'anydog) (liftr restr (build member (* 'anydog) class (build lex (^ (getr *))))) (setr head (* 'anydog)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr generic) (getf basic)) ($ 'anydog) (liftr restr (build member (* 'anydog) class (build lex (^ (getr *))))) (setr head (* 'anydog)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . m), (num . sing), (head . b16), (* . "Round Table"), (lex . "Round"), (pron_case . acc), (mood . decl), (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . m), (num . sing), (head . b16), (* . "Round Table"), (lex . "Round"), (pron_case . acc), (mood . decl), (agent . b13) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head . b16), (pron_case . acc), (mood . decl), (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head . b16), (pron_case . acc), (mood . decl), (agent . b13) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head . b16), (pron_case . acc), (mood . decl), (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head . b16), (pron_case . acc), (mood . decl), (agent . b13) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b16 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . m), (num . sing), (head . b16), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b16), (* . b16), (num . sing), (lex . "Round"), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b13) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b16), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b13) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b16), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b13) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) location (build sp-rel (build lex ,(snepsulize (getr rel))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (getr nec) (nullr indobject))) POPing in state: s/end, a result: (m274!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b16), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b13) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m274!)) Registers: (foo b13 m f n sing 20 b16 m sing 5 b15 m f n sing 4), (assertion . m274!), (* . m274!), (mood . decl), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m274!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m274!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) Blocked at arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) Doing arc: (rcall gnp (geta object) (and (geta object) (geta location)) (sendr case 'nom) reg (to gloc (geta location))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . nom), (lex . b13) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . nom), (lex . b13) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: gloc String: ((m273)) Registers: (* . m274!), (reg), (lex . m274!) Doing arc: (jump gloc2 (geta lex (geta sp-rel)) (say is) (say (geta lex (geta sp-rel)))) is nextto JUMPing to state: gloc2 With Configuration: Level: 2 State: gloc2 String: ((m273)) Registers: (* . m273), (lex . m273), (reg) Entering MAINLOOP with a configuration: Level: 2 State: gloc2 String: ((m273)) Registers: (* . m273), (lex . m273), (reg) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (to g/end)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b16) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b16) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Round Table TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b16), (case . obj), (lex . b16) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b16), (case . obj), (lex . b16) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b16), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m273), (reg), (lex . m273) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m273), (reg) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m274!), (foo b13 m f n sing 20 b16 m sing 5 b15 m f n sing 4), (assertion . m274!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 20 b16 m sing 5 b15 m f n sing 4), (assertion . m274!), (mood . decl) Time (sec.): 0.61 : A knight arises. Input sentence: ("A" "knight" "arises" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("a" "knight" "arises" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("a" "knight" "arises" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("a" "knight" "arises" ".") Registers: (* . "a"), (lex . "a") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("a" "knight" "arises" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("a" "knight" "arises" ".") Registers: (* . "a"), (lex . "a") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("a" "knight" "arises" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("a" "knight" "arises" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "knight" "arises" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "knight" "arises" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("knight" "arises" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("knight" "arises" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("arises" ".") Registers: (gender . m), (num . sing), (head . b17), (* . "knight"), (lex . "knight"), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("arises" ".") Registers: (gender . m), (num . sing), (head . b17), (* . "knight"), (lex . "knight"), (def), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("arises" ".") Registers: (* . "arises"), (lex . "arises"), (gender . m), (num . sing), (head . b17), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("arises" ".") Registers: (* . "arises"), (lex . "arises"), (gender . m), (num . sing), (head . b17), (def), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("arises" ".") Registers: (* . "arises"), (lex . "arises"), (gender . m), (num . sing), (head . b17), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("arises" ".") Registers: (* . "arises"), (lex . "arises"), (gender . m), (num . sing), (head . b17), (def), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b17 With Configuration: Level: 3 State: np/end String: ("arises" ".") Registers: (lex . "arises"), (* . "arises"), (gender . m), (num . sing), (head . b17), (def), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("arises" ".") Registers: (mood . decl), (agent . b17), (* . b17), (num . sing), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("arise" ".") Registers: (proptype . avo), (* . "arise"), (lex . "arises"), (mood . decl), (agent . b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("arise" ".") Registers: (proptype . avo), (* . "arise"), (lex . "arises"), (mood . decl), (agent . b17), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: (".") Registers: (action . "arise"), (* . "arise"), (lex . "arise"), (proptype . avo), (mood . decl), (agent . b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: (".") Registers: (action . "arise"), (* . "arise"), (lex . "arise"), (proptype . avo), (mood . decl), (agent . b17), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Sendrs: (agent . b17) Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Sendrs: (agent . b17) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: (".") Sendrs: (agent . b17), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: (".") Sendrs: (agent . b17), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: (".") Registers: (* . "."), (pron_case . acc), (mood . decl), (agent . b17), (lex . ".") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: (".") Registers: (* . "."), (pron_case . acc), (mood . decl), (agent . b17), (lex . ".") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (getr def) (getf basic)) (setr head (assert lex (^ (getr *)))) (liftr generic t) (setr num 'plur) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (getf basic)) (setr head (assert lex (^ (getr *)))) (liftr generic t) (setr num 'plur) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (getr generic) (getf basic)) ($ 'anydog) (liftr restr (build member (* 'anydog) class (build lex (^ (getr *))))) (setr head (* 'anydog)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr generic) (getf basic)) ($ 'anydog) (liftr restr (build member (* 'anydog) class (build lex (^ (getr *))))) (setr head (* 'anydog)) (setr gender (getf gender)) (to nppos)) Doing arc: (jump s/final t) JUMPing to state: s/final With Configuration: Level: 2 State: s/final String: (".") Registers: (* . "."), (lex . "."), (action . "arise"), (proptype . avo), (mood . decl), (agent . b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (* . "."), (lex . "."), (action . "arise"), (proptype . avo), (mood . decl), (agent . b17), (num . sing) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (action . "arise"), (proptype . avo), (mood . decl), (agent . b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (action . "arise"), (proptype . avo), (mood . decl), (agent . b17), (num . sing) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m278!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (action . "arise"), (proptype . avo), (mood . decl), (agent . b17), (num . sing) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m278!)) Registers: (foo b13 m f n sing 18 b17 m sing 6 b16 m sing 3 b15 m f n sing 2), (assertion . m278!), (* . m278!), (mood . decl), (proptype . avo), (lex . "a") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m278!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m278!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b17) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b17) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m45) Registers: (* . b17), (case . nom), (lex . b17) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m45) Registers: (* . b17), (case . nom), (lex . b17) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m45) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m45) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m45) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m45) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) knight TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m277)) Registers: (tes . m278!), (* . m278!), (reg), (lex . m278!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) arises JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m277)) Registers: (* . m277), (lex . m277), (tes . m278!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m277)) Registers: (* . m277), (lex . m277), (tes . m278!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m278!) Registers: (* . m277), (lex . m277), (tes . m278!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m278!) Registers: (* . m277), (lex . m277), (tes . m278!), (reg) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m278!), (lex . m278!), (tes . m278!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m278!), (lex . m278!), (tes . m278!), (reg) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m278!), (tes . m278!), (reg) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m278!), (foo b13 m f n sing 18 b17 m sing 6 b16 m sing 3 b15 m f n sing 2), (assertion . m278!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 18 b17 m sing 6 b16 m sing 3 b15 m f n sing 2), (assertion . m278!), (mood . decl), (proptype . avo) Time (sec.): 0.63 : The knight picksup the brachet. Input sentence: ("The" "knight" "picksup" "the" "brachet" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "knight" "picksup" "the" "brachet" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "knight" "picksup" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "knight" "picksup" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "knight" "picksup" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "knight" "picksup" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "knight" "picksup" "the" "brachet" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "knight" "picksup" "the" "brachet" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "knight" "picksup" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "knight" "picksup" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("knight" "picksup" "the" "brachet" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("knight" "picksup" "the" "brachet" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("picksup" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("picksup" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("picksup" "the" "brachet" ".") Registers: (* . "picksup"), (lex . "picksup"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("picksup" "the" "brachet" ".") Registers: (* . "picksup"), (lex . "picksup"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("picksup" "the" "brachet" ".") Registers: (* . "picksup"), (lex . "picksup"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("picksup" "the" "brachet" ".") Registers: (* . "picksup"), (lex . "picksup"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: (b8 b7 b6 b17) With Configuration: Level: 3 State: np/end String: ("picksup" "the" "brachet" ".") Registers: (lex . "picksup"), (* . "picksup"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("picksup" "the" "brachet" ".") Registers: (mood . decl), (agent b8 b7 b6 b17), (* b8 b7 b6 b17), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("picksup" "the" "brachet" ".") Registers: (proptype . avo), (* . "picksup"), (lex . "picksup"), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("picksup" "the" "brachet" ".") Registers: (proptype . avo), (* . "picksup"), (lex . "picksup"), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("the" "brachet" ".") Registers: (action . "picksup"), (* . "picksup"), (lex . "picksup"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "brachet" ".") Registers: (action . "picksup"), (* . "picksup"), (lex . "picksup"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "picksup"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "picksup"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "picksup"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m288!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b14), (num . sing), (action . "picksup"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m288!)) Registers: (foo b13 m f n sing 16 b8 b7 b6 b17 m sing 6 b14 n sing 5 b17 m sing 4 b16 m sing 1 b15 m f n sing 0), (assertion . m288!), (* . m288!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m288!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m288!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) knight TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (lex . b8), (* . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m287)) Registers: (tes . m288!), (* . m288!), (reg), (lex . m288!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) picksups JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m287)) Registers: (* . m287), (lex . m287), (tes . m288!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m287)) Registers: (* . m287), (lex . m287), (tes . m288!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m287)) Registers: (* . m287), (reg), (lex . m287), (tes . m288!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m287), (lex . m287), (reg), (tes . m288!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m287), (lex . m287), (reg), (tes . m288!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m287), (reg), (tes . m288!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m288!), (foo b13 m f n sing 16 b8 b7 b6 b17 m sing 6 b14 n sing 5 b17 m sing 4 b16 m sing 1 b15 m f n sing 0), (assertion . m288!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 16 b8 b7 b6 b17 m sing 6 b14 n sing 5 b17 m sing 4 b16 m sing 1 b15 m f n sing 0), (assertion . m288!), (mood . decl), (proptype . avo) Time (sec.): 0.74 : The knight carries the brachet. Input sentence: ("The" "knight" "carries" "the" "brachet" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "knight" "carries" "the" "brachet" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "knight" "carries" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "knight" "carries" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "knight" "carries" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "knight" "carries" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "knight" "carries" "the" "brachet" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "knight" "carries" "the" "brachet" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "knight" "carries" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "knight" "carries" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("knight" "carries" "the" "brachet" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("knight" "carries" "the" "brachet" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("carries" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("carries" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("carries" "the" "brachet" ".") Registers: (* . "carries"), (lex . "carries"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("carries" "the" "brachet" ".") Registers: (* . "carries"), (lex . "carries"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("carries" "the" "brachet" ".") Registers: (* . "carries"), (lex . "carries"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("carries" "the" "brachet" ".") Registers: (* . "carries"), (lex . "carries"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: (b8 b7 b6 b17) With Configuration: Level: 3 State: np/end String: ("carries" "the" "brachet" ".") Registers: (lex . "carries"), (* . "carries"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("carries" "the" "brachet" ".") Registers: (mood . decl), (agent b8 b7 b6 b17), (* b8 b7 b6 b17), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("carry" "the" "brachet" ".") Registers: (proptype . avo), (* . "carry"), (lex . "carries"), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("carry" "the" "brachet" ".") Registers: (proptype . avo), (* . "carry"), (lex . "carries"), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("the" "brachet" ".") Registers: (action . "carry"), (* . "carry"), (lex . "carry"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "brachet" ".") Registers: (action . "carry"), (* . "carry"), (lex . "carry"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "carry"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "carry"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "carry"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m291!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b14), (num . sing), (action . "carry"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m291!)) Registers: (foo b13 m f n sing 14 b14 n sing 10 b8 b7 b6 b17 m sing 6 b8 b7 b6 b17 m sing 4 b17 m sing 2 b15 m f n sing 0), (assertion . m291!), (* . m291!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m291!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m291!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) knight TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (lex . b8), (* . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m290)) Registers: (tes . m291!), (* . m291!), (reg), (lex . m291!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) carries JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m290)) Registers: (* . m290), (lex . m290), (tes . m291!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m290)) Registers: (* . m290), (lex . m290), (tes . m291!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m290)) Registers: (* . m290), (reg), (lex . m290), (tes . m291!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m290), (lex . m290), (reg), (tes . m291!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m290), (lex . m290), (reg), (tes . m291!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m290), (reg), (tes . m291!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m291!), (foo b13 m f n sing 14 b14 n sing 10 b8 b7 b6 b17 m sing 6 b8 b7 b6 b17 m sing 4 b17 m sing 2 b15 m f n sing 0), (assertion . m291!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 14 b14 n sing 10 b8 b7 b6 b17 m sing 6 b8 b7 b6 b17 m sing 4 b17 m sing 2 b15 m f n sing 0), (assertion . m291!), (mood . decl), (proptype . avo) Time (sec.): 0.6 : Sir Tor goes to a pavilion. Input sentence: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Sir" "Tor" "goes" "to" "a" "pavilion" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("goes" "to" "a" "pavilion" ".") Registers: (gender . m), (num . sing), (head . b18), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("goes" "to" "a" "pavilion" ".") Registers: (gender . m), (num . sing), (head . b18), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("goes" "to" "a" "pavilion" ".") Registers: (* . "goes"), (lex . "goes"), (gender . m), (num . sing), (head . b18), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("goes" "to" "a" "pavilion" ".") Registers: (* . "goes"), (lex . "goes"), (gender . m), (num . sing), (head . b18), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("goes" "to" "a" "pavilion" ".") Registers: (* . "goes"), (lex . "goes"), (gender . m), (num . sing), (head . b18), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("goes" "to" "a" "pavilion" ".") Registers: (* . "goes"), (lex . "goes"), (gender . m), (num . sing), (head . b18), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b18 With Configuration: Level: 3 State: np/end String: ("goes" "to" "a" "pavilion" ".") Registers: (lex . "goes"), (* . "goes"), (gender . m), (num . sing), (head . b18), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("goes" "to" "a" "pavilion" ".") Registers: (mood . decl), (agent . b18), (* . b18), (num . sing), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("go" "to" "a" "pavilion" ".") Registers: (proptype . avo), (* . "go"), (lex . "goes"), (mood . decl), (agent . b18), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("go" "to" "a" "pavilion" ".") Registers: (proptype . avo), (* . "go"), (lex . "goes"), (mood . decl), (agent . b18), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("to" "a" "pavilion" ".") Registers: (action . "go"), (* . "go"), (lex . "go"), (proptype . avo), (mood . decl), (agent . b18), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("to" "a" "pavilion" ".") Registers: (action . "go"), (* . "go"), (lex . "go"), (proptype . avo), (mood . decl), (agent . b18), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("to" "a" "pavilion" ".") Sendrs: (agent . b18) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("to" "a" "pavilion" ".") Sendrs: (agent . b18) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("a" "pavilion" ".") Registers: (to . true), (* . "to"), (agent . b18), (lex . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("a" "pavilion" ".") Registers: (to . true), (* . "to"), (agent . b18), (lex . "to") Liftrs: (to . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("a" "pavilion" ".") Registers: (lex . "a"), (to . true), (* . "to"), (agent . b18) Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("a" "pavilion" ".") Registers: (prepo . propo), (*), (to . true), (lex . "to"), (action . "go"), (proptype . avo), (mood . decl), (agent . b18), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("a" "pavilion" ".") Sendrs: (agent . b18) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("a" "pavilion" ".") Sendrs: (agent . b18) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "pavilion" ".") Sendrs: (agent . b18), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "pavilion" ".") Sendrs: (agent . b18), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("pavilion" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent . b18), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("pavilion" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent . b18), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b19), (* . "pavilion"), (lex . "pavilion"), (def), (pron_case . acc), (mood . decl), (agent . b18) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b19), (* . "pavilion"), (lex . "pavilion"), (def), (pron_case . acc), (mood . decl), (agent . b18) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def), (pron_case . acc), (mood . decl), (agent . b18) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def), (pron_case . acc), (mood . decl), (agent . b18) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def), (pron_case . acc), (mood . decl), (agent . b18) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def), (pron_case . acc), (mood . decl), (agent . b18) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b19 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b19), (def), (pron_case . acc), (mood . decl), (agent . b18) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b19), (* . b19), (num . sing), (lex . "a"), (prepo . propo), (to . true), (action . "go"), (proptype . avo), (mood . decl), (agent . b18) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b19), (num . sing), (prepo . propo), (to . true), (action . "go"), (proptype . avo), (mood . decl), (agent . b18) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b19), (num . sing), (prepo . propo), (to . true), (action . "go"), (proptype . avo), (mood . decl), (agent . b18) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) POPing in state: s/end, a result: (m296!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b19), (num . sing), (prepo . propo), (to . true), (action . "go"), (proptype . avo), (mood . decl), (agent . b18) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m296!)) Registers: (foo b13 m f n sing 12 b14 n sing 8 b18 m sing 6 b19 n sing 5 b8 b7 b6 b17 m sing 4 b8 b7 b6 b17 m sing 2 b17 m sing 0), (assertion . m296!), (* . m296!), (mood . decl), (lex . "Sir") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m296!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m296!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m296!) Registers: (two . two), (* . m296!), (lex . m296!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m296!) Registers: (two . two), (* . m296!), (lex . m296!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b18) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b18) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b18), (case . nom), (lex . b18) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b18), (case . nom), (lex . b18) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b18), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m295)) Registers: (tes . m296!), (* . m296!), (reg), (lex . m296!), (two . two) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) goes JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m295)) Registers: (* . m295), (lex . m295), (tes . m296!), (reg), (two . two) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m295)) Registers: (* . m295), (lex . m295), (tes . m296!), (reg), (two . two) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m296!) Registers: (* . m295), (lex . m295), (tes . m296!), (reg), (two . two) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m296!) Registers: (* . m295), (lex . m295), (tes . m296!), (reg), (two . two) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) to RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b19) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b19) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m293) Registers: (* . b19), (case . obj), (lex . b19) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m293) Registers: (* . b19), (case . obj), (lex . b19) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m293) Registers: (mems . b19), (* . m293), (lex . m293), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m293) Registers: (mems . b19), (* . m293), (lex . m293), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m293) Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m293) Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) pavilion TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m296!), (reg), (lex . m296!), (tes . m296!), (two . two) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m296!), (reg), (tes . m296!), (two . two) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m296!), (foo b13 m f n sing 12 b14 n sing 8 b18 m sing 6 b19 n sing 5 b8 b7 b6 b17 m sing 4 b8 b7 b6 b17 m sing 2 b17 m sing 0), (assertion . m296!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b13 m f n sing 12 b14 n sing 8 b18 m sing 6 b19 n sing 5 b8 b7 b6 b17 m sing 4 b8 b7 b6 b17 m sing 2 b17 m sing 0), (assertion . m296!), (mood . decl) Time (sec.): 0.58 : A lady says that the knight takes the brachet. Input sentence: ("A" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (* . "a"), (lex . "a") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (* . "a"), (lex . "a") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("lady" "says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b20 With Configuration: Level: 3 State: np/end String: ("says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (lex . "says"), (* . "says"), (gender . f), (num . sing), (head . b20), (def), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (mood . decl), (agent . b20), (* . b20), (num . sing), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "the" "knight" "takes" "the" "brachet" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "the" "knight" "takes" "the" "brachet" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "the" "knight" "takes" "the" "brachet" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "the" "knight" "takes" "the" "brachet" ".") Sendrs: (agent . b20) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "the" "knight" "takes" "the" "brachet" ".") Sendrs: (agent . b20) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "the" "knight" "takes" "the" "brachet" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "the" "knight" "takes" "the" "brachet" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("the" "knight" "takes" "the" "brachet" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("the" "knight" "takes" "the" "brachet" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("the" "knight" "takes" "the" "brachet" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("the" "knight" "takes" "the" "brachet" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "knight" "takes" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "knight" "takes" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("knight" "takes" "the" "brachet" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("knight" "takes" "the" "brachet" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: ("takes" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("takes" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("takes" "the" "brachet" ".") Registers: (* . "takes"), (lex . "takes"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("takes" "the" "brachet" ".") Registers: (* . "takes"), (lex . "takes"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("takes" "the" "brachet" ".") Registers: (* . "takes"), (lex . "takes"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("takes" "the" "brachet" ".") Registers: (* . "takes"), (lex . "takes"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: (b8 b7 b6 b17) With Configuration: Level: 5 State: np/end String: ("takes" "the" "brachet" ".") Registers: (lex . "takes"), (* . "takes"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("takes" "the" "brachet" ".") Registers: (mood . decl), (agent b8 b7 b6 b17), (* b8 b7 b6 b17), (num . sing), (embedded . t), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("take" "the" "brachet" ".") Registers: (proptype . avo), (* . "take"), (lex . "takes"), (mood . decl), (agent b8 b7 b6 b17), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("take" "the" "brachet" ".") Registers: (proptype . avo), (* . "take"), (lex . "takes"), (mood . decl), (agent b8 b7 b6 b17), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("the" "brachet" ".") Registers: (action . "take"), (* . "take"), (lex . "take"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("the" "brachet" ".") Registers: (action . "take"), (* . "take"), (lex . "take"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "brachet" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "take"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (embedded . t) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "take"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "take"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (embedded . t) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m301!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (object . b14), (num . sing), (action . "take"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (embedded . t) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m301!), (* . m301!), (mood . decl), (proptype . avo), (lex . "the"), (pron_case . acc), (agent . b20) Liftrs: (mod), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m301! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m301!), (* . m301!), (mood . decl), (proptype . avo), (pron_case . acc), (agent . b20) Liftrs: (num), (mod), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m301!), (* . m301!), (mood . decl), (mod), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m301!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m301!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m304!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m301!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m304!)) Registers: (foo b14 n sing 13 b13 m f n sing 10 b8 b7 b6 b17 m sing 6 b20 f sing 6 b18 m sing 4 b19 n sing 3 b8 b7 b6 b17 m sing 2 b8 b7 b6 b17 m sing 0), (assertion . m304!), (* . m304!), (mood . decl), (proptype . avo), (lex . "a") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m304!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m304!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) lady TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m303)) Registers: (tes . m304!), (* . m304!), (reg), (lex . m304!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m303)) Registers: (* . m303), (lex . m303), (tes . m304!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m303)) Registers: (* . m303), (lex . m303), (tes . m304!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m301!) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m301!) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 4 State: gs String: (m301!) Sendrs: (mod), (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m301!) Sendrs: (mod), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) knight TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: (b8 b7 b6) Registers: (lex . b8), (* . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 4 State: g/subj String: ((m300)) Registers: (tes . m301!), (* . m301!), (reg), (embedded . t), (mod), (lex . m301!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) takes JUMPing to state: g/v With Configuration: Level: 4 State: g/v String: ((m300)) Registers: (* . m300), (lex . m300), (tes . m301!), (reg), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/v String: ((m300)) Registers: (* . m300), (lex . m300), (tes . m301!), (reg), (embedded . t), (mod) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 5 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: ((m300)) Registers: (* . m300), (reg), (lex . m300), (tes . m301!), (embedded . t), (mod) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 4 State: g/end String: nil Registers: (* . m300), (lex . m300), (reg), (tes . m301!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: nil Registers: (* . m300), (lex . m300), (reg), (tes . m301!), (embedded . t), (mod) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 4 State: g/end String: nil Registers: (lex), (* . m300), (reg), (tes . m301!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (*), (case . obj), (lex . m301!) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (*), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m303)) Registers: (* . m303), (reg), (lex . m303), (tes . m304!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m303), (lex . m303), (reg), (tes . m304!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m303), (lex . m303), (reg), (tes . m304!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m303), (reg), (tes . m304!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m304!), (foo b14 n sing 13 b13 m f n sing 10 b8 b7 b6 b17 m sing 6 b20 f sing 6 b18 m sing 4 b19 n sing 3 b8 b7 b6 b17 m sing 2 b8 b7 b6 b17 m sing 0), (assertion . m304!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 13 b13 m f n sing 10 b8 b7 b6 b17 m sing 6 b20 f sing 6 b18 m sing 4 b19 n sing 3 b8 b7 b6 b17 m sing 2 b8 b7 b6 b17 m sing 0), (assertion . m304!), (mood . decl), (proptype . avo) Time (sec.): 0.98 : The lady sleeps in the pavilion. Input sentence: ("The" "lady" "sleeps" "in" "the" "pavilion" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "lady" "sleeps" "in" "the" "pavilion" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("lady" "sleeps" "in" "the" "pavilion" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("lady" "sleeps" "in" "the" "pavilion" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("sleeps" "in" "the" "pavilion" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("sleeps" "in" "the" "pavilion" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("sleeps" "in" "the" "pavilion" ".") Registers: (* . "sleeps"), (lex . "sleeps"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("sleeps" "in" "the" "pavilion" ".") Registers: (* . "sleeps"), (lex . "sleeps"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("sleeps" "in" "the" "pavilion" ".") Registers: (* . "sleeps"), (lex . "sleeps"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("sleeps" "in" "the" "pavilion" ".") Registers: (* . "sleeps"), (lex . "sleeps"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b20 With Configuration: Level: 3 State: np/end String: ("sleeps" "in" "the" "pavilion" ".") Registers: (lex . "sleeps"), (* . "sleeps"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("sleeps" "in" "the" "pavilion" ".") Registers: (mood . decl), (agent . b20), (* . b20), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("sleep" "in" "the" "pavilion" ".") Registers: (proptype . avo), (* . "sleep"), (lex . "sleeps"), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("sleep" "in" "the" "pavilion" ".") Registers: (proptype . avo), (* . "sleep"), (lex . "sleeps"), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("in" "the" "pavilion" ".") Registers: (action . "sleep"), (* . "sleep"), (lex . "sleep"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("in" "the" "pavilion" ".") Registers: (action . "sleep"), (* . "sleep"), (lex . "sleep"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("in" "the" "pavilion" ".") Sendrs: (agent . b20) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("in" "the" "pavilion" ".") Sendrs: (agent . b20) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (pla . true), (* . "in"), (agent . b20), (lex . "in") Liftrs: (pla . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (pla . true), (* . "in"), (agent . b20), (lex . "in") Liftrs: (pla . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (lex . "the"), (pla . true), (* . "in"), (agent . b20) Liftrs: (pla . true) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "pavilion" ".") Registers: (prepo . propo), (*), (pla . true), (lex . "in"), (action . "sleep"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "pavilion" ".") Sendrs: (agent . b20) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "pavilion" ".") Sendrs: (agent . b20) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "pavilion" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "pavilion" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("pavilion" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("pavilion" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b19), (* . "pavilion"), (lex . "pavilion"), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b19), (* . "pavilion"), (lex . "pavilion"), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b19 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b19), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b19), (* . b19), (num . sing), (lex . "the"), (prepo . propo), (pla . true), (action . "sleep"), (proptype . avo), (mood . decl), (agent . b20) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b19), (num . sing), (prepo . propo), (pla . true), (action . "sleep"), (proptype . avo), (mood . decl), (agent . b20) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b19), (num . sing), (prepo . propo), (pla . true), (action . "sleep"), (proptype . avo), (mood . decl), (agent . b20) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) POPing in state: s/end, a result: (m307!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b19), (num . sing), (prepo . propo), (pla . true), (action . "sleep"), (proptype . avo), (mood . decl), (agent . b20) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m307!)) Registers: (foo b20 f sing 12 b14 n sing 11 b19 n sing 8 b13 m f n sing 8 b8 b7 b6 b17 m sing 4 b18 m sing 2 b8 b7 b6 b17 m sing 0), (assertion . m307!), (* . m307!), (mood . decl), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m307!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m307!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m307!) Registers: (pla . plack), (* . m307!), (lex . m307!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m307!) Registers: (pla . plack), (* . m307!), (lex . m307!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) lady TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m306)) Registers: (tes . m307!), (* . m307!), (reg), (lex . m307!), (pla . plack) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) sleeps JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m306)) Registers: (* . m306), (lex . m306), (tes . m307!), (reg), (pla . plack) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m306)) Registers: (* . m306), (lex . m306), (tes . m307!), (reg), (pla . plack) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m307!) Registers: (* . m306), (lex . m306), (tes . m307!), (reg), (pla . plack) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m307!) Registers: (* . m306), (lex . m306), (tes . m307!), (reg), (pla . plack) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) in RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b19) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b19) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m293) Registers: (* . b19), (case . obj), (lex . b19) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m293) Registers: (* . b19), (case . obj), (lex . b19) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m293) Registers: (mems . b19), (* . m293), (lex . m293), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m293) Registers: (mems . b19), (* . m293), (lex . m293), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m293) Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m293) Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) pavilion TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m307!), (reg), (lex . m307!), (tes . m307!), (pla . plack) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m307!), (reg), (tes . m307!), (pla . plack) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m307!), (foo b20 f sing 12 b14 n sing 11 b19 n sing 8 b13 m f n sing 8 b8 b7 b6 b17 m sing 4 b18 m sing 2 b8 b7 b6 b17 m sing 0), (assertion . m307!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b20 f sing 12 b14 n sing 11 b19 n sing 8 b13 m f n sing 8 b8 b7 b6 b17 m sing 4 b18 m sing 2 b8 b7 b6 b17 m sing 0), (assertion . m307!), (mood . decl) Time (sec.): 0.78 : Sir Tor finds the lady in the pavilion. Input sentence: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Sir" "Tor" "finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (gender . m), (num . sing), (head . b21), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (gender . m), (num . sing), (head . b21), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "finds"), (lex . "finds"), (gender . m), (num . sing), (head . b21), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "finds"), (lex . "finds"), (gender . m), (num . sing), (head . b21), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "finds"), (lex . "finds"), (gender . m), (num . sing), (head . b21), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (* . "finds"), (lex . "finds"), (gender . m), (num . sing), (head . b21), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b21 With Configuration: Level: 3 State: np/end String: ("finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (lex . "finds"), (* . "finds"), (gender . m), (num . sing), (head . b21), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("finds" "the" "lady" "in" "the" "pavilion" ".") Registers: (mood . decl), (agent . b21), (* . b21), (num . sing), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("find" "the" "lady" "in" "the" "pavilion" ".") Registers: (proptype . avo), (* . "find"), (lex . "finds"), (mood . decl), (agent . b21), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("find" "the" "lady" "in" "the" "pavilion" ".") Registers: (proptype . avo), (* . "find"), (lex . "finds"), (mood . decl), (agent . b21), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("the" "lady" "in" "the" "pavilion" ".") Registers: (action . "find"), (* . "find"), (lex . "find"), (proptype . avo), (mood . decl), (agent . b21), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "lady" "in" "the" "pavilion" ".") Registers: (action . "find"), (* . "find"), (lex . "find"), (proptype . avo), (mood . decl), (agent . b21), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "lady" "in" "the" "pavilion" ".") Sendrs: (agent . b21) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "lady" "in" "the" "pavilion" ".") Sendrs: (agent . b21) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "lady" "in" "the" "pavilion" ".") Sendrs: (agent . b21), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "lady" "in" "the" "pavilion" ".") Sendrs: (agent . b21), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("lady" "in" "the" "pavilion" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b21), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("lady" "in" "the" "pavilion" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b21), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("in" "the" "pavilion" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def . t), (pron_case . acc), (mood . decl), (agent . b21) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("in" "the" "pavilion" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def . t), (pron_case . acc), (mood . decl), (agent . b21) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("in" "the" "pavilion" ".") Registers: (* . "in"), (lex . "in"), (gender . f), (num . sing), (head . b20), (def . t), (pron_case . acc), (mood . decl), (agent . b21) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("in" "the" "pavilion" ".") Registers: (* . "in"), (lex . "in"), (gender . f), (num . sing), (head . b20), (def . t), (pron_case . acc), (mood . decl), (agent . b21) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("in" "the" "pavilion" ".") Registers: (* . "in"), (lex . "in"), (gender . f), (num . sing), (head . b20), (def . t), (pron_case . acc), (mood . decl), (agent . b21) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("in" "the" "pavilion" ".") Registers: (* . "in"), (lex . "in"), (gender . f), (num . sing), (head . b20), (def . t), (pron_case . acc), (mood . decl), (agent . b21) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b20 With Configuration: Level: 3 State: np/end String: ("in" "the" "pavilion" ".") Registers: (lex . "in"), (* . "in"), (gender . f), (num . sing), (head . b20), (def . t), (pron_case . acc), (mood . decl), (agent . b21) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: ("in" "the" "pavilion" ".") Registers: (object . b20), (* . b20), (num . sing), (lex . "the"), (action . "find"), (proptype . avo), (mood . decl), (agent . b21) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("in" "the" "pavilion" ".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("in" "the" "pavilion" ".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (pla . true), (* . "in"), (lex . "in") Liftrs: (pla . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (pla . true), (* . "in"), (lex . "in") Liftrs: (pla . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (lex . "the"), (pla . true), (* . "in") Liftrs: (pla . true) Entering MAINLOOP with a configuration: Level: 2 State: s/finis String: ("the" "pavilion" ".") Registers: (rel), (prepo . prepo), (*), (pla . true), (lex . "in"), (object . b20), (num . sing), (action . "find"), (proptype . avo), (mood . decl), (agent . b21) Liftrs: (mood . decl) Doing arc: (push np t (sendr mood) (sendr agent) (sendr object) (setr indobject *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "pavilion" ".") Sendrs: (object . b20), (agent . b21), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "pavilion" ".") Sendrs: (object . b20), (agent . b21), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("pavilion" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b21), (object . b20), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("pavilion" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b21), (object . b20), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b19), (* . "pavilion"), (lex . "pavilion"), (def . t), (mood . decl), (agent . b21), (object . b20) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b19), (* . "pavilion"), (lex . "pavilion"), (def . t), (mood . decl), (agent . b21), (object . b20) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b21), (object . b20) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b21), (object . b20) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Blocked at arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Doing arc: (jump np/end t) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b21), (object . b20) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b21), (object . b20) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b19 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b21), (object . b20) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (indobject . b19), (* . b19), (num . sing), (lex . "the"), (rel), (prepo . prepo), (pla . true), (object . b20), (action . "find"), (proptype . avo), (mood . decl), (agent . b21) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (indobject . b19), (num . sing), (rel), (prepo . prepo), (pla . true), (object . b20), (action . "find"), (proptype . avo), (mood . decl), (agent . b21) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (indobject . b19), (num . sing), (rel), (prepo . prepo), (pla . true), (object . b20), (action . "find"), (proptype . avo), (mood . decl), (agent . b21) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) POPing in state: s/end, a result: (m311!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (indobject . b19), (num . sing), (rel), (prepo . prepo), (pla . true), (object . b20), (action . "find"), (proptype . avo), (mood . decl), (agent . b21) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m311!)) Registers: (foo b20 f sing 17 b14 n sing 9 b21 m sing 6 b19 n sing 6 b13 m f n sing 6 b8 b7 b6 b17 m sing 2 b18 m sing 0), (assertion . m311!), (* . m311!), (mood . decl), (lex . "Sir") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m311!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m311!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m311!) Registers: (pla . plack), (* . m311!), (lex . m311!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m311!) Registers: (pla . plack), (* . m311!), (lex . m311!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b21) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b21) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b21), (case . nom), (lex . b21) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b21), (case . nom), (lex . b21) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b21), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m310)) Registers: (tes . m311!), (* . m311!), (reg), (lex . m311!), (pla . plack) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) finds JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m310)) Registers: (* . m310), (lex . m310), (tes . m311!), (reg), (pla . plack) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m310)) Registers: (* . m310), (lex . m310), (tes . m311!), (reg), (pla . plack) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . obj), (lex . b20) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . obj), (lex . b20) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) lady TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m297), (mems . b20), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m310)) Registers: (* . m310), (reg), (lex . m310), (tes . m311!), (pla . plack) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) JUMPing to state: g/end With Configuration: Level: 2 State: g/end String: ((m310)) Registers: (* . m310), (lex . m310), (reg), (tes . m311!), (pla . plack) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: ((m310)) Registers: (* . m310), (lex . m310), (reg), (tes . m311!), (pla . plack) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m311!) Registers: (* . m311!), (lex . m310), (reg), (tes . m311!), (pla . plack) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m311!) Registers: (* . m311!), (lex . m310), (reg), (tes . m311!), (pla . plack) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) in RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b19) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b19) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m293) Registers: (* . b19), (case . obj), (lex . b19) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m293) Registers: (* . b19), (case . obj), (lex . b19) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m293) Registers: (mems . b19), (* . m293), (lex . m293), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m293) Registers: (mems . b19), (* . m293), (lex . m293), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m293) Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m293) Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) pavilion TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m311!), (reg), (lex . m311!), (tes . m311!), (pla . plack) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m311!), (reg), (tes . m311!), (pla . plack) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m311!), (foo b20 f sing 17 b14 n sing 9 b21 m sing 6 b19 n sing 6 b13 m f n sing 6 b8 b7 b6 b17 m sing 2 b18 m sing 0), (assertion . m311!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b20 f sing 17 b14 n sing 9 b21 m sing 6 b19 n sing 6 b13 m f n sing 6 b8 b7 b6 b17 m sing 2 b18 m sing 0), (assertion . m311!), (mood . decl) Time (sec.): 0.82 : Sir Tor finds the brachet in the pavilion. Input sentence: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Sir" "Tor" "finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (gender . m), (num . sing), (head . b22), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (gender . m), (num . sing), (head . b22), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "finds"), (lex . "finds"), (gender . m), (num . sing), (head . b22), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "finds"), (lex . "finds"), (gender . m), (num . sing), (head . b22), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "finds"), (lex . "finds"), (gender . m), (num . sing), (head . b22), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (* . "finds"), (lex . "finds"), (gender . m), (num . sing), (head . b22), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b22 With Configuration: Level: 3 State: np/end String: ("finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (lex . "finds"), (* . "finds"), (gender . m), (num . sing), (head . b22), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("finds" "the" "brachet" "in" "the" "pavilion" ".") Registers: (mood . decl), (agent . b22), (* . b22), (num . sing), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("find" "the" "brachet" "in" "the" "pavilion" ".") Registers: (proptype . avo), (* . "find"), (lex . "finds"), (mood . decl), (agent . b22), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("find" "the" "brachet" "in" "the" "pavilion" ".") Registers: (proptype . avo), (* . "find"), (lex . "finds"), (mood . decl), (agent . b22), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("the" "brachet" "in" "the" "pavilion" ".") Registers: (action . "find"), (* . "find"), (lex . "find"), (proptype . avo), (mood . decl), (agent . b22), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "brachet" "in" "the" "pavilion" ".") Registers: (action . "find"), (* . "find"), (lex . "find"), (proptype . avo), (mood . decl), (agent . b22), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "brachet" "in" "the" "pavilion" ".") Sendrs: (agent . b22) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "brachet" "in" "the" "pavilion" ".") Sendrs: (agent . b22) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "brachet" "in" "the" "pavilion" ".") Sendrs: (agent . b22), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "brachet" "in" "the" "pavilion" ".") Sendrs: (agent . b22), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" "in" "the" "pavilion" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b22), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" "in" "the" "pavilion" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b22), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("in" "the" "pavilion" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b22) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("in" "the" "pavilion" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b22) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("in" "the" "pavilion" ".") Registers: (* . "in"), (lex . "in"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b22) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("in" "the" "pavilion" ".") Registers: (* . "in"), (lex . "in"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b22) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("in" "the" "pavilion" ".") Registers: (* . "in"), (lex . "in"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b22) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("in" "the" "pavilion" ".") Registers: (* . "in"), (lex . "in"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b22) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: ("in" "the" "pavilion" ".") Registers: (lex . "in"), (* . "in"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b22) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: ("in" "the" "pavilion" ".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "find"), (proptype . avo), (mood . decl), (agent . b22) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("in" "the" "pavilion" ".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("in" "the" "pavilion" ".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (pla . true), (* . "in"), (lex . "in") Liftrs: (pla . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (pla . true), (* . "in"), (lex . "in") Liftrs: (pla . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("the" "pavilion" ".") Registers: (lex . "the"), (pla . true), (* . "in") Liftrs: (pla . true) Entering MAINLOOP with a configuration: Level: 2 State: s/finis String: ("the" "pavilion" ".") Registers: (rel), (prepo . prepo), (*), (pla . true), (lex . "in"), (object . b14), (num . sing), (action . "find"), (proptype . avo), (mood . decl), (agent . b22) Liftrs: (mood . decl) Doing arc: (push np t (sendr mood) (sendr agent) (sendr object) (setr indobject *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "pavilion" ".") Sendrs: (object . b14), (agent . b22), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "pavilion" ".") Sendrs: (object . b14), (agent . b22), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("pavilion" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b22), (object . b14), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("pavilion" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b22), (object . b14), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b19), (* . "pavilion"), (lex . "pavilion"), (def . t), (mood . decl), (agent . b22), (object . b14) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b19), (* . "pavilion"), (lex . "pavilion"), (def . t), (mood . decl), (agent . b22), (object . b14) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b22), (object . b14) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b22), (object . b14) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Blocked at arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Doing arc: (jump np/end t) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b22), (object . b14) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b22), (object . b14) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b19 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b19), (def . t), (mood . decl), (agent . b22), (object . b14) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (indobject . b19), (* . b19), (num . sing), (lex . "the"), (rel), (prepo . prepo), (pla . true), (object . b14), (action . "find"), (proptype . avo), (mood . decl), (agent . b22) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (indobject . b19), (num . sing), (rel), (prepo . prepo), (pla . true), (object . b14), (action . "find"), (proptype . avo), (mood . decl), (agent . b22) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (indobject . b19), (num . sing), (rel), (prepo . prepo), (pla . true), (object . b14), (action . "find"), (proptype . avo), (mood . decl), (agent . b22) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) POPing in state: s/end, a result: (m314!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (indobject . b19), (num . sing), (rel), (prepo . prepo), (pla . true), (object . b14), (action . "find"), (proptype . avo), (mood . decl), (agent . b22) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m314!)) Registers: (foo b20 f sing 15 b14 n sing 14 b22 m sing 6 b21 m sing 4 b19 n sing 4 b13 m f n sing 4 b8 b7 b6 b17 m sing 0), (assertion . m314!), (* . m314!), (mood . decl), (lex . "Sir") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m314!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m314!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m314!) Registers: (pla . plack), (* . m314!), (lex . m314!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m314!) Registers: (pla . plack), (* . m314!), (lex . m314!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b22) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b22) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b22), (case . nom), (lex . b22) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b22), (case . nom), (lex . b22) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b22), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m313)) Registers: (tes . m314!), (* . m314!), (reg), (lex . m314!), (pla . plack) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) finds JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m313)) Registers: (* . m313), (lex . m313), (tes . m314!), (reg), (pla . plack) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m313)) Registers: (* . m313), (lex . m313), (tes . m314!), (reg), (pla . plack) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m313)) Registers: (* . m313), (reg), (lex . m313), (tes . m314!), (pla . plack) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) JUMPing to state: g/end With Configuration: Level: 2 State: g/end String: ((m313)) Registers: (* . m313), (lex . m313), (reg), (tes . m314!), (pla . plack) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: ((m313)) Registers: (* . m313), (lex . m313), (reg), (tes . m314!), (pla . plack) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m314!) Registers: (* . m314!), (lex . m313), (reg), (tes . m314!), (pla . plack) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m314!) Registers: (* . m314!), (lex . m313), (reg), (tes . m314!), (pla . plack) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) in RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b19) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b19) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m293) Registers: (* . b19), (case . obj), (lex . b19) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m293) Registers: (* . b19), (case . obj), (lex . b19) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m293) Registers: (mems . b19), (* . m293), (lex . m293), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m293) Registers: (mems . b19), (* . m293), (lex . m293), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m293) Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m293) Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) pavilion TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m293), (lex . m293), (mems . b19), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m293), (mems . b19), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m314!), (reg), (lex . m314!), (tes . m314!), (pla . plack) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m314!), (reg), (tes . m314!), (pla . plack) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m314!), (foo b20 f sing 15 b14 n sing 14 b22 m sing 6 b21 m sing 4 b19 n sing 4 b13 m f n sing 4 b8 b7 b6 b17 m sing 0), (assertion . m314!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b20 f sing 15 b14 n sing 14 b22 m sing 6 b21 m sing 4 b19 n sing 4 b13 m f n sing 4 b8 b7 b6 b17 m sing 0), (assertion . m314!), (mood . decl) Time (sec.): 0.79 : The brachet bays at Sir Tor. Input sentence: ("The" "brachet" "bays" "at" "Sir" "Tor" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "brachet" "bays" "at" "Sir" "Tor" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" "bays" "at" "Sir" "Tor" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" "bays" "at" "Sir" "Tor" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("bays" "at" "Sir" "Tor" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("bays" "at" "Sir" "Tor" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("bays" "at" "Sir" "Tor" ".") Registers: (* . "bays"), (lex . "bays"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("bays" "at" "Sir" "Tor" ".") Registers: (* . "bays"), (lex . "bays"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("bays" "at" "Sir" "Tor" ".") Registers: (* . "bays"), (lex . "bays"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("bays" "at" "Sir" "Tor" ".") Registers: (* . "bays"), (lex . "bays"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: ("bays" "at" "Sir" "Tor" ".") Registers: (lex . "bays"), (* . "bays"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("bays" "at" "Sir" "Tor" ".") Registers: (mood . decl), (agent . b14), (* . b14), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("bay" "at" "Sir" "Tor" ".") Registers: (proptype . avo), (* . "bay"), (lex . "bays"), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("bay" "at" "Sir" "Tor" ".") Registers: (proptype . avo), (* . "bay"), (lex . "bays"), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("at" "Sir" "Tor" ".") Registers: (action . "bay"), (* . "bay"), (lex . "bay"), (proptype . avo), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("at" "Sir" "Tor" ".") Registers: (action . "bay"), (* . "bay"), (lex . "bay"), (proptype . avo), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("at" "Sir" "Tor" ".") Sendrs: (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("at" "Sir" "Tor" ".") Sendrs: (agent . b14) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("Sir" "Tor" ".") Registers: (dir . true), (* . "at"), (agent . b14), (lex . "at") Liftrs: (dir . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("Sir" "Tor" ".") Registers: (dir . true), (* . "at"), (agent . b14), (lex . "at") Liftrs: (dir . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("Sir" "Tor" ".") Registers: (lex . "Sir"), (dir . true), (* . "at"), (agent . b14) Liftrs: (dir . true) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("Sir" "Tor" ".") Registers: (prepo . propo), (*), (dir . true), (lex . "at"), (action . "bay"), (proptype . avo), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("Sir" "Tor" ".") Sendrs: (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("Sir" "Tor" ".") Sendrs: (agent . b14) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Sir" "Tor" ".") Sendrs: (agent . b14), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Sir" "Tor" ".") Sendrs: (agent . b14), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Sir" "Tor" ".") Registers: (* . "Sir"), (pron_case . acc), (mood . decl), (agent . b14), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Sir" "Tor" ".") Registers: (* . "Sir"), (pron_case . acc), (mood . decl), (agent . b14), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . m), (num . sing), (head . b23), (* . "Sir Tor"), (lex . "Sir"), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . m), (num . sing), (head . b23), (* . "Sir Tor"), (lex . "Sir"), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head . b23), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head . b23), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head . b23), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head . b23), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b23 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . m), (num . sing), (head . b23), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b23), (* . b23), (num . sing), (lex . "Sir"), (prepo . propo), (dir . true), (action . "bay"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b23), (num . sing), (prepo . propo), (dir . true), (action . "bay"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b23), (num . sing), (prepo . propo), (dir . true), (action . "bay"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) POPing in state: s/end, a result: (m317! m316!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b23), (num . sing), (prepo . propo), (dir . true), (action . "bay"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m317! m316!)) Registers: (foo b14 n sing 20 b20 f sing 13 b23 m sing 5 b22 m sing 4 b21 m sing 2 b19 n sing 2 b13 m f n sing 2), (assertion m317! m316!), (* m317! m316!), (mood . decl), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m317! m316!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m317! m316!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m113) m316!) Registers: (tes . m317!), (* . m317!), (reg), (lex . m317!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) bays JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m113) m316!) Registers: (* . m113), (lex . m113), (tes . m317!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m113) m316!) Registers: (* . m113), (lex . m113), (tes . m317!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m317! m316!) Registers: (* . m113), (lex . m113), (tes . m317!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m317! m316!) Registers: (* . m113), (lex . m113), (tes . m317!), (reg) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: (m316!) Registers: (* . m317!), (lex . m317!), (tes . m317!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: (m316!) Registers: (* . m317!), (lex . m317!), (tes . m317!), (reg) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m316!) Registers: (* . m316!), (lex . m316!), (tes . m317!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m316!) Registers: (* . m316!), (lex . m316!), (tes . m317!), (reg) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m316!) Registers: (dir . direc), (* . m316!), (lex . m316!), (tes . m317!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m316!) Registers: (dir . direc), (* . m316!), (lex . m316!), (tes . m317!), (reg) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m113)) Registers: (tes . m316!), (* . m316!), (reg), (lex . m316!), (dir . direc) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) bays JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m113)) Registers: (* . m113), (lex . m113), (tes . m316!), (reg), (dir . direc) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m113)) Registers: (* . m113), (lex . m113), (tes . m316!), (reg), (dir . direc) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m316!) Registers: (* . m113), (lex . m113), (tes . m316!), (reg), (dir . direc) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m316!) Registers: (* . m113), (lex . m113), (tes . m316!), (reg), (dir . direc) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) at RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b23) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b23) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b23), (case . obj), (lex . b23) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b23), (case . obj), (lex . b23) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b23), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m316!), (reg), (lex . m316!), (tes . m316!), (dir . direc) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m316!), (reg), (tes . m316!), (dir . direc) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex m317! m316!), (foo b14 n sing 20 b20 f sing 13 b23 m sing 5 b22 m sing 4 b21 m sing 2 b19 n sing 2 b13 m f n sing 2), (assertion m317! m316!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 20 b20 f sing 13 b23 m sing 5 b22 m sing 4 b21 m sing 2 b19 n sing 2 b13 m f n sing 2), (assertion m317! m316!), (mood . decl) Time (sec.): 0.87 : Sir Tor spies the brachet. Input sentence: ("Sir" "Tor" "spies" "the" "brachet" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Sir" "Tor" "spies" "the" "brachet" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Sir" "Tor" "spies" "the" "brachet" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Sir" "Tor" "spies" "the" "brachet" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Sir" "Tor" "spies" "the" "brachet" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Sir" "Tor" "spies" "the" "brachet" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Sir" "Tor" "spies" "the" "brachet" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Sir" "Tor" "spies" "the" "brachet" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Sir" "Tor" "spies" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Sir" "Tor" "spies" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Sir" "Tor" "spies" "the" "brachet" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Sir" "Tor" "spies" "the" "brachet" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("spies" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head . b24), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("spies" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head . b24), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("spies" "the" "brachet" ".") Registers: (* . "spies"), (lex . "spies"), (gender . m), (num . sing), (head . b24), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("spies" "the" "brachet" ".") Registers: (* . "spies"), (lex . "spies"), (gender . m), (num . sing), (head . b24), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("spies" "the" "brachet" ".") Registers: (* . "spies"), (lex . "spies"), (gender . m), (num . sing), (head . b24), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("spies" "the" "brachet" ".") Registers: (* . "spies"), (lex . "spies"), (gender . m), (num . sing), (head . b24), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b24 With Configuration: Level: 3 State: np/end String: ("spies" "the" "brachet" ".") Registers: (lex . "spies"), (* . "spies"), (gender . m), (num . sing), (head . b24), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("spies" "the" "brachet" ".") Registers: (mood . decl), (agent . b24), (* . b24), (num . sing), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("spy" "the" "brachet" ".") Registers: (proptype . avo), (* . "spy"), (lex . "spies"), (mood . decl), (agent . b24), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("spy" "the" "brachet" ".") Registers: (proptype . avo), (* . "spy"), (lex . "spies"), (mood . decl), (agent . b24), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("the" "brachet" ".") Registers: (action . "spy"), (* . "spy"), (lex . "spy"), (proptype . avo), (mood . decl), (agent . b24), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "brachet" ".") Registers: (action . "spy"), (* . "spy"), (lex . "spy"), (proptype . avo), (mood . decl), (agent . b24), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "brachet" ".") Sendrs: (agent . b24) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "brachet" ".") Sendrs: (agent . b24) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "brachet" ".") Sendrs: (agent . b24), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "brachet" ".") Sendrs: (agent . b24), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b24), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b24), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b24) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b24) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b24) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b24) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b24) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b24) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b24) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "spy"), (proptype . avo), (mood . decl), (agent . b24) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "spy"), (proptype . avo), (mood . decl), (agent . b24) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "spy"), (proptype . avo), (mood . decl), (agent . b24) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m321!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b14), (num . sing), (action . "spy"), (proptype . avo), (mood . decl), (agent . b24) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m321!)) Registers: (foo b14 n sing 25 b20 f sing 11 b24 m sing 6 b23 m sing 3 b22 m sing 2 b21 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m321!), (* . m321!), (mood . decl), (proptype . avo), (lex . "Sir") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m321!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m321!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b24) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b24) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b24), (case . nom), (lex . b24) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b24), (case . nom), (lex . b24) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b24), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m320)) Registers: (tes . m321!), (* . m321!), (reg), (lex . m321!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) spies JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m320)) Registers: (* . m320), (lex . m320), (tes . m321!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m320)) Registers: (* . m320), (lex . m320), (tes . m321!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m320)) Registers: (* . m320), (reg), (lex . m320), (tes . m321!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m320), (lex . m320), (reg), (tes . m321!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m320), (lex . m320), (reg), (tes . m321!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m320), (reg), (tes . m321!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m321!), (foo b14 n sing 25 b20 f sing 11 b24 m sing 6 b23 m sing 3 b22 m sing 2 b21 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m321!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 25 b20 f sing 11 b24 m sing 6 b23 m sing 3 b22 m sing 2 b21 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m321!), (mood . decl), (proptype . avo) Time (sec.): 0.42 : Sir Tor takes the brachet. Input sentence: ("Sir" "Tor" "takes" "the" "brachet" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Sir" "Tor" "takes" "the" "brachet" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Sir" "Tor" "takes" "the" "brachet" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Sir" "Tor" "takes" "the" "brachet" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Sir" "Tor" "takes" "the" "brachet" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Sir" "Tor" "takes" "the" "brachet" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Sir" "Tor" "takes" "the" "brachet" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Sir" "Tor" "takes" "the" "brachet" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Sir" "Tor" "takes" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Sir" "Tor" "takes" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Sir" "Tor" "takes" "the" "brachet" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Sir" "Tor" "takes" "the" "brachet" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("takes" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head . b25), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("takes" "the" "brachet" ".") Registers: (gender . m), (num . sing), (head . b25), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("takes" "the" "brachet" ".") Registers: (* . "takes"), (lex . "takes"), (gender . m), (num . sing), (head . b25), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("takes" "the" "brachet" ".") Registers: (* . "takes"), (lex . "takes"), (gender . m), (num . sing), (head . b25), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("takes" "the" "brachet" ".") Registers: (* . "takes"), (lex . "takes"), (gender . m), (num . sing), (head . b25), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("takes" "the" "brachet" ".") Registers: (* . "takes"), (lex . "takes"), (gender . m), (num . sing), (head . b25), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b25 With Configuration: Level: 3 State: np/end String: ("takes" "the" "brachet" ".") Registers: (lex . "takes"), (* . "takes"), (gender . m), (num . sing), (head . b25), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("takes" "the" "brachet" ".") Registers: (mood . decl), (agent . b25), (* . b25), (num . sing), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("take" "the" "brachet" ".") Registers: (proptype . avo), (* . "take"), (lex . "takes"), (mood . decl), (agent . b25), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("take" "the" "brachet" ".") Registers: (proptype . avo), (* . "take"), (lex . "takes"), (mood . decl), (agent . b25), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("the" "brachet" ".") Registers: (action . "take"), (* . "take"), (lex . "take"), (proptype . avo), (mood . decl), (agent . b25), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "brachet" ".") Registers: (action . "take"), (* . "take"), (lex . "take"), (proptype . avo), (mood . decl), (agent . b25), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "brachet" ".") Sendrs: (agent . b25) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "brachet" ".") Sendrs: (agent . b25) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "brachet" ".") Sendrs: (agent . b25), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "brachet" ".") Sendrs: (agent . b25), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b25), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b25), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b25) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b25) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b25) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b25) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b25) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b25) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b25) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "take"), (proptype . avo), (mood . decl), (agent . b25) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "take"), (proptype . avo), (mood . decl), (agent . b25) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "take"), (proptype . avo), (mood . decl), (agent . b25) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m323!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b14), (num . sing), (action . "take"), (proptype . avo), (mood . decl), (agent . b25) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m323!)) Registers: (foo b14 n sing 30 b20 f sing 9 b25 m sing 6 b24 m sing 4 b23 m sing 1 b22 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m323!), (* . m323!), (mood . decl), (proptype . avo), (lex . "Sir") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m323!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m323!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b25) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b25) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b25), (case . nom), (lex . b25) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b25), (case . nom), (lex . b25) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b25), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m300)) Registers: (tes . m323!), (* . m323!), (reg), (lex . m323!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) takes JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m300)) Registers: (* . m300), (lex . m300), (tes . m323!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m300)) Registers: (* . m300), (lex . m300), (tes . m323!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m300)) Registers: (* . m300), (reg), (lex . m300), (tes . m323!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m300), (lex . m300), (reg), (tes . m323!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m300), (lex . m300), (reg), (tes . m323!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m300), (reg), (tes . m323!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m323!), (foo b14 n sing 30 b20 f sing 9 b25 m sing 6 b24 m sing 4 b23 m sing 1 b22 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m323!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 30 b20 f sing 9 b25 m sing 6 b24 m sing 4 b23 m sing 1 b22 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m323!), (mood . decl), (proptype . avo) Time (sec.): 0.48 : A dwarf says that he knows that Sir Tor seeks the knight. Input sentence: ("A" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "a"), (lex . "a") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "a"), (lex . "a") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "a"), (lex . "a") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("dwarf" "says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (gender m f), (num . sing), (head . b26), (* . "dwarf"), (lex . "dwarf"), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (gender m f), (num . sing), (head . b26), (* . "dwarf"), (lex . "dwarf"), (def), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b26), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b26), (def), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b26), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b26), (def), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b26 With Configuration: Level: 3 State: np/end String: ("says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (lex . "says"), (* . "says"), (gender m f), (num . sing), (head . b26), (def), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (mood . decl), (agent . b26), (* . b26), (num . sing), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b26), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b26), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b26), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b26), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (agent . b26) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (agent . b26) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (agent . b26), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (agent . b26), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b26), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b26), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 5 State: np/art String: ("he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "he"), (mood . decl), (pron_case . nom), (lex . "he") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("he" "knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "he"), (mood . decl), (pron_case . nom), (lex . "he") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on pron, to state nppos. With Configuration: Level: 5 State: nppos String: ("knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (gender . m), (num . sing), (head . b26), (* . "he"), (lex . "he"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (gender . m), (num . sing), (head . b26), (* . "he"), (lex . "he"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "knows"), (lex . "knows"), (gender . m), (num . sing), (head . b26), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "knows"), (lex . "knows"), (gender . m), (num . sing), (head . b26), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "knows"), (lex . "knows"), (gender . m), (num . sing), (head . b26), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "knows"), (lex . "knows"), (gender . m), (num . sing), (head . b26), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b26 With Configuration: Level: 5 State: np/end String: ("knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (lex . "knows"), (* . "knows"), (gender . m), (num . sing), (head . b26), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("knows" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (mood . decl), (agent . b26), (* . b26), (num . sing), (embedded . t), (lex . "he") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("know" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (proptype . avo), (* . "know"), (lex . "knows"), (mood . decl), (agent . b26), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("know" "that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (proptype . avo), (* . "know"), (lex . "knows"), (mood . decl), (agent . b26), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (action . "know"), (* . "know"), (lex . "know"), (proptype . avo), (mood . decl), (agent . b26), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("that" "Sir" "Tor" "seeks" "the" "knight" ".") Registers: (action . "know"), (* . "know"), (lex . "know"), (proptype . avo), (mood . decl), (agent . b26), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (agent . b26) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (agent . b26) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (agent . b26), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("that" "Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (agent . b26), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 5 State: nomprop String: ("Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b26), (lex . "that") Entering MAINLOOP with a configuration: Level: 5 State: nomprop String: ("Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b26), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 6 State: ps String: ("Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 6 State: ps String: ("Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 7 State: np String: ("Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 7 State: np String: ("Sir" "Tor" "seeks" "the" "knight" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 7 State: np/art String: ("Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 7 State: np/art String: ("Sir" "Tor" "seeks" "the" "knight" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 7 State: nppos String: ("seeks" "the" "knight" ".") Registers: (gender . m), (num . sing), (head . b27), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 7 State: nppos String: ("seeks" "the" "knight" ".") Registers: (gender . m), (num . sing), (head . b27), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 7 State: np/n String: ("seeks" "the" "knight" ".") Registers: (* . "seeks"), (lex . "seeks"), (gender . m), (num . sing), (head . b27), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 7 State: np/n String: ("seeks" "the" "knight" ".") Registers: (* . "seeks"), (lex . "seeks"), (gender . m), (num . sing), (head . b27), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 7 State: np/end String: ("seeks" "the" "knight" ".") Registers: (* . "seeks"), (lex . "seeks"), (gender . m), (num . sing), (head . b27), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 7 State: np/end String: ("seeks" "the" "knight" ".") Registers: (* . "seeks"), (lex . "seeks"), (gender . m), (num . sing), (head . b27), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b27 With Configuration: Level: 7 State: np/end String: ("seeks" "the" "knight" ".") Registers: (lex . "seeks"), (* . "seeks"), (gender . m), (num . sing), (head . b27), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 6 State: s/subj String: ("seeks" "the" "knight" ".") Registers: (mood . decl), (agent . b27), (* . b27), (num . sing), (embedded . t), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 6 State: vp String: ("seek" "the" "knight" ".") Registers: (proptype . avo), (* . "seek"), (lex . "seeks"), (mood . decl), (agent . b27), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 6 State: vp String: ("seek" "the" "knight" ".") Registers: (proptype . avo), (* . "seek"), (lex . "seeks"), (mood . decl), (agent . b27), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 6 State: vp/v String: ("the" "knight" ".") Registers: (action . "seek"), (* . "seek"), (lex . "seek"), (proptype . avo), (mood . decl), (agent . b27), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 6 State: vp/v String: ("the" "knight" ".") Registers: (action . "seek"), (* . "seek"), (lex . "seek"), (proptype . avo), (mood . decl), (agent . b27), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 7 State: pp String: ("the" "knight" ".") Sendrs: (agent . b27) Entering MAINLOOP with a configuration: Level: 7 State: pp String: ("the" "knight" ".") Sendrs: (agent . b27) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 7 State: np String: ("the" "knight" ".") Sendrs: (agent . b27), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 7 State: np String: ("the" "knight" ".") Sendrs: (agent . b27), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 7 State: np/art String: ("knight" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b27), (lex . "the") Entering MAINLOOP with a configuration: Level: 7 State: np/art String: ("knight" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b27), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 7 State: nppos String: (".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (pron_case . acc), (mood . decl), (agent . b27) Entering MAINLOOP with a configuration: Level: 7 State: nppos String: (".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (pron_case . acc), (mood . decl), (agent . b27) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 7 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (pron_case . acc), (mood . decl), (agent . b27) Entering MAINLOOP with a configuration: Level: 7 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (pron_case . acc), (mood . decl), (agent . b27) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 7 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (pron_case . acc), (mood . decl), (agent . b27) Entering MAINLOOP with a configuration: Level: 7 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (pron_case . acc), (mood . decl), (agent . b27) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: (b8 b7 b6 b17) With Configuration: Level: 7 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (pron_case . acc), (mood . decl), (agent . b27) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 6 State: s/final String: (".") Registers: (object b8 b7 b6 b17), (* b8 b7 b6 b17), (num . sing), (lex . "the"), (action . "seek"), (proptype . avo), (mood . decl), (agent . b27), (embedded . t) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 7 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 7 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 6 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object b8 b7 b6 b17), (num . sing), (action . "seek"), (proptype . avo), (mood . decl), (agent . b27), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 6 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object b8 b7 b6 b17), (num . sing), (action . "seek"), (proptype . avo), (mood . decl), (agent . b27), (embedded . t) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m329!) With Configuration: Level: 6 State: s/end String: (".") Registers: (lex . "."), (* . "."), (object b8 b7 b6 b17), (num . sing), (action . "seek"), (proptype . avo), (mood . decl), (agent . b27), (embedded . t) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (head . m329!), (* . m329!), (mood . decl), (proptype . avo), (lex . "Sir"), (pron_case . acc), (agent . b26) Liftrs: (mod), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m329! With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (head . m329!), (* . m329!), (mood . decl), (proptype . avo), (pron_case . acc), (agent . b26) Liftrs: (num), (mod), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (object . m329!), (* . m329!), (mood . decl), (mod), (num), (lex . "that"), (action . "know"), (proptype . avo), (agent . b26), (embedded . t) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . m329!), (mood . decl), (mod), (num), (action . "know"), (proptype . avo), (agent . b26), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . m329!), (mood . decl), (mod), (num), (action . "know"), (proptype . avo), (agent . b26), (embedded . t) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m332!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (object . m329!), (mood . decl), (mod), (num), (action . "know"), (proptype . avo), (agent . b26), (embedded . t) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m332!), (* . m332!), (mood . decl), (proptype . avo), (lex . "he"), (pron_case . acc), (agent . b26) Liftrs: (mod), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m332! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m332!), (* . m332!), (mood . decl), (proptype . avo), (pron_case . acc), (agent . b26) Liftrs: (num), (mod), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m332!), (* . m332!), (mood . decl), (mod), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b26) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m332!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b26) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m332!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b26) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m334!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m332!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b26) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m334!)) Registers: (foo b14 n sing 28 b26 m sing 14 b20 f sing 7 b27 m sing 6 b8 b7 b6 b17 m sing 5 b25 m sing 4 b24 m sing 2 b22 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m334!), (* . m334!), (mood . decl), (proptype . avo), (lex . "a") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m334!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m334!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b26) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b26) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m324) Registers: (* . b26), (case . nom), (lex . b26) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m324) Registers: (* . b26), (case . nom), (lex . b26) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m324) Registers: (mems . b26), (* . m324), (lex . m324), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m324) Registers: (mems . b26), (* . m324), (lex . m324), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m324) Registers: (* . m324), (lex . m324), (mems . b26), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m324) Registers: (* . m324), (lex . m324), (mems . b26), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) dwarf TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m324), (lex . m324), (mems . b26), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m324), (lex . m324), (mems . b26), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m324), (mems . b26), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m333)) Registers: (tes . m334!), (* . m334!), (reg), (lex . m334!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m333)) Registers: (* . m333), (lex . m333), (tes . m334!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m333)) Registers: (* . m333), (lex . m333), (tes . m334!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m332!) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m332!) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 4 State: gs String: (m332!) Sendrs: (mod), (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m332!) Sendrs: (mod), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b26) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b26) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m324) Registers: (* . b26), (case . nom), (lex . b26) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m324) Registers: (* . b26), (case . nom), (lex . b26) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m324) Registers: (mems . b26), (* . m324), (lex . m324), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m324) Registers: (mems . b26), (* . m324), (lex . m324), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m324) Registers: (* . m324), (lex . m324), (mems . b26), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m324) Registers: (* . m324), (lex . m324), (mems . b26), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) dwarf TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m324), (lex . m324), (mems . b26), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m324), (lex . m324), (mems . b26), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m324), (mems . b26), (case . nom) Entering MAINLOOP with a configuration: Level: 4 State: g/subj String: ((m331)) Registers: (tes . m332!), (* . m332!), (reg), (embedded . t), (mod), (lex . m332!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) knows JUMPing to state: g/v With Configuration: Level: 4 State: g/v String: ((m331)) Registers: (* . m331), (lex . m331), (tes . m332!), (reg), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/v String: ((m331)) Registers: (* . m331), (lex . m331), (tes . m332!), (reg), (embedded . t), (mod) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (m329!) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (m329!) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 6 State: gs String: (m329!) Sendrs: (mod), (embedded . t) Entering MAINLOOP with a configuration: Level: 6 State: gs String: (m329!) Sendrs: (mod), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 7 State: gnp String: (b27) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 7 State: gnp String: (b27) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 7 State: gnp/end String: nil Registers: (* . b27), (case . nom), (lex . b27) Entering MAINLOOP with a configuration: Level: 7 State: gnp/end String: nil Registers: (* . b27), (case . nom), (lex . b27) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 7 State: gnp/end String: nil Registers: (lex), (* . b27), (case . nom) Entering MAINLOOP with a configuration: Level: 6 State: g/subj String: ((m328)) Registers: (tes . m329!), (* . m329!), (reg), (embedded . t), (mod), (lex . m329!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) seeks JUMPing to state: g/v With Configuration: Level: 6 State: g/v String: ((m328)) Registers: (* . m328), (lex . m328), (tes . m329!), (reg), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 6 State: g/v String: ((m328)) Registers: (* . m328), (lex . m328), (tes . m329!), (reg), (embedded . t), (mod) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 7 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 7 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 7 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . obj), (lex . b17) Entering MAINLOOP with a configuration: Level: 7 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . obj), (lex . b17) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 7 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . obj) Entering MAINLOOP with a configuration: Level: 7 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 7 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . obj) Entering MAINLOOP with a configuration: Level: 7 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) knight TOing to state: gnp/end With Configuration: Level: 7 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . obj) Entering MAINLOOP with a configuration: Level: 7 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 7 State: gnp/end String: (b8 b7 b6) Registers: (lex . b8), (* . m45), (mems b17 b8 b7 b6), (case . obj) Entering MAINLOOP with a configuration: Level: 6 State: g/obj String: ((m328)) Registers: (* . m328), (reg), (lex . m328), (tes . m329!), (embedded . t), (mod) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 6 State: g/end String: nil Registers: (* . m328), (lex . m328), (reg), (tes . m329!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 6 State: g/end String: nil Registers: (* . m328), (lex . m328), (reg), (tes . m329!), (embedded . t), (mod) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 6 State: g/end String: nil Registers: (lex), (* . m328), (reg), (tes . m329!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (*), (case . obj), (lex . m329!) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (*), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: ((m331)) Registers: (* . m331), (reg), (lex . m331), (tes . m332!), (embedded . t), (mod) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 4 State: g/end String: nil Registers: (* . m331), (lex . m331), (reg), (tes . m332!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: nil Registers: (* . m331), (lex . m331), (reg), (tes . m332!), (embedded . t), (mod) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 4 State: g/end String: nil Registers: (lex), (* . m331), (reg), (tes . m332!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (*), (case . obj), (lex . m332!) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (*), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m333)) Registers: (* . m333), (reg), (lex . m333), (tes . m334!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m333), (lex . m333), (reg), (tes . m334!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m333), (lex . m333), (reg), (tes . m334!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m333), (reg), (tes . m334!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m334!), (foo b14 n sing 28 b26 m sing 14 b20 f sing 7 b27 m sing 6 b8 b7 b6 b17 m sing 5 b25 m sing 4 b24 m sing 2 b22 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m334!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 28 b26 m sing 14 b20 f sing 7 b27 m sing 6 b8 b7 b6 b17 m sing 5 b25 m sing 4 b24 m sing 2 b22 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m334!), (mood . decl), (proptype . avo) Time (sec.): 1.44 : Sir Tor gives the brachet to the dwarf. Input sentence: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Sir" "Tor" "gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (gender . m), (num . sing), (head . b28), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (gender . m), (num . sing), (head . b28), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "gives"), (lex . "gives"), (gender . m), (num . sing), (head . b28), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "gives"), (lex . "gives"), (gender . m), (num . sing), (head . b28), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "gives"), (lex . "gives"), (gender . m), (num . sing), (head . b28), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (* . "gives"), (lex . "gives"), (gender . m), (num . sing), (head . b28), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b28 With Configuration: Level: 3 State: np/end String: ("gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (lex . "gives"), (* . "gives"), (gender . m), (num . sing), (head . b28), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("gives" "the" "brachet" "to" "the" "dwarf" ".") Registers: (mood . decl), (agent . b28), (* . b28), (num . sing), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("give" "the" "brachet" "to" "the" "dwarf" ".") Registers: (proptype . avo), (* . "give"), (lex . "gives"), (mood . decl), (agent . b28), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("give" "the" "brachet" "to" "the" "dwarf" ".") Registers: (proptype . avo), (* . "give"), (lex . "gives"), (mood . decl), (agent . b28), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("the" "brachet" "to" "the" "dwarf" ".") Registers: (action . "give"), (* . "give"), (lex . "give"), (proptype . avo), (mood . decl), (agent . b28), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "brachet" "to" "the" "dwarf" ".") Registers: (action . "give"), (* . "give"), (lex . "give"), (proptype . avo), (mood . decl), (agent . b28), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "brachet" "to" "the" "dwarf" ".") Sendrs: (agent . b28) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "brachet" "to" "the" "dwarf" ".") Sendrs: (agent . b28) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "brachet" "to" "the" "dwarf" ".") Sendrs: (agent . b28), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "brachet" "to" "the" "dwarf" ".") Sendrs: (agent . b28), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" "to" "the" "dwarf" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b28), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" "to" "the" "dwarf" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b28), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("to" "the" "dwarf" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b28) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("to" "the" "dwarf" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b28) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("to" "the" "dwarf" ".") Registers: (* . "to"), (lex . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b28) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("to" "the" "dwarf" ".") Registers: (* . "to"), (lex . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b28) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("to" "the" "dwarf" ".") Registers: (* . "to"), (lex . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b28) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("to" "the" "dwarf" ".") Registers: (* . "to"), (lex . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b28) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: ("to" "the" "dwarf" ".") Registers: (lex . "to"), (* . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b28) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: ("to" "the" "dwarf" ".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "give"), (proptype . avo), (mood . decl), (agent . b28) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("to" "the" "dwarf" ".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("to" "the" "dwarf" ".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("the" "dwarf" ".") Registers: (to . true), (* . "to"), (lex . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("the" "dwarf" ".") Registers: (to . true), (* . "to"), (lex . "to") Liftrs: (to . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("the" "dwarf" ".") Registers: (lex . "the"), (to . true), (* . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 2 State: s/finis String: ("the" "dwarf" ".") Registers: (rel), (prepo . prepo), (*), (to . true), (lex . "to"), (object . b14), (num . sing), (action . "give"), (proptype . avo), (mood . decl), (agent . b28) Liftrs: (mood . decl) Doing arc: (push np t (sendr mood) (sendr agent) (sendr object) (setr indobject *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "dwarf" ".") Sendrs: (object . b14), (agent . b28), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "dwarf" ".") Sendrs: (object . b14), (agent . b28), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("dwarf" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b28), (object . b14), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("dwarf" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b28), (object . b14), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender m f), (num . sing), (head . b26), (* . "dwarf"), (lex . "dwarf"), (def . t), (mood . decl), (agent . b28), (object . b14) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender m f), (num . sing), (head . b26), (* . "dwarf"), (lex . "dwarf"), (def . t), (mood . decl), (agent . b28), (object . b14) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f), (num . sing), (head . b26), (def . t), (mood . decl), (agent . b28), (object . b14) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f), (num . sing), (head . b26), (def . t), (mood . decl), (agent . b28), (object . b14) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Blocked at arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Doing arc: (jump np/end t) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f), (num . sing), (head . b26), (def . t), (mood . decl), (agent . b28), (object . b14) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f), (num . sing), (head . b26), (def . t), (mood . decl), (agent . b28), (object . b14) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b26 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender m f), (num . sing), (head . b26), (def . t), (mood . decl), (agent . b28), (object . b14) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (indobject . b26), (* . b26), (num . sing), (lex . "the"), (rel), (prepo . prepo), (to . true), (object . b14), (action . "give"), (proptype . avo), (mood . decl), (agent . b28) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (indobject . b26), (num . sing), (rel), (prepo . prepo), (to . true), (object . b14), (action . "give"), (proptype . avo), (mood . decl), (agent . b28) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (indobject . b26), (num . sing), (rel), (prepo . prepo), (to . true), (object . b14), (action . "give"), (proptype . avo), (mood . decl), (agent . b28) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) POPing in state: s/end, a result: (m338!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (indobject . b26), (num . sing), (rel), (prepo . prepo), (to . true), (object . b14), (action . "give"), (proptype . avo), (mood . decl), (agent . b28) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m338!)) Registers: (foo b14 n sing 33 b26 m sing 12 b28 m sing 6 b20 f sing 5 b27 m sing 4 b8 b7 b6 b17 m sing 3 b25 m sing 2 b24 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m338!), (* . m338!), (mood . decl), (lex . "Sir") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m338!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m338!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m338!) Registers: (two . two), (* . m338!), (lex . m338!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m338!) Registers: (two . two), (* . m338!), (lex . m338!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b28) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b28) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b28), (case . nom), (lex . b28) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b28), (case . nom), (lex . b28) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b28), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m337)) Registers: (tes . m338!), (* . m338!), (reg), (lex . m338!), (two . two) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) gives JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m337)) Registers: (* . m337), (lex . m337), (tes . m338!), (reg), (two . two) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m337)) Registers: (* . m337), (lex . m337), (tes . m338!), (reg), (two . two) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m337)) Registers: (* . m337), (reg), (lex . m337), (tes . m338!), (two . two) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) JUMPing to state: g/end With Configuration: Level: 2 State: g/end String: ((m337)) Registers: (* . m337), (lex . m337), (reg), (tes . m338!), (two . two) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: ((m337)) Registers: (* . m337), (lex . m337), (reg), (tes . m338!), (two . two) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m338!) Registers: (* . m338!), (lex . m337), (reg), (tes . m338!), (two . two) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m338!) Registers: (* . m338!), (lex . m337), (reg), (tes . m338!), (two . two) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) to RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b26) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b26) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m324) Registers: (* . b26), (case . obj), (lex . b26) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m324) Registers: (* . b26), (case . obj), (lex . b26) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m324) Registers: (mems . b26), (* . m324), (lex . m324), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m324) Registers: (mems . b26), (* . m324), (lex . m324), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m324) Registers: (* . m324), (lex . m324), (mems . b26), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m324) Registers: (* . m324), (lex . m324), (mems . b26), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) dwarf TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m324), (lex . m324), (mems . b26), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m324), (lex . m324), (mems . b26), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m324), (mems . b26), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m338!), (reg), (lex . m338!), (tes . m338!), (two . two) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m338!), (reg), (tes . m338!), (two . two) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m338!), (foo b14 n sing 33 b26 m sing 12 b28 m sing 6 b20 f sing 5 b27 m sing 4 b8 b7 b6 b17 m sing 3 b25 m sing 2 b24 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m338!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 33 b26 m sing 12 b28 m sing 6 b20 f sing 5 b27 m sing 4 b8 b7 b6 b17 m sing 3 b25 m sing 2 b24 m sing 0 b19 n sing 0 b13 m f n sing 0), (assertion . m338!), (mood . decl) Time (sec.): 0.89 : The hart runs into King Arthur's hall. Input sentence: ("The" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hart" "runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (* . "runs"), (lex . "runs"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b13 With Configuration: Level: 3 State: np/end String: ("runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (lex . "runs"), (* . "runs"), (gender m f n), (num . sing), (head . b13), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("runs" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (mood . decl), (agent . b13), (* . b13), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("run" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (proptype . avo), (* . "run"), (lex . "runs"), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("run" "into" "King" "Arthur" "'" "s" "hall" ".") Registers: (proptype . avo), (* . "run"), (lex . "runs"), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("into" "King" "Arthur" "'" "s" "hall" ".") Registers: (action . "run"), (* . "run"), (lex . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("into" "King" "Arthur" "'" "s" "hall" ".") Registers: (action . "run"), (* . "run"), (lex . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("into" "King" "Arthur" "'" "s" "hall" ".") Sendrs: (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("into" "King" "Arthur" "'" "s" "hall" ".") Sendrs: (agent . b13) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 3 State: pp/end String: ("King" "Arthur" "'" "s" "hall" ".") Registers: (into . true), (* . "into"), (agent . b13), (lex . "into") Liftrs: (into . true) Entering MAINLOOP with a configuration: Level: 3 State: pp/end String: ("King" "Arthur" "'" "s" "hall" ".") Registers: (into . true), (* . "into"), (agent . b13), (lex . "into") Liftrs: (into . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 3 State: pp/end String: ("King" "Arthur" "'" "s" "hall" ".") Registers: (lex . "King"), (into . true), (* . "into"), (agent . b13) Liftrs: (into . true) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("King" "Arthur" "'" "s" "hall" ".") Registers: (prepo . propo), (*), (into . true), (lex . "into"), (action . "run"), (proptype . avo), (mood . decl), (agent . b13), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("King" "Arthur" "'" "s" "hall" ".") Sendrs: (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("King" "Arthur" "'" "s" "hall" ".") Sendrs: (agent . b13) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("King" "Arthur" "'" "s" "hall" ".") Sendrs: (agent . b13), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("King" "Arthur" "'" "s" "hall" ".") Sendrs: (agent . b13), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("King" "Arthur" "'" "s" "hall" ".") Registers: (* . "King"), (pron_case . acc), (mood . decl), (agent . b13), (lex . "King") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("King" "Arthur" "'" "s" "hall" ".") Registers: (* . "King"), (pron_case . acc), (mood . decl), (agent . b13), (lex . "King") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("'" "s" "hall" ".") Registers: (gender . m), (num . sing), (head . b29), (* . "King Arthur"), (lex . "King"), (pron_case . acc), (mood . decl), (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("'" "s" "hall" ".") Registers: (gender . m), (num . sing), (head . b29), (* . "King Arthur"), (lex . "King"), (pron_case . acc), (mood . decl), (agent . b13) Doing arc: (wrd ' t (jump npa)) Taking WRD to state: npa With Configuration: Level: 3 State: npa String: ("'" "s" "hall" ".") Registers: (* . "'"), (lex . "'"), (gender . m), (num . sing), (head . b29), (pron_case . acc), (mood . decl), (agent . b13) Entering MAINLOOP with a configuration: Level: 3 State: npa String: ("'" "s" "hall" ".") Registers: (* . "'"), (lex . "'"), (gender . m), (num . sing), (head . b29), (pron_case . acc), (mood . decl), (agent . b13) Doing arc: (wrd ' t (setr pos 't) (setr possor (getr head)) (liftr possor) (liftr pos) (to np)) Taking WRD to state: np With Configuration: Level: 3 State: np String: ("s" "hall" ".") Registers: (possor . b29), (pos . t), (* . "'"), (lex . "'"), (gender . m), (num . sing), (head . b29), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("s" "hall" ".") Registers: (possor . b29), (pos . t), (* . "'"), (lex . "'"), (gender . m), (num . sing), (head . b29), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Taking WRD to state: np With Configuration: Level: 3 State: np String: ("hall" ".") Registers: (* . "s"), (lex . "s"), (possor . b29), (pos . t), (gender . m), (num . sing), (head . b29), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("hall" ".") Registers: (* . "s"), (lex . "s"), (possor . b29), (pos . t), (gender . m), (num . sing), (head . b29), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("hall" ".") Registers: (* . "hall"), (lex . "hall"), (possor . b29), (pos . t), (gender . m), (num . sing), (head . b29), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hall" ".") Registers: (* . "hall"), (lex . "hall"), (possor . b29), (pos . t), (gender . m), (num . sing), (head . b29), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (other . b30), (head . b30), (* . "hall"), (lex . "hall"), (possor . b29), (pos . t), (gender . m), (num . sing), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (other . b30), (head . b30), (* . "hall"), (lex . "hall"), (possor . b29), (pos . t), (gender . m), (num . sing), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (other . b30), (head . b30), (possor . b29), (pos . t), (gender . m), (num . sing), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (other . b30), (head . b30), (possor . b29), (pos . t), (gender . m), (num . sing), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (other . b30), (head . b30), (possor . b29), (pos . t), (gender . m), (num . sing), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (other . b30), (head . b30), (possor . b29), (pos . t), (gender . m), (num . sing), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (pos . t), (possor . b29) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b30 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (other . b30), (head . b30), (possor . b29), (pos . t), (gender . m), (num . sing), (pron_case . acc), (mood . decl), (agent . b13) Liftrs: (num . sing), (pos . t), (possor . b29) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b30), (* . b30), (possor . b29), (pos . t), (num . sing), (lex . "King"), (prepo . propo), (into . true), (action . "run"), (proptype . avo), (mood . decl), (agent . b13) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b30), (possor . b29), (pos . t), (num . sing), (prepo . propo), (into . true), (action . "run"), (proptype . avo), (mood . decl), (agent . b13) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b30), (possor . b29), (pos . t), (num . sing), (prepo . propo), (into . true), (action . "run"), (proptype . avo), (mood . decl), (agent . b13) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) POPing in state: s/end, a result: (m344! m343! m235!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b30), (possor . b29), (pos . t), (num . sing), (prepo . propo), (into . true), (action . "run"), (proptype . avo), (mood . decl), (agent . b13) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m344! m343! m235!)) Registers: (foo b14 n sing 31 b26 m sing 10 b13 m f n sing 6 b30 m sing 5 b28 m sing 4 b20 f sing 3 b27 m sing 2 b8 b7 b6 b17 m sing 1 b25 m sing 0 b19 n sing 0), (assertion m344! m343! m235!), (* m344! m343! m235!), (mood . decl), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m344! m343! m235!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m344! m343! m235!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . nom), (lex . b13) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . nom), (lex . b13) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m224) m343! m235!) Registers: (tes . m344!), (* . m344!), (reg), (lex . m344!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) runs JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m224) m343! m235!) Registers: (* . m224), (lex . m224), (tes . m344!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m224) m343! m235!) Registers: (* . m224), (lex . m224), (tes . m344!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m344! m343! m235!) Registers: (* . m224), (lex . m224), (tes . m344!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m344! m343! m235!) Registers: (* . m224), (lex . m224), (tes . m344!), (reg) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: (m343! m235!) Registers: (* . m344!), (lex . m344!), (tes . m344!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: (m343! m235!) Registers: (* . m344!), (lex . m344!), (tes . m344!), (reg) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m343! m235!) Registers: (* . m343!), (lex . m343!), (tes . m344!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m343! m235!) Registers: (* . m343!), (lex . m343!), (tes . m344!), (reg) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) JUMPing to state: gs With Configuration: Level: 2 State: gs String: (m343! m235!) Registers: (intwo . intwo), (* . m343!), (lex . m343!), (tes . m344!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m343! m235!) Registers: (intwo . intwo), (* . m343!), (lex . m343!), (tes . m344!), (reg) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b13) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . nom), (lex . b13) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m233) Registers: (* . b13), (case . nom), (lex . b13) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m233) Registers: (mems . b13), (* . m233), (lex . m233), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems . b13), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m233), (mems . b13), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m224) m235!) Registers: (tes . m343!), (* . m343!), (reg), (lex . m343!), (intwo . intwo) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) runs JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m224) m235!) Registers: (* . m224), (lex . m224), (tes . m343!), (reg), (intwo . intwo) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m224) m235!) Registers: (* . m224), (lex . m224), (tes . m343!), (reg), (intwo . intwo) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m343! m235!) Registers: (* . m224), (lex . m224), (tes . m343!), (reg), (intwo . intwo) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m343! m235!) Registers: (* . m224), (lex . m224), (tes . m343!), (reg), (intwo . intwo) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) into RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b30) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b30) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) RCALLing to state: gnp, With Configuration: Level: 4 State: gnp String: (b29) Sendrs: (poss . t) Entering MAINLOOP with a configuration: Level: 4 State: gnp String: (b29) Sendrs: (poss . t) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) King Arthur's TOing to state: gnp/end With Configuration: Level: 4 State: gnp/end String: nil Registers: (* . b29), (poss . t), (lex . b29) Entering MAINLOOP with a configuration: Level: 4 State: gnp/end String: nil Registers: (* . b29), (poss . t), (lex . b29) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 4 State: gnp/end String: nil Registers: (lex), (* . b29), (poss . t) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: ((m340)) Registers: (num . sing), (* . b30), (reg), (case . obj), (lex . b30) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hall TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m340), (lex . m340), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m340), (lex . m340), (num . sing), (reg), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m340), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: (m235!) Registers: (* . m343!), (reg), (lex . m343!), (tes . m343!), (intwo . intwo) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m343!) Registers: (* . m343!), (lex . m235!), (reg), (tes . m343!), (intwo . intwo) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m343!) Registers: (* . m343!), (lex . m235!), (reg), (tes . m343!), (intwo . intwo) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) into RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b30) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b30) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) RCALLing to state: gnp, With Configuration: Level: 4 State: gnp String: (b29) Sendrs: (poss . t) Entering MAINLOOP with a configuration: Level: 4 State: gnp String: (b29) Sendrs: (poss . t) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) King Arthur's TOing to state: gnp/end With Configuration: Level: 4 State: gnp/end String: nil Registers: (* . b29), (poss . t), (lex . b29) Entering MAINLOOP with a configuration: Level: 4 State: gnp/end String: nil Registers: (* . b29), (poss . t), (lex . b29) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 4 State: gnp/end String: nil Registers: (lex), (* . b29), (poss . t) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: ((m340)) Registers: (num . sing), (* . b30), (reg), (case . obj), (lex . b30) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hall TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m340), (lex . m340), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m340), (lex . m340), (num . sing), (reg), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m340), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m343!), (reg), (lex . m343!), (tes . m343!), (intwo . intwo) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m343!), (reg), (tes . m343!), (intwo . intwo) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex m344! m343! m235!), (foo b14 n sing 31 b26 m sing 10 b13 m f n sing 6 b30 m sing 5 b28 m sing 4 b20 f sing 3 b27 m sing 2 b8 b7 b6 b17 m sing 1 b25 m sing 0 b19 n sing 0), (assertion m344! m343! m235!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 31 b26 m sing 10 b13 m f n sing 6 b30 m sing 5 b28 m sing 4 b20 f sing 3 b27 m sing 2 b8 b7 b6 b17 m sing 1 b25 m sing 0 b19 n sing 0), (assertion m344! m343! m235!), (mood . decl) Time (sec.): 0.95 : The brachet bites a hart's buttock. Input sentence: ("The" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("brachet" "bites" "a" "hart" "'" "s" "buttock" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("bites" "a" "hart" "'" "s" "buttock" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("bites" "a" "hart" "'" "s" "buttock" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("bites" "a" "hart" "'" "s" "buttock" ".") Registers: (* . "bites"), (lex . "bites"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("bites" "a" "hart" "'" "s" "buttock" ".") Registers: (* . "bites"), (lex . "bites"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("bites" "a" "hart" "'" "s" "buttock" ".") Registers: (* . "bites"), (lex . "bites"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("bites" "a" "hart" "'" "s" "buttock" ".") Registers: (* . "bites"), (lex . "bites"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 3 State: np/end String: ("bites" "a" "hart" "'" "s" "buttock" ".") Registers: (lex . "bites"), (* . "bites"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("bites" "a" "hart" "'" "s" "buttock" ".") Registers: (mood . decl), (agent . b14), (* . b14), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("bite" "a" "hart" "'" "s" "buttock" ".") Registers: (proptype . avo), (* . "bite"), (lex . "bites"), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("bite" "a" "hart" "'" "s" "buttock" ".") Registers: (proptype . avo), (* . "bite"), (lex . "bites"), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("a" "hart" "'" "s" "buttock" ".") Registers: (action . "bite"), (* . "bite"), (lex . "bite"), (proptype . avo), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("a" "hart" "'" "s" "buttock" ".") Registers: (action . "bite"), (* . "bite"), (lex . "bite"), (proptype . avo), (mood . decl), (agent . b14), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("a" "hart" "'" "s" "buttock" ".") Sendrs: (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("a" "hart" "'" "s" "buttock" ".") Sendrs: (agent . b14) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "hart" "'" "s" "buttock" ".") Sendrs: (agent . b14), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "hart" "'" "s" "buttock" ".") Sendrs: (agent . b14), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("hart" "'" "s" "buttock" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent . b14), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("hart" "'" "s" "buttock" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent . b14), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("'" "s" "buttock" ".") Registers: (gender m f n), (num . sing), (head . b31), (* . "hart"), (lex . "hart"), (def), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("'" "s" "buttock" ".") Registers: (gender m f n), (num . sing), (head . b31), (* . "hart"), (lex . "hart"), (def), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (wrd ' t (jump npa)) Taking WRD to state: npa With Configuration: Level: 3 State: npa String: ("'" "s" "buttock" ".") Registers: (* . "'"), (lex . "'"), (gender m f n), (num . sing), (head . b31), (def), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 3 State: npa String: ("'" "s" "buttock" ".") Registers: (* . "'"), (lex . "'"), (gender m f n), (num . sing), (head . b31), (def), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (wrd ' t (setr pos 't) (setr possor (getr head)) (liftr possor) (liftr pos) (to np)) Taking WRD to state: np With Configuration: Level: 3 State: np String: ("s" "buttock" ".") Registers: (possor . b31), (pos . t), (* . "'"), (lex . "'"), (gender m f n), (num . sing), (head . b31), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("s" "buttock" ".") Registers: (possor . b31), (pos . t), (* . "'"), (lex . "'"), (gender m f n), (num . sing), (head . b31), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Taking WRD to state: np With Configuration: Level: 3 State: np String: ("buttock" ".") Registers: (* . "s"), (lex . "s"), (possor . b31), (pos . t), (gender m f n), (num . sing), (head . b31), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("buttock" ".") Registers: (* . "s"), (lex . "s"), (possor . b31), (pos . t), (gender m f n), (num . sing), (head . b31), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("buttock" ".") Registers: (* . "buttock"), (lex . "buttock"), (possor . b31), (pos . t), (gender m f n), (num . sing), (head . b31), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("buttock" ".") Registers: (* . "buttock"), (lex . "buttock"), (possor . b31), (pos . t), (gender m f n), (num . sing), (head . b31), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (other . b32), (head . b32), (* . "buttock"), (lex . "buttock"), (possor . b31), (pos . t), (gender m f n), (num . sing), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (other . b32), (head . b32), (* . "buttock"), (lex . "buttock"), (possor . b31), (pos . t), (gender m f n), (num . sing), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (other . b32), (head . b32), (possor . b31), (pos . t), (gender m f n), (num . sing), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (other . b32), (head . b32), (possor . b31), (pos . t), (gender m f n), (num . sing), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (other . b32), (head . b32), (possor . b31), (pos . t), (gender m f n), (num . sing), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (other . b32), (head . b32), (possor . b31), (pos . t), (gender m f n), (num . sing), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (pos . t), (possor . b31) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b32 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (other . b32), (head . b32), (possor . b31), (pos . t), (gender m f n), (num . sing), (def), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (num . sing), (pos . t), (possor . b31) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b32), (* . b32), (possor . b31), (pos . t), (num . sing), (lex . "a"), (action . "bite"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b32), (possor . b31), (pos . t), (num . sing), (action . "bite"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b32), (possor . b31), (pos . t), (num . sing), (action . "bite"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m350!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b32), (possor . b31), (pos . t), (num . sing), (action . "bite"), (proptype . avo), (mood . decl), (agent . b14) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m350!)) Registers: (foo b14 n sing 37 b26 m sing 8 b32 m f n sing 5 b13 m f n sing 4 b30 m sing 3 b28 m sing 2 b20 f sing 1 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m350!), (* . m350!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m350!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m350!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m349)) Registers: (tes . m350!), (* . m350!), (reg), (lex . m350!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) bites JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m349)) Registers: (* . m349), (lex . m349), (tes . m350!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m349)) Registers: (* . m349), (lex . m349), (tes . m350!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b32) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b32) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) RCALLing to state: gnp, With Configuration: Level: 4 State: gnp String: (b31) Sendrs: (poss . t) Entering MAINLOOP with a configuration: Level: 4 State: gnp String: (b31) Sendrs: (poss . t) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 4 State: gdefcat String: (m233) Registers: (* . b31), (poss . t), (lex . b31) Entering MAINLOOP with a configuration: Level: 4 State: gdefcat String: (m233) Registers: (* . b31), (poss . t), (lex . b31) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 4 State: gdefcat1 String: (m233) Registers: (mems b31 b13), (* . m233), (lex . m233), (poss . t) Entering MAINLOOP with a configuration: Level: 4 State: gdefcat1 String: (m233) Registers: (mems b31 b13), (* . m233), (lex . m233), (poss . t) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 4 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems b31 b13), (poss . t) Entering MAINLOOP with a configuration: Level: 4 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems b31 b13), (poss . t) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 4 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems b31 b13), (poss . t) Entering MAINLOOP with a configuration: Level: 4 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems b31 b13), (poss . t) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 4 State: gnp/end String: nil Registers: (lex), (* . m233), (mems b31 b13), (poss . t) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: ((m346)) Registers: (num . sing), (* . b32), (reg), (case . obj), (lex . b32) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) buttock TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m346), (lex . m346), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m346), (lex . m346), (num . sing), (reg), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m346), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m349)) Registers: (* . m349), (reg), (lex . m349), (tes . m350!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m349), (lex . m349), (reg), (tes . m350!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m349), (lex . m349), (reg), (tes . m350!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m349), (reg), (tes . m350!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m350!), (foo b14 n sing 37 b26 m sing 8 b32 m f n sing 5 b13 m f n sing 4 b30 m sing 3 b28 m sing 2 b20 f sing 1 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m350!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 37 b26 m sing 8 b32 m f n sing 5 b13 m f n sing 4 b30 m sing 3 b28 m sing 2 b20 f sing 1 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m350!), (mood . decl), (proptype . avo) Time (sec.): 0.82 : The knight mounts a horse. Input sentence: ("The" "knight" "mounts" "a" "horse" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "knight" "mounts" "a" "horse" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "knight" "mounts" "a" "horse" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "knight" "mounts" "a" "horse" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "knight" "mounts" "a" "horse" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "knight" "mounts" "a" "horse" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "knight" "mounts" "a" "horse" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "knight" "mounts" "a" "horse" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "knight" "mounts" "a" "horse" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "knight" "mounts" "a" "horse" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("knight" "mounts" "a" "horse" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("knight" "mounts" "a" "horse" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("mounts" "a" "horse" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("mounts" "a" "horse" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("mounts" "a" "horse" ".") Registers: (* . "mounts"), (lex . "mounts"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("mounts" "a" "horse" ".") Registers: (* . "mounts"), (lex . "mounts"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("mounts" "a" "horse" ".") Registers: (* . "mounts"), (lex . "mounts"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("mounts" "a" "horse" ".") Registers: (* . "mounts"), (lex . "mounts"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: (b8 b7 b6 b17) With Configuration: Level: 3 State: np/end String: ("mounts" "a" "horse" ".") Registers: (lex . "mounts"), (* . "mounts"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("mounts" "a" "horse" ".") Registers: (mood . decl), (agent b8 b7 b6 b17), (* b8 b7 b6 b17), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("mount" "a" "horse" ".") Registers: (proptype . avo), (* . "mount"), (lex . "mounts"), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("mount" "a" "horse" ".") Registers: (proptype . avo), (* . "mount"), (lex . "mounts"), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("a" "horse" ".") Registers: (action . "mount"), (* . "mount"), (lex . "mount"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("a" "horse" ".") Registers: (action . "mount"), (* . "mount"), (lex . "mount"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("a" "horse" ".") Sendrs: (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("a" "horse" ".") Sendrs: (agent b8 b7 b6 b17) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "horse" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "horse" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("horse" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("horse" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b33), (* . "horse"), (lex . "horse"), (def), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b33), (* . "horse"), (lex . "horse"), (def), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b33), (def), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b33), (def), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b33), (def), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b33), (def), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b33 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender m f n), (num . sing), (head . b33), (def), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b33), (* . b33), (num . sing), (lex . "a"), (action . "mount"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b33), (num . sing), (action . "mount"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b33), (num . sing), (action . "mount"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m355!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b33), (num . sing), (action . "mount"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m355!)) Registers: (foo b14 n sing 35 b8 b7 b6 b17 m sing 6 b26 m sing 6 b33 m f n sing 5 b32 m f n sing 3 b13 m f n sing 2 b30 m sing 1 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m355!), (* . m355!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m355!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m355!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) knight TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (lex . b8), (* . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m354)) Registers: (tes . m355!), (* . m355!), (reg), (lex . m355!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) mounts JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m354)) Registers: (* . m354), (lex . m354), (tes . m355!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m354)) Registers: (* . m354), (lex . m354), (tes . m355!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b33) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b33) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m22) Registers: (* . b33), (case . obj), (lex . b33) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m22) Registers: (* . b33), (case . obj), (lex . b33) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m22) Registers: (mems . b33), (* . m22), (lex . m22), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m22) Registers: (mems . b33), (* . m22), (lex . m22), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m22) Registers: (* . m22), (lex . m22), (mems . b33), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m22) Registers: (* . m22), (lex . m22), (mems . b33), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) horse TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m22), (lex . m22), (mems . b33), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m22), (lex . m22), (mems . b33), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m22), (mems . b33), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m354)) Registers: (* . m354), (reg), (lex . m354), (tes . m355!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m354), (lex . m354), (reg), (tes . m355!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m354), (lex . m354), (reg), (tes . m355!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m354), (reg), (tes . m355!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m355!), (foo b14 n sing 35 b8 b7 b6 b17 m sing 6 b26 m sing 6 b33 m f n sing 5 b32 m f n sing 3 b13 m f n sing 2 b30 m sing 1 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m355!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 35 b8 b7 b6 b17 m sing 6 b26 m sing 6 b33 m f n sing 5 b32 m f n sing 3 b13 m f n sing 2 b30 m sing 1 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m355!), (mood . decl), (proptype . avo) Time (sec.): 0.86 : The knight rides the horse. Input sentence: ("The" "knight" "rides" "the" "horse" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "knight" "rides" "the" "horse" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "knight" "rides" "the" "horse" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "knight" "rides" "the" "horse" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "knight" "rides" "the" "horse" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "knight" "rides" "the" "horse" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "knight" "rides" "the" "horse" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "knight" "rides" "the" "horse" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "knight" "rides" "the" "horse" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "knight" "rides" "the" "horse" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("knight" "rides" "the" "horse" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("knight" "rides" "the" "horse" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("rides" "the" "horse" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("rides" "the" "horse" ".") Registers: (gender . m), (num . sing), (head b8 b7 b6 b17), (* . "knight"), (lex . "knight"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("rides" "the" "horse" ".") Registers: (* . "rides"), (lex . "rides"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("rides" "the" "horse" ".") Registers: (* . "rides"), (lex . "rides"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("rides" "the" "horse" ".") Registers: (* . "rides"), (lex . "rides"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("rides" "the" "horse" ".") Registers: (* . "rides"), (lex . "rides"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: (b8 b7 b6 b17) With Configuration: Level: 3 State: np/end String: ("rides" "the" "horse" ".") Registers: (lex . "rides"), (* . "rides"), (gender . m), (num . sing), (head b8 b7 b6 b17), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("rides" "the" "horse" ".") Registers: (mood . decl), (agent b8 b7 b6 b17), (* b8 b7 b6 b17), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("ride" "the" "horse" ".") Registers: (proptype . avo), (* . "ride"), (lex . "rides"), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("ride" "the" "horse" ".") Registers: (proptype . avo), (* . "ride"), (lex . "rides"), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("the" "horse" ".") Registers: (action . "ride"), (* . "ride"), (lex . "ride"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("the" "horse" ".") Registers: (action . "ride"), (* . "ride"), (lex . "ride"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("the" "horse" ".") Sendrs: (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("the" "horse" ".") Sendrs: (agent b8 b7 b6 b17) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "horse" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "horse" ".") Sendrs: (agent b8 b7 b6 b17), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("horse" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("horse" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b33), (* . "horse"), (lex . "horse"), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b33), (* . "horse"), (lex . "horse"), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b33), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b33), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b33), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b33), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b33 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender m f n), (num . sing), (head . b33), (def . t), (pron_case . acc), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b33), (* . b33), (num . sing), (lex . "the"), (action . "ride"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b33), (num . sing), (action . "ride"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b33), (num . sing), (action . "ride"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m363!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b33), (num . sing), (action . "ride"), (proptype . avo), (mood . decl), (agent b8 b7 b6 b17) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m363!)) Registers: (foo b14 n sing 33 b33 m f n sing 10 b8 b7 b6 b17 m sing 6 b8 b7 b6 b17 m sing 4 b26 m sing 4 b32 m f n sing 1 b13 m f n sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m363!), (* . m363!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m363!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m363!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b17 b8 b7 b6) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m45 b8 b7 b6) Registers: (* . b17), (case . nom), (lex . b17) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m45 b8 b7 b6) Registers: (mems b17 b8 b7 b6), (* . m45), (lex . m45), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m45 b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) knight TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (* . m45), (lex . m45), (mems b17 b8 b7 b6), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: (b8 b7 b6) Registers: (lex . b8), (* . m45), (mems b17 b8 b7 b6), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m362)) Registers: (tes . m363!), (* . m363!), (reg), (lex . m363!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) rides JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m362)) Registers: (* . m362), (lex . m362), (tes . m363!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m362)) Registers: (* . m362), (lex . m362), (tes . m363!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b33) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b33) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m22) Registers: (* . b33), (case . obj), (lex . b33) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m22) Registers: (* . b33), (case . obj), (lex . b33) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m22) Registers: (mems . b33), (* . m22), (lex . m22), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m22) Registers: (mems . b33), (* . m22), (lex . m22), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m22) Registers: (* . m22), (lex . m22), (mems . b33), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m22) Registers: (* . m22), (lex . m22), (mems . b33), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) horse TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m22), (lex . m22), (mems . b33), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m22), (lex . m22), (mems . b33), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m22), (mems . b33), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m362)) Registers: (* . m362), (reg), (lex . m362), (tes . m363!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m362), (lex . m362), (reg), (tes . m363!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m362), (lex . m362), (reg), (tes . m363!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m362), (reg), (tes . m363!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m363!), (foo b14 n sing 33 b33 m f n sing 10 b8 b7 b6 b17 m sing 6 b8 b7 b6 b17 m sing 4 b26 m sing 4 b32 m f n sing 1 b13 m f n sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m363!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 33 b33 m f n sing 10 b8 b7 b6 b17 m sing 6 b8 b7 b6 b17 m sing 4 b26 m sing 4 b32 m f n sing 1 b13 m f n sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m363!), (mood . decl), (proptype . avo) Time (sec.): 0.68 : Sir Tor mounts a horse. Input sentence: ("Sir" "Tor" "mounts" "a" "horse" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Sir" "Tor" "mounts" "a" "horse" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Sir" "Tor" "mounts" "a" "horse" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Sir" "Tor" "mounts" "a" "horse" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Sir" "Tor" "mounts" "a" "horse" ".") Registers: (* . "Sir"), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Sir" "Tor" "mounts" "a" "horse" ".") Registers: (* . "Sir"), (lex . "Sir") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Sir" "Tor" "mounts" "a" "horse" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Sir" "Tor" "mounts" "a" "horse" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Sir" "Tor" "mounts" "a" "horse" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Sir" "Tor" "mounts" "a" "horse" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Sir" "Tor" "mounts" "a" "horse" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Sir" "Tor" "mounts" "a" "horse" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("mounts" "a" "horse" ".") Registers: (gender . m), (num . sing), (head . b34), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("mounts" "a" "horse" ".") Registers: (gender . m), (num . sing), (head . b34), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("mounts" "a" "horse" ".") Registers: (* . "mounts"), (lex . "mounts"), (gender . m), (num . sing), (head . b34), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("mounts" "a" "horse" ".") Registers: (* . "mounts"), (lex . "mounts"), (gender . m), (num . sing), (head . b34), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("mounts" "a" "horse" ".") Registers: (* . "mounts"), (lex . "mounts"), (gender . m), (num . sing), (head . b34), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("mounts" "a" "horse" ".") Registers: (* . "mounts"), (lex . "mounts"), (gender . m), (num . sing), (head . b34), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b34 With Configuration: Level: 3 State: np/end String: ("mounts" "a" "horse" ".") Registers: (lex . "mounts"), (* . "mounts"), (gender . m), (num . sing), (head . b34), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("mounts" "a" "horse" ".") Registers: (mood . decl), (agent . b34), (* . b34), (num . sing), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("mount" "a" "horse" ".") Registers: (proptype . avo), (* . "mount"), (lex . "mounts"), (mood . decl), (agent . b34), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("mount" "a" "horse" ".") Registers: (proptype . avo), (* . "mount"), (lex . "mounts"), (mood . decl), (agent . b34), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("a" "horse" ".") Registers: (action . "mount"), (* . "mount"), (lex . "mount"), (proptype . avo), (mood . decl), (agent . b34), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("a" "horse" ".") Registers: (action . "mount"), (* . "mount"), (lex . "mount"), (proptype . avo), (mood . decl), (agent . b34), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("a" "horse" ".") Sendrs: (agent . b34) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("a" "horse" ".") Sendrs: (agent . b34) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("a" "horse" ".") Sendrs: (agent . b34), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("a" "horse" ".") Sendrs: (agent . b34), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("horse" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent . b34), (lex . "a") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("horse" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent . b34), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b35), (* . "horse"), (lex . "horse"), (def), (pron_case . acc), (mood . decl), (agent . b34) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b35), (* . "horse"), (lex . "horse"), (def), (pron_case . acc), (mood . decl), (agent . b34) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b35), (def), (pron_case . acc), (mood . decl), (agent . b34) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b35), (def), (pron_case . acc), (mood . decl), (agent . b34) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b35), (def), (pron_case . acc), (mood . decl), (agent . b34) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b35), (def), (pron_case . acc), (mood . decl), (agent . b34) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b35 With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender m f n), (num . sing), (head . b35), (def), (pron_case . acc), (mood . decl), (agent . b34) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . b35), (* . b35), (num . sing), (lex . "a"), (action . "mount"), (proptype . avo), (mood . decl), (agent . b34) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b35), (num . sing), (action . "mount"), (proptype . avo), (mood . decl), (agent . b34) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . b35), (num . sing), (action . "mount"), (proptype . avo), (mood . decl), (agent . b34) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m367!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . b35), (num . sing), (action . "mount"), (proptype . avo), (mood . decl), (agent . b34) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m367!)) Registers: (foo b14 n sing 31 b33 m f n sing 8 b34 m sing 6 b35 m f n sing 5 b8 b7 b6 b17 m sing 4 b8 b7 b6 b17 m sing 2 b26 m sing 2 b13 m f n sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m367!), (* . m367!), (mood . decl), (proptype . avo), (lex . "Sir") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m367!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m367!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b34) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b34) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b34), (case . nom), (lex . b34) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b34), (case . nom), (lex . b34) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b34), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m366)) Registers: (tes . m367!), (* . m367!), (reg), (lex . m367!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) mounts JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m366)) Registers: (* . m366), (lex . m366), (tes . m367!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m366)) Registers: (* . m366), (lex . m366), (tes . m367!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b35) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b35) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m22) Registers: (* . b35), (case . obj), (lex . b35) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m22) Registers: (* . b35), (case . obj), (lex . b35) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m22) Registers: (mems b35 b33), (* . m22), (lex . m22), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m22) Registers: (mems b35 b33), (* . m22), (lex . m22), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m22) Registers: (* . m22), (lex . m22), (mems b35 b33), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m22) Registers: (* . m22), (lex . m22), (mems b35 b33), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) horse TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m22), (lex . m22), (mems b35 b33), (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m22), (lex . m22), (mems b35 b33), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m22), (mems b35 b33), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m366)) Registers: (* . m366), (reg), (lex . m366), (tes . m367!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m366), (lex . m366), (reg), (tes . m367!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m366), (lex . m366), (reg), (tes . m367!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m366), (reg), (tes . m367!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m367!), (foo b14 n sing 31 b33 m f n sing 8 b34 m sing 6 b35 m f n sing 5 b8 b7 b6 b17 m sing 4 b8 b7 b6 b17 m sing 2 b26 m sing 2 b13 m f n sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m367!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 31 b33 m f n sing 8 b34 m sing 6 b35 m f n sing 5 b8 b7 b6 b17 m sing 4 b8 b7 b6 b17 m sing 2 b26 m sing 2 b13 m f n sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m367!), (mood . decl), (proptype . avo) Time (sec.): 0.47 : The lady says that the brachet belongs to her. Input sentence: ("The" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("lady" "says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b20 With Configuration: Level: 3 State: np/end String: ("says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (lex . "says"), (* . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (mood . decl), (agent . b20), (* . b20), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "the" "brachet" "belongs" "to" "her" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "the" "brachet" "belongs" "to" "her" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "the" "brachet" "belongs" "to" "her" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "the" "brachet" "belongs" "to" "her" ".") Sendrs: (agent . b20) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "the" "brachet" "belongs" "to" "her" ".") Sendrs: (agent . b20) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "the" "brachet" "belongs" "to" "her" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "the" "brachet" "belongs" "to" "her" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("the" "brachet" "belongs" "to" "her" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("the" "brachet" "belongs" "to" "her" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("the" "brachet" "belongs" "to" "her" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("the" "brachet" "belongs" "to" "her" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "brachet" "belongs" "to" "her" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "brachet" "belongs" "to" "her" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("brachet" "belongs" "to" "her" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("brachet" "belongs" "to" "her" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: ("belongs" "to" "her" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("belongs" "to" "her" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("belongs" "to" "her" ".") Registers: (* . "belongs"), (lex . "belongs"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("belongs" "to" "her" ".") Registers: (* . "belongs"), (lex . "belongs"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("belongs" "to" "her" ".") Registers: (* . "belongs"), (lex . "belongs"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("belongs" "to" "her" ".") Registers: (* . "belongs"), (lex . "belongs"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 5 State: np/end String: ("belongs" "to" "her" ".") Registers: (lex . "belongs"), (* . "belongs"), (gender . n), (num . sing), (head . b14), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("belongs" "to" "her" ".") Registers: (mood . decl), (agent . b14), (* . b14), (num . sing), (embedded . t), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("belong" "to" "her" ".") Registers: (proptype . avo), (* . "belong"), (lex . "belongs"), (mood . decl), (agent . b14), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("belong" "to" "her" ".") Registers: (proptype . avo), (* . "belong"), (lex . "belongs"), (mood . decl), (agent . b14), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("to" "her" ".") Registers: (action . "belong"), (* . "belong"), (lex . "belong"), (proptype . avo), (mood . decl), (agent . b14), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("to" "her" ".") Registers: (action . "belong"), (* . "belong"), (lex . "belong"), (proptype . avo), (mood . decl), (agent . b14), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("to" "her" ".") Sendrs: (agent . b14) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("to" "her" ".") Sendrs: (agent . b14) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 5 State: pp/end String: ("her" ".") Registers: (to . true), (* . "to"), (agent . b14), (lex . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 5 State: pp/end String: ("her" ".") Registers: (to . true), (* . "to"), (agent . b14), (lex . "to") Liftrs: (to . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 5 State: pp/end String: ("her" ".") Registers: (lex . "her"), (to . true), (* . "to"), (agent . b14) Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("her" ".") Registers: (prepo . propo), (*), (to . true), (lex . "to"), (action . "belong"), (proptype . avo), (mood . decl), (agent . b14), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("her" ".") Sendrs: (agent . b14) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("her" ".") Sendrs: (agent . b14) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("her" ".") Sendrs: (agent . b14), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("her" ".") Sendrs: (agent . b14), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 5 State: np/art String: ("her" ".") Registers: (* . "her"), (pron_case . acc), (mood . decl), (agent . b14), (lex . "her") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("her" ".") Registers: (* . "her"), (pron_case . acc), (mood . decl), (agent . b14), (lex . "her") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on pron, to state nppos. With Configuration: Level: 5 State: nppos String: (".") Registers: (gender . f), (num . sing), (head . b20), (* . "she"), (lex . "her"), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: (".") Registers: (gender . f), (num . sing), (head . b20), (* . "she"), (lex . "her"), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . f), (num . sing), (head . b20), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . f), (num . sing), (head . b20), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . f), (num . sing), (head . b20), (pron_case . acc), (mood . decl), (agent . b14) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . f), (num . sing), (head . b20), (pron_case . acc), (mood . decl), (agent . b14) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b20 With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . f), (num . sing), (head . b20), (pron_case . acc), (mood . decl), (agent . b14) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (object . b20), (* . b20), (num . sing), (lex . "her"), (prepo . propo), (to . true), (action . "belong"), (proptype . avo), (mood . decl), (agent . b14), (embedded . t) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b20), (num . sing), (prepo . propo), (to . true), (action . "belong"), (proptype . avo), (mood . decl), (agent . b14), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b20), (num . sing), (prepo . propo), (to . true), (action . "belong"), (proptype . avo), (mood . decl), (agent . b14), (embedded . t) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) POPing in state: s/end, a result: (m371!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (object . b20), (num . sing), (prepo . propo), (to . true), (action . "belong"), (proptype . avo), (mood . decl), (agent . b14), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m371!), (* . m371!), (mood . decl), (lex . "the"), (pron_case . acc), (agent . b20) Liftrs: (mod), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m371! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m371!), (* . m371!), (mood . decl), (pron_case . acc), (agent . b20) Liftrs: (num), (mod), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m371!), (* . m371!), (mood . decl), (mod), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m371!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m371!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m373!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m371!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m373!)) Registers: (foo b14 n sing 37 b20 f sing 13 b33 m f n sing 6 b34 m sing 4 b35 m f n sing 3 b8 b7 b6 b17 m sing 2 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m373!), (* . m373!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m373!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m373!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) lady TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m372)) Registers: (tes . m373!), (* . m373!), (reg), (lex . m373!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m372)) Registers: (* . m372), (lex . m372), (tes . m373!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m372)) Registers: (* . m372), (lex . m372), (tes . m373!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m371!) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m371!) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 4 State: gs String: (m371!) Sendrs: (mod), (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m371!) Sendrs: (mod), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) JUMPing to state: gs With Configuration: Level: 4 State: gs String: (m371!) Registers: (two . two), (* . m371!), (embedded . t), (mod), (lex . m371!) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m371!) Registers: (two . two), (* . m371!), (embedded . t), (mod), (lex . m371!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b14) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b14) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 5 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . nom), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 4 State: g/subj String: ((m370)) Registers: (tes . m371!), (* . m371!), (reg), (lex . m371!), (two . two), (embedded . t), (mod) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) belongs JUMPing to state: g/v With Configuration: Level: 4 State: g/v String: ((m370)) Registers: (* . m370), (lex . m370), (tes . m371!), (reg), (two . two), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/v String: ((m370)) Registers: (* . m370), (lex . m370), (tes . m371!), (reg), (two . two), (embedded . t), (mod) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 4 State: g/obj String: (m371!) Registers: (* . m370), (lex . m370), (tes . m371!), (reg), (two . two), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: (m371!) Registers: (* . m370), (lex . m370), (tes . m371!), (reg), (two . two), (embedded . t), (mod) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) to RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b20) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b20) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m297) Registers: (* . b20), (case . obj), (lex . b20) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m297) Registers: (* . b20), (case . obj), (lex . b20) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) lady TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m297), (mems . b20), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: nil Registers: (* . m371!), (reg), (lex . m371!), (tes . m371!), (two . two), (embedded . t), (mod) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 4 State: g/end String: nil Registers: (lex), (* . m371!), (reg), (tes . m371!), (two . two), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (*), (case . obj), (lex . m371!) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (*), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m372)) Registers: (* . m372), (reg), (lex . m372), (tes . m373!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m372), (lex . m372), (reg), (tes . m373!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m372), (lex . m372), (reg), (tes . m373!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m372), (reg), (tes . m373!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m373!), (foo b14 n sing 37 b20 f sing 13 b33 m f n sing 6 b34 m sing 4 b35 m f n sing 3 b8 b7 b6 b17 m sing 2 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m373!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 37 b20 f sing 13 b33 m f n sing 6 b34 m sing 4 b35 m f n sing 3 b8 b7 b6 b17 m sing 2 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m373!), (mood . decl), (proptype . avo) Time (sec.): 1.09 : The lady says that she wants the brachet. Input sentence: ("The" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "lady" "says" "that" "she" "wants" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("lady" "says" "that" "she" "wants" "the" "brachet" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("lady" "says" "that" "she" "wants" "the" "brachet" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "she" "wants" "the" "brachet" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "she" "wants" "the" "brachet" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "lady"), (lex . "lady"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "she" "wants" "the" "brachet" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "she" "wants" "the" "brachet" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "she" "wants" "the" "brachet" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "she" "wants" "the" "brachet" ".") Registers: (* . "says"), (lex . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b20 With Configuration: Level: 3 State: np/end String: ("says" "that" "she" "wants" "the" "brachet" ".") Registers: (lex . "says"), (* . "says"), (gender . f), (num . sing), (head . b20), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "she" "wants" "the" "brachet" ".") Registers: (mood . decl), (agent . b20), (* . b20), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "she" "wants" "the" "brachet" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "she" "wants" "the" "brachet" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "she" "wants" "the" "brachet" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "she" "wants" "the" "brachet" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b20), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "she" "wants" "the" "brachet" ".") Sendrs: (agent . b20) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "she" "wants" "the" "brachet" ".") Sendrs: (agent . b20) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "she" "wants" "the" "brachet" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "she" "wants" "the" "brachet" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("she" "wants" "the" "brachet" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("she" "wants" "the" "brachet" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("she" "wants" "the" "brachet" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("she" "wants" "the" "brachet" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("she" "wants" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("she" "wants" "the" "brachet" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 5 State: np/art String: ("she" "wants" "the" "brachet" ".") Registers: (* . "she"), (mood . decl), (pron_case . nom), (lex . "she") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("she" "wants" "the" "brachet" ".") Registers: (* . "she"), (mood . decl), (pron_case . nom), (lex . "she") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on pron, to state nppos. With Configuration: Level: 5 State: nppos String: ("wants" "the" "brachet" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "she"), (lex . "she"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("wants" "the" "brachet" ".") Registers: (gender . f), (num . sing), (head . b20), (* . "she"), (lex . "she"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("wants" "the" "brachet" ".") Registers: (* . "wants"), (lex . "wants"), (gender . f), (num . sing), (head . b20), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("wants" "the" "brachet" ".") Registers: (* . "wants"), (lex . "wants"), (gender . f), (num . sing), (head . b20), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("wants" "the" "brachet" ".") Registers: (* . "wants"), (lex . "wants"), (gender . f), (num . sing), (head . b20), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("wants" "the" "brachet" ".") Registers: (* . "wants"), (lex . "wants"), (gender . f), (num . sing), (head . b20), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b20 With Configuration: Level: 5 State: np/end String: ("wants" "the" "brachet" ".") Registers: (lex . "wants"), (* . "wants"), (gender . f), (num . sing), (head . b20), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("wants" "the" "brachet" ".") Registers: (mood . decl), (agent . b20), (* . b20), (num . sing), (embedded . t), (lex . "she") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("want" "the" "brachet" ".") Registers: (proptype . avo), (* . "want"), (lex . "wants"), (mood . decl), (agent . b20), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("want" "the" "brachet" ".") Registers: (proptype . avo), (* . "want"), (lex . "wants"), (mood . decl), (agent . b20), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("the" "brachet" ".") Registers: (action . "want"), (* . "want"), (lex . "want"), (proptype . avo), (mood . decl), (agent . b20), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("the" "brachet" ".") Registers: (action . "want"), (* . "want"), (lex . "want"), (proptype . avo), (mood . decl), (agent . b20), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("the" "brachet" ".") Sendrs: (agent . b20) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("the" "brachet" ".") Sendrs: (agent . b20) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "brachet" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "brachet" ".") Sendrs: (agent . b20), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("brachet" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b20), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: (".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b20) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "want"), (proptype . avo), (mood . decl), (agent . b20), (embedded . t) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "want"), (proptype . avo), (mood . decl), (agent . b20), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b14), (num . sing), (action . "want"), (proptype . avo), (mood . decl), (agent . b20), (embedded . t) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m375!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (object . b14), (num . sing), (action . "want"), (proptype . avo), (mood . decl), (agent . b20), (embedded . t) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m375!), (* . m375!), (mood . decl), (proptype . avo), (lex . "she"), (pron_case . acc), (agent . b20) Liftrs: (mod), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m375! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m375!), (* . m375!), (mood . decl), (proptype . avo), (pron_case . acc), (agent . b20) Liftrs: (num), (mod), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m375!), (* . m375!), (mood . decl), (mod), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m375!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m375!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m377!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m375!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b20) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m377!)) Registers: (foo b14 n sing 42 b20 f sing 27 b33 m f n sing 4 b34 m sing 2 b35 m f n sing 1 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m377!), (* . m377!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m377!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m377!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b20) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) lady TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m376)) Registers: (tes . m377!), (* . m377!), (reg), (lex . m377!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m376)) Registers: (* . m376), (lex . m376), (tes . m377!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m376)) Registers: (* . m376), (lex . m376), (tes . m377!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m375!) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m375!) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 4 State: gs String: (m375!) Sendrs: (mod), (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m375!) Sendrs: (mod), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b20) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b20) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m297) Registers: (* . b20), (case . nom), (lex . b20) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m297) Registers: (mems . b20), (* . m297), (lex . m297), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m297) Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) lady TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m297), (lex . m297), (mems . b20), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m297), (mems . b20), (case . nom) Entering MAINLOOP with a configuration: Level: 4 State: g/subj String: ((m374)) Registers: (tes . m375!), (* . m375!), (reg), (embedded . t), (mod), (lex . m375!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) wants JUMPing to state: g/v With Configuration: Level: 4 State: g/v String: ((m374)) Registers: (* . m374), (lex . m374), (tes . m375!), (reg), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/v String: ((m374)) Registers: (* . m374), (lex . m374), (tes . m375!), (reg), (embedded . t), (mod) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 5 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: ((m374)) Registers: (* . m374), (reg), (lex . m374), (tes . m375!), (embedded . t), (mod) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 4 State: g/end String: nil Registers: (* . m374), (lex . m374), (reg), (tes . m375!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: nil Registers: (* . m374), (lex . m374), (reg), (tes . m375!), (embedded . t), (mod) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 4 State: g/end String: nil Registers: (lex), (* . m374), (reg), (tes . m375!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (*), (case . obj), (lex . m375!) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (*), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m376)) Registers: (* . m376), (reg), (lex . m376), (tes . m377!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m376), (lex . m376), (reg), (tes . m377!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m376), (lex . m376), (reg), (tes . m377!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m376), (reg), (tes . m377!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m377!), (foo b14 n sing 42 b20 f sing 27 b33 m f n sing 4 b34 m sing 2 b35 m f n sing 1 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m377!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 42 b20 f sing 27 b33 m f n sing 4 b34 m sing 2 b35 m f n sing 1 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m377!), (mood . decl), (proptype . avo) Time (sec.): 1.03 : Merlin says that Sir Gawain must bring the hart to the hall. Input sentence: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "Merlin"), (lex . "Merlin") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "Merlin"), (lex . "Merlin") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "Merlin"), (lex . "Merlin") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "Merlin"), (lex . "Merlin") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "Merlin"), (mood . decl), (pron_case . nom), (lex . "Merlin") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Merlin" "says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "Merlin"), (mood . decl), (pron_case . nom), (lex . "Merlin") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (gender . m), (num . sing), (head . b36), (* . "Merlin"), (lex . "Merlin"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (gender . m), (num . sing), (head . b36), (* . "Merlin"), (lex . "Merlin"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "says"), (lex . "says"), (gender . m), (num . sing), (head . b36), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "says"), (lex . "says"), (gender . m), (num . sing), (head . b36), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "says"), (lex . "says"), (gender . m), (num . sing), (head . b36), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "says"), (lex . "says"), (gender . m), (num . sing), (head . b36), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b36 With Configuration: Level: 3 State: np/end String: ("says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (lex . "says"), (* . "says"), (gender . m), (num . sing), (head . b36), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (mood . decl), (agent . b36), (* . b36), (num . sing), (lex . "Merlin") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b36), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b36), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b36), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b36), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (agent . b36) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (agent . b36) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (agent . b36), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (agent . b36), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b36), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b36), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 5 State: np/art String: ("Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("Sir" "Gawain" "must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 5 State: nppos String: ("must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (gender . m), (num . sing), (head . b37), (* . "Sir Gawain"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (gender . m), (num . sing), (head . b37), (* . "Sir Gawain"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "must"), (lex . "must"), (gender . m), (num . sing), (head . b37), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "must"), (lex . "must"), (gender . m), (num . sing), (head . b37), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "must"), (lex . "must"), (gender . m), (num . sing), (head . b37), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (* . "must"), (lex . "must"), (gender . m), (num . sing), (head . b37), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b37 With Configuration: Level: 5 State: np/end String: ("must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (lex . "must"), (* . "must"), (gender . m), (num . sing), (head . b37), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("must" "bring" "the" "hart" "to" "the" "hall" ".") Registers: (mood . decl), (agent . b37), (* . b37), (num . sing), (embedded . t), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Blocked at arc: (cat v t (setr proptype 'avo) (jump vp)) Doing arc: (cat av t (setr mod *) (liftr mod) (to s/subj)) Taking CAT arc on av, to state s/subj. With Configuration: Level: 4 State: s/subj String: ("bring" "the" "hart" "to" "the" "hall" ".") Registers: (mod . "must"), (* . "must"), (lex . "must"), (mood . decl), (agent . b37), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("bring" "the" "hart" "to" "the" "hall" ".") Registers: (mod . "must"), (* . "must"), (lex . "must"), (mood . decl), (agent . b37), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("bring" "the" "hart" "to" "the" "hall" ".") Registers: (proptype . avo), (* . "bring"), (lex . "bring"), (mod . "must"), (mood . decl), (agent . b37), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("bring" "the" "hart" "to" "the" "hall" ".") Registers: (proptype . avo), (* . "bring"), (lex . "bring"), (mod . "must"), (mood . decl), (agent . b37), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("the" "hart" "to" "the" "hall" ".") Registers: (action . "bring"), (* . "bring"), (lex . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b37), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("the" "hart" "to" "the" "hall" ".") Registers: (action . "bring"), (* . "bring"), (lex . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b37), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("the" "hart" "to" "the" "hall" ".") Sendrs: (agent . b37) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("the" "hart" "to" "the" "hall" ".") Sendrs: (agent . b37) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "hart" "to" "the" "hall" ".") Sendrs: (agent . b37), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "hart" "to" "the" "hall" ".") Sendrs: (agent . b37), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("hart" "to" "the" "hall" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b37), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("hart" "to" "the" "hall" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b37), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: ("to" "the" "hall" ".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b37) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("to" "the" "hall" ".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b37) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("to" "the" "hall" ".") Registers: (* . "to"), (lex . "to"), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b37) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("to" "the" "hall" ".") Registers: (* . "to"), (lex . "to"), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b37) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("to" "the" "hall" ".") Registers: (* . "to"), (lex . "to"), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b37) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("to" "the" "hall" ".") Registers: (* . "to"), (lex . "to"), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b37) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b13 With Configuration: Level: 5 State: np/end String: ("to" "the" "hall" ".") Registers: (lex . "to"), (* . "to"), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b37) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: ("to" "the" "hall" ".") Registers: (object . b13), (* . b13), (num . sing), (lex . "the"), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b37), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("to" "the" "hall" ".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("to" "the" "hall" ".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 5 State: pp/end String: ("the" "hall" ".") Registers: (to . true), (* . "to"), (lex . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 5 State: pp/end String: ("the" "hall" ".") Registers: (to . true), (* . "to"), (lex . "to") Liftrs: (to . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 5 State: pp/end String: ("the" "hall" ".") Registers: (lex . "the"), (to . true), (* . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 4 State: s/finis String: ("the" "hall" ".") Registers: (rel), (prepo . prepo), (*), (to . true), (lex . "to"), (object . b13), (num . sing), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b37), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (push np t (sendr mood) (sendr agent) (sendr object) (setr indobject *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "hall" ".") Sendrs: (object . b13), (agent . b37), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "hall" ".") Sendrs: (object . b13), (agent . b37), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("hall" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b37), (object . b13), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("hall" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b37), (object . b13), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: (".") Registers: (gender), (num . sing), (head . b30), (* . "hall"), (lex . "hall"), (def . t), (mood . decl), (agent . b37), (object . b13) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: (".") Registers: (gender), (num . sing), (head . b30), (* . "hall"), (lex . "hall"), (def . t), (mood . decl), (agent . b37), (object . b13) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b37), (object . b13) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b37), (object . b13) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Blocked at arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Doing arc: (jump np/end t) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b37), (object . b13) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b37), (object . b13) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b30 With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b37), (object . b13) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (indobject . b30), (* . b30), (num . sing), (lex . "the"), (rel), (prepo . prepo), (to . true), (object . b13), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b37), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (indobject . b30), (num . sing), (rel), (prepo . prepo), (to . true), (object . b13), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b37), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (indobject . b30), (num . sing), (rel), (prepo . prepo), (to . true), (object . b13), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b37), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) POPing in state: s/end, a result: (m382!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (indobject . b30), (num . sing), (rel), (prepo . prepo), (to . true), (object . b13), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b37), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m382!), (* . m382!), (mood . decl), (mod . "must"), (lex . "Sir"), (pron_case . acc), (agent . b36) Liftrs: (mod . "must"), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m382! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m382!), (* . m382!), (mood . decl), (mod . "must"), (pron_case . acc), (agent . b36) Liftrs: (num), (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m382!), (* . m382!), (mood . decl), (mod . "must"), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b36) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m382!), (mood . decl), (mod . "must"), (num), (action . "say"), (proptype . avo), (agent . b36) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m382!), (mood . decl), (mod . "must"), (num), (action . "say"), (proptype . avo), (agent . b36) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) POPing in state: s/end, a result: (m385!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m382!), (mood . decl), (mod . "must"), (num), (action . "say"), (proptype . avo), (agent . b36) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m385!)) Registers: (foo b14 n sing 40 b20 f sing 25 b37 m sing 6 b36 m sing 6 b13 m f n sing 5 b33 m f n sing 2 b34 m sing 0 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m385!), (* . m385!), (mood . decl), (lex . "Merlin") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m385!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m385!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b36) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b36) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Merlin TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b36), (case . nom), (lex . b36) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b36), (case . nom), (lex . b36) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b36), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m384)) Registers: (tes . m385!), (* . m385!), (reg), (lex . m385!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m384)) Registers: (* . m384), (lex . m384), (tes . m385!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m384)) Registers: (* . m384), (lex . m384), (tes . m385!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m383) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m383) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) TOing to state: gnp With Configuration: Level: 3 State: gnp String: (m382!) Registers: (mod . must), (* . m383), (case . obj), (lex . m383) Sendrs: (mod . must) Liftrs: (mod . must) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m382!) Registers: (mod . must), (* . m383), (case . obj), (lex . m383) Sendrs: (mod . must) Liftrs: (mod . must) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 4 State: gs String: (m382!) Sendrs: (mod . must), (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m382!) Sendrs: (mod . must), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) JUMPing to state: gs With Configuration: Level: 4 State: gs String: (m382!) Registers: (two . two), (* . m382!), (embedded . t), (mod . must), (lex . m382!) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m382!) Registers: (two . two), (* . m382!), (embedded . t), (mod . must), (lex . m382!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b37) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b37) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Gawain TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . b37), (case . nom), (lex . b37) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . b37), (case . nom), (lex . b37) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . b37), (case . nom) Entering MAINLOOP with a configuration: Level: 4 State: g/subj String: ((m381)) Registers: (tes . m382!), (* . m382!), (reg), (lex . m382!), (two . two), (embedded . t), (mod . must) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) must bring JUMPing to state: g/v With Configuration: Level: 4 State: g/v String: ((m381)) Registers: (* . m381), (lex . m381), (tes . m382!), (reg), (two . two), (embedded . t), (mod . must) Entering MAINLOOP with a configuration: Level: 4 State: g/v String: ((m381)) Registers: (* . m381), (lex . m381), (tes . m382!), (reg), (two . two), (embedded . t), (mod . must) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b13) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b13) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m233) Registers: (* . b13), (case . obj), (lex . b13) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m233) Registers: (* . b13), (case . obj), (lex . b13) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m233) Registers: (mems b31 b13), (* . m233), (lex . m233), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m233) Registers: (mems b31 b13), (* . m233), (lex . m233), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems b31 b13), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems b31 b13), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems b31 b13), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems b31 b13), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m233), (mems b31 b13), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: ((m381)) Registers: (* . m381), (reg), (lex . m381), (tes . m382!), (two . two), (embedded . t), (mod . must) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) JUMPing to state: g/end With Configuration: Level: 4 State: g/end String: ((m381)) Registers: (* . m381), (lex . m381), (reg), (tes . m382!), (two . two), (embedded . t), (mod . must) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: ((m381)) Registers: (* . m381), (lex . m381), (reg), (tes . m382!), (two . two), (embedded . t), (mod . must) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) TOing to state: g/obj With Configuration: Level: 4 State: g/obj String: (m382!) Registers: (* . m382!), (lex . m381), (reg), (tes . m382!), (two . two), (embedded . t), (mod . must) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: (m382!) Registers: (* . m382!), (lex . m381), (reg), (tes . m382!), (two . two), (embedded . t), (mod . must) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) to RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b30) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b30) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) RCALLing to state: gnp, With Configuration: Level: 6 State: gnp String: (b29) Sendrs: (poss . t) Entering MAINLOOP with a configuration: Level: 6 State: gnp String: (b29) Sendrs: (poss . t) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) King Arthur's TOing to state: gnp/end With Configuration: Level: 6 State: gnp/end String: nil Registers: (* . b29), (poss . t), (lex . b29) Entering MAINLOOP with a configuration: Level: 6 State: gnp/end String: nil Registers: (* . b29), (poss . t), (lex . b29) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 6 State: gnp/end String: nil Registers: (lex), (* . b29), (poss . t) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: ((m340)) Registers: (num . sing), (* . b30), (reg), (case . obj), (lex . b30) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hall TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m340), (lex . m340), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m340), (lex . m340), (num . sing), (reg), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m340), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: nil Registers: (* . m382!), (reg), (lex . m382!), (tes . m382!), (two . two), (embedded . t), (mod . must) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 4 State: g/end String: nil Registers: (lex), (* . m382!), (reg), (tes . m382!), (two . two), (embedded . t), (mod . must) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (*), (mod . must), (lex . m382!), (case . obj) Liftrs: (mod . must) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (*), (mod . must), (case . obj) Liftrs: (mod . must) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m384)) Registers: (* . m384), (reg), (mod . must), (lex . m384), (tes . m385!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m384), (lex . m384), (reg), (mod . must), (tes . m385!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m384), (lex . m384), (reg), (mod . must), (tes . m385!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m384), (reg), (mod . must), (tes . m385!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m385!), (foo b14 n sing 40 b20 f sing 25 b37 m sing 6 b36 m sing 6 b13 m f n sing 5 b33 m f n sing 2 b34 m sing 0 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m385!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 40 b20 f sing 25 b37 m sing 6 b36 m sing 6 b13 m f n sing 5 b33 m f n sing 2 b34 m sing 0 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m385!), (mood . decl) Time (sec.): 1.49 : Merlin says that Sir Tor must bring the brachet to the hall. Input sentence: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "Merlin"), (lex . "Merlin") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "Merlin"), (lex . "Merlin") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "Merlin"), (lex . "Merlin") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "Merlin"), (lex . "Merlin") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 3 State: np/art String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "Merlin"), (mood . decl), (pron_case . nom), (lex . "Merlin") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("Merlin" "says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "Merlin"), (mood . decl), (pron_case . nom), (lex . "Merlin") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (gender . m), (num . sing), (head . b38), (* . "Merlin"), (lex . "Merlin"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (gender . m), (num . sing), (head . b38), (* . "Merlin"), (lex . "Merlin"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "says"), (lex . "says"), (gender . m), (num . sing), (head . b38), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "says"), (lex . "says"), (gender . m), (num . sing), (head . b38), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "says"), (lex . "says"), (gender . m), (num . sing), (head . b38), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "says"), (lex . "says"), (gender . m), (num . sing), (head . b38), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b38 With Configuration: Level: 3 State: np/end String: ("says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (lex . "says"), (* . "says"), (gender . m), (num . sing), (head . b38), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (mood . decl), (agent . b38), (* . b38), (num . sing), (lex . "Merlin") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b38), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b38), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b38), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b38), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (agent . b38) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (agent . b38) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (agent . b38), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (agent . b38), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b38), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b38), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Blocked at arc: (cat art (setr def (getf def)) (to np/art)) Doing arc: (jump np/art t) JUMPing to state: np/art With Configuration: Level: 5 State: np/art String: ("Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("Sir" "Tor" "must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "Sir"), (mood . decl), (pron_case . nom), (lex . "Sir") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on npr, to state nppos. With Configuration: Level: 5 State: nppos String: ("must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (gender . m), (num . sing), (head . b39), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (gender . m), (num . sing), (head . b39), (* . "Sir Tor"), (lex . "Sir"), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "must"), (lex . "must"), (gender . m), (num . sing), (head . b39), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "must"), (lex . "must"), (gender . m), (num . sing), (head . b39), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "must"), (lex . "must"), (gender . m), (num . sing), (head . b39), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (* . "must"), (lex . "must"), (gender . m), (num . sing), (head . b39), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b39 With Configuration: Level: 5 State: np/end String: ("must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (lex . "must"), (* . "must"), (gender . m), (num . sing), (head . b39), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("must" "bring" "the" "brachet" "to" "the" "hall" ".") Registers: (mood . decl), (agent . b39), (* . b39), (num . sing), (embedded . t), (lex . "Sir") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Blocked at arc: (cat v t (setr proptype 'avo) (jump vp)) Doing arc: (cat av t (setr mod *) (liftr mod) (to s/subj)) Taking CAT arc on av, to state s/subj. With Configuration: Level: 4 State: s/subj String: ("bring" "the" "brachet" "to" "the" "hall" ".") Registers: (mod . "must"), (* . "must"), (lex . "must"), (mood . decl), (agent . b39), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("bring" "the" "brachet" "to" "the" "hall" ".") Registers: (mod . "must"), (* . "must"), (lex . "must"), (mood . decl), (agent . b39), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("bring" "the" "brachet" "to" "the" "hall" ".") Registers: (proptype . avo), (* . "bring"), (lex . "bring"), (mod . "must"), (mood . decl), (agent . b39), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("bring" "the" "brachet" "to" "the" "hall" ".") Registers: (proptype . avo), (* . "bring"), (lex . "bring"), (mod . "must"), (mood . decl), (agent . b39), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("the" "brachet" "to" "the" "hall" ".") Registers: (action . "bring"), (* . "bring"), (lex . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b39), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("the" "brachet" "to" "the" "hall" ".") Registers: (action . "bring"), (* . "bring"), (lex . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b39), (num . sing), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("the" "brachet" "to" "the" "hall" ".") Sendrs: (agent . b39) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("the" "brachet" "to" "the" "hall" ".") Sendrs: (agent . b39) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "brachet" "to" "the" "hall" ".") Sendrs: (agent . b39), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "brachet" "to" "the" "hall" ".") Sendrs: (agent . b39), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("brachet" "to" "the" "hall" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b39), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("brachet" "to" "the" "hall" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b39), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: ("to" "the" "hall" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b39) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("to" "the" "hall" ".") Registers: (gender . n), (num . sing), (head . b14), (* . "brachet"), (lex . "brachet"), (def . t), (pron_case . acc), (mood . decl), (agent . b39) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("to" "the" "hall" ".") Registers: (* . "to"), (lex . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b39) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("to" "the" "hall" ".") Registers: (* . "to"), (lex . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b39) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("to" "the" "hall" ".") Registers: (* . "to"), (lex . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b39) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("to" "the" "hall" ".") Registers: (* . "to"), (lex . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b39) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b14 With Configuration: Level: 5 State: np/end String: ("to" "the" "hall" ".") Registers: (lex . "to"), (* . "to"), (gender . n), (num . sing), (head . b14), (def . t), (pron_case . acc), (mood . decl), (agent . b39) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: ("to" "the" "hall" ".") Registers: (object . b14), (* . b14), (num . sing), (lex . "the"), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b39), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("to" "the" "hall" ".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("to" "the" "hall" ".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 5 State: pp/end String: ("the" "hall" ".") Registers: (to . true), (* . "to"), (lex . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 5 State: pp/end String: ("the" "hall" ".") Registers: (to . true), (* . "to"), (lex . "to") Liftrs: (to . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 5 State: pp/end String: ("the" "hall" ".") Registers: (lex . "the"), (to . true), (* . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 4 State: s/finis String: ("the" "hall" ".") Registers: (rel), (prepo . prepo), (*), (to . true), (lex . "to"), (object . b14), (num . sing), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b39), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (push np t (sendr mood) (sendr agent) (sendr object) (setr indobject *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "hall" ".") Sendrs: (object . b14), (agent . b39), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "hall" ".") Sendrs: (object . b14), (agent . b39), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("hall" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b39), (object . b14), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("hall" ".") Registers: (def . t), (* . "the"), (mood . decl), (agent . b39), (object . b14), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: (".") Registers: (gender), (num . sing), (head . b30), (* . "hall"), (lex . "hall"), (def . t), (mood . decl), (agent . b39), (object . b14) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: (".") Registers: (gender), (num . sing), (head . b30), (* . "hall"), (lex . "hall"), (def . t), (mood . decl), (agent . b39), (object . b14) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b39), (object . b14) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b39), (object . b14) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Blocked at arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) Doing arc: (jump np/end t) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b39), (object . b14) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b39), (object . b14) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b30 With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender), (num . sing), (head . b30), (def . t), (mood . decl), (agent . b39), (object . b14) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (indobject . b30), (* . b30), (num . sing), (lex . "the"), (rel), (prepo . prepo), (to . true), (object . b14), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b39), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (indobject . b30), (num . sing), (rel), (prepo . prepo), (to . true), (object . b14), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b39), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (indobject . b30), (num . sing), (rel), (prepo . prepo), (to . true), (object . b14), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b39), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) POPing in state: s/end, a result: (m389!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (indobject . b30), (num . sing), (rel), (prepo . prepo), (to . true), (object . b14), (action . "bring"), (proptype . avo), (mod . "must"), (mood . decl), (agent . b39), (embedded . t) Liftrs: (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m389!), (* . m389!), (mood . decl), (mod . "must"), (lex . "Sir"), (pron_case . acc), (agent . b38) Liftrs: (mod . "must"), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m389! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m389!), (* . m389!), (mood . decl), (mod . "must"), (pron_case . acc), (agent . b38) Liftrs: (num), (mod . "must"), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m389!), (* . m389!), (mood . decl), (mod . "must"), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b38) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m389!), (mood . decl), (mod . "must"), (num), (action . "say"), (proptype . avo), (agent . b38) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m389!), (mood . decl), (mod . "must"), (num), (action . "say"), (proptype . avo), (agent . b38) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) POPing in state: s/end, a result: (m392!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m389!), (mood . decl), (mod . "must"), (num), (action . "say"), (proptype . avo), (agent . b38) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m392!)) Registers: (foo b14 n sing 45 b20 f sing 23 b39 m sing 6 b38 m sing 6 b37 m sing 4 b36 m sing 4 b13 m f n sing 3 b33 m f n sing 0 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m392!), (* . m392!), (mood . decl), (lex . "Merlin") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m392!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m392!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b38) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b38) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Merlin TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . b38), (case . nom), (lex . b38) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . b38), (case . nom), (lex . b38) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . b38), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m391)) Registers: (tes . m392!), (* . m392!), (reg), (lex . m392!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m391)) Registers: (* . m391), (lex . m391), (tes . m392!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m391)) Registers: (* . m391), (lex . m391), (tes . m392!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m390) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m390) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) TOing to state: gnp With Configuration: Level: 3 State: gnp String: (m389!) Registers: (mod . must), (* . m390), (case . obj), (lex . m390) Sendrs: (mod . must) Liftrs: (mod . must) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m389!) Registers: (mod . must), (* . m390), (case . obj), (lex . m390) Sendrs: (mod . must) Liftrs: (mod . must) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 4 State: gs String: (m389!) Sendrs: (mod . must), (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m389!) Sendrs: (mod . must), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) JUMPing to state: gs With Configuration: Level: 4 State: gs String: (m389!) Registers: (two . two), (* . m389!), (embedded . t), (mod . must), (lex . m389!) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m389!) Registers: (two . two), (* . m389!), (embedded . t), (mod . must), (lex . m389!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b39) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b39) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Sir Tor TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . b39), (case . nom), (lex . b39) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . b39), (case . nom), (lex . b39) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . b39), (case . nom) Entering MAINLOOP with a configuration: Level: 4 State: g/subj String: ((m388)) Registers: (tes . m389!), (* . m389!), (reg), (lex . m389!), (two . two), (embedded . t), (mod . must) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) must bring JUMPing to state: g/v With Configuration: Level: 4 State: g/v String: ((m388)) Registers: (* . m388), (lex . m388), (tes . m389!), (reg), (two . two), (embedded . t), (mod . must) Entering MAINLOOP with a configuration: Level: 4 State: g/v String: ((m388)) Registers: (* . m388), (lex . m388), (tes . m389!), (reg), (two . two), (embedded . t), (mod . must) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b14) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b14) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 5 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b14) Registers: (adjdescr . done), (adj . white), (* . b14), (case . obj), (lex . b14) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m237) Registers: (* . b14), (lex . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m237) Registers: (mems . b14), (* . m237), (lex . m237), (adjdescr . done), (adj . white), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the white JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m237) Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) brachet TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m237), (lex . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m237), (mems . b14), (adjdescr . done), (adj . white), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: ((m388)) Registers: (* . m388), (reg), (lex . m388), (tes . m389!), (two . two), (embedded . t), (mod . must) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) JUMPing to state: g/end With Configuration: Level: 4 State: g/end String: ((m388)) Registers: (* . m388), (lex . m388), (reg), (tes . m389!), (two . two), (embedded . t), (mod . must) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: ((m388)) Registers: (* . m388), (lex . m388), (reg), (tes . m389!), (two . two), (embedded . t), (mod . must) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) TOing to state: g/obj With Configuration: Level: 4 State: g/obj String: (m389!) Registers: (* . m389!), (lex . m388), (reg), (tes . m389!), (two . two), (embedded . t), (mod . must) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: (m389!) Registers: (* . m389!), (lex . m388), (reg), (tes . m389!), (two . two), (embedded . t), (mod . must) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) to RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b30) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b30) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) RCALLing to state: gnp, With Configuration: Level: 6 State: gnp String: (b29) Sendrs: (poss . t) Entering MAINLOOP with a configuration: Level: 6 State: gnp String: (b29) Sendrs: (poss . t) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) King Arthur's TOing to state: gnp/end With Configuration: Level: 6 State: gnp/end String: nil Registers: (* . b29), (poss . t), (lex . b29) Entering MAINLOOP with a configuration: Level: 6 State: gnp/end String: nil Registers: (* . b29), (poss . t), (lex . b29) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 6 State: gnp/end String: nil Registers: (lex), (* . b29), (poss . t) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: ((m340)) Registers: (num . sing), (* . b30), (reg), (case . obj), (lex . b30) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hall TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m340), (lex . m340), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m340), (lex . m340), (num . sing), (reg), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m340), (num . sing), (reg), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: nil Registers: (* . m389!), (reg), (lex . m389!), (tes . m389!), (two . two), (embedded . t), (mod . must) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 4 State: g/end String: nil Registers: (lex), (* . m389!), (reg), (tes . m389!), (two . two), (embedded . t), (mod . must) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (*), (mod . must), (lex . m389!), (case . obj) Liftrs: (mod . must) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (*), (mod . must), (case . obj) Liftrs: (mod . must) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m391)) Registers: (* . m391), (reg), (mod . must), (lex . m391), (tes . m392!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m391), (lex . m391), (reg), (mod . must), (tes . m392!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m391), (lex . m391), (reg), (mod . must), (tes . m392!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m391), (reg), (mod . must), (tes . m392!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m392!), (foo b14 n sing 45 b20 f sing 23 b39 m sing 6 b38 m sing 6 b37 m sing 4 b36 m sing 4 b13 m f n sing 3 b33 m f n sing 0 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m392!), (mood . decl) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 45 b20 f sing 23 b39 m sing 6 b38 m sing 6 b37 m sing 4 b36 m sing 4 b13 m f n sing 3 b33 m f n sing 0 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m392!), (mood . decl) Time (sec.): 1.49 : An elder says that a white hart comes to a place. Input sentence: ("An" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "an"), (lex . "an") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "an"), (lex . "an") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "an"), (lex . "an") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "an"), (lex . "an") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("an" "elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (def), (* . "an"), (mood . decl), (pron_case . nom), (lex . "an") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("elder" "says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (def), (* . "an"), (mood . decl), (pron_case . nom), (lex . "an") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (gender m f), (num . sing), (head . b40), (* . "elder"), (lex . "elder"), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (gender m f), (num . sing), (head . b40), (* . "elder"), (lex . "elder"), (def), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b40 With Configuration: Level: 3 State: np/end String: ("says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (lex . "says"), (* . "says"), (gender m f), (num . sing), (head . b40), (def), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (mood . decl), (agent . b40), (* . b40), (num . sing), (lex . "an") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (agent . b40) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (agent . b40) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (agent . b40), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (agent . b40), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b40), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("a" "white" "hart" "comes" "to" "a" "place" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b40), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("a" "white" "hart" "comes" "to" "a" "place" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("white" "hart" "comes" "to" "a" "place" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("white" "hart" "comes" "to" "a" "place" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Taking CAT arc on adj, to state np/art. With Configuration: Level: 5 State: np/art String: ("hart" "comes" "to" "a" "place" ".") Registers: (props . m89), (pron_case . nom), (mood . decl), (def), (lex . "white"), (* . "white") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("hart" "comes" "to" "a" "place" ".") Registers: (props . m89), (pron_case . nom), (mood . decl), (def), (lex . "white"), (* . "white") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: ("comes" "to" "a" "place" ".") Registers: (gender m f n), (num . sing), (head . b41), (* . "hart"), (lex . "hart"), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("comes" "to" "a" "place" ".") Registers: (gender m f n), (num . sing), (head . b41), (* . "hart"), (lex . "hart"), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("comes" "to" "a" "place" ".") Registers: (* . "comes"), (lex . "comes"), (gender m f n), (num . sing), (head . b41), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("comes" "to" "a" "place" ".") Registers: (* . "comes"), (lex . "comes"), (gender m f n), (num . sing), (head . b41), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("comes" "to" "a" "place" ".") Registers: (* . "comes"), (lex . "comes"), (gender m f n), (num . sing), (head . b41), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("comes" "to" "a" "place" ".") Registers: (* . "comes"), (lex . "comes"), (gender m f n), (num . sing), (head . b41), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b41 With Configuration: Level: 5 State: np/end String: ("comes" "to" "a" "place" ".") Registers: (lex . "comes"), (* . "comes"), (gender m f n), (num . sing), (head . b41), (props . m89), (pron_case . nom), (mood . decl), (def) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("comes" "to" "a" "place" ".") Registers: (mood . decl), (agent . b41), (* . b41), (num . sing), (embedded . t), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("come" "to" "a" "place" ".") Registers: (proptype . avo), (* . "come"), (lex . "comes"), (mood . decl), (agent . b41), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("come" "to" "a" "place" ".") Registers: (proptype . avo), (* . "come"), (lex . "comes"), (mood . decl), (agent . b41), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("to" "a" "place" ".") Registers: (action . "come"), (* . "come"), (lex . "come"), (proptype . avo), (mood . decl), (agent . b41), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("to" "a" "place" ".") Registers: (action . "come"), (* . "come"), (lex . "come"), (proptype . avo), (mood . decl), (agent . b41), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("to" "a" "place" ".") Sendrs: (agent . b41) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("to" "a" "place" ".") Sendrs: (agent . b41) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 5 State: pp/end String: ("a" "place" ".") Registers: (to . true), (* . "to"), (agent . b41), (lex . "to") Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 5 State: pp/end String: ("a" "place" ".") Registers: (to . true), (* . "to"), (agent . b41), (lex . "to") Liftrs: (to . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 5 State: pp/end String: ("a" "place" ".") Registers: (lex . "a"), (to . true), (* . "to"), (agent . b41) Liftrs: (to . true) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("a" "place" ".") Registers: (prepo . propo), (*), (to . true), (lex . "to"), (action . "come"), (proptype . avo), (mood . decl), (agent . b41), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("a" "place" ".") Sendrs: (agent . b41) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("a" "place" ".") Sendrs: (agent . b41) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("a" "place" ".") Sendrs: (agent . b41), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("a" "place" ".") Sendrs: (agent . b41), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("place" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent . b41), (lex . "a") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("place" ".") Registers: (def), (* . "a"), (pron_case . acc), (mood . decl), (agent . b41), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: (".") Registers: (gender), (num . sing), (head . b42), (* . "place"), (lex . "place"), (def), (pron_case . acc), (mood . decl), (agent . b41) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: (".") Registers: (gender), (num . sing), (head . b42), (* . "place"), (lex . "place"), (def), (pron_case . acc), (mood . decl), (agent . b41) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b42), (def), (pron_case . acc), (mood . decl), (agent . b41) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b42), (def), (pron_case . acc), (mood . decl), (agent . b41) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b42), (def), (pron_case . acc), (mood . decl), (agent . b41) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender), (num . sing), (head . b42), (def), (pron_case . acc), (mood . decl), (agent . b41) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b42 With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender), (num . sing), (head . b42), (def), (pron_case . acc), (mood . decl), (agent . b41) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (object . b42), (* . b42), (num . sing), (lex . "a"), (prepo . propo), (to . true), (action . "come"), (proptype . avo), (mood . decl), (agent . b41), (embedded . t) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b42), (num . sing), (prepo . propo), (to . true), (action . "come"), (proptype . avo), (mood . decl), (agent . b41), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b42), (num . sing), (prepo . propo), (to . true), (action . "come"), (proptype . avo), (mood . decl), (agent . b41), (embedded . t) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) POPing in state: s/end, a result: (m400!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (object . b42), (num . sing), (prepo . propo), (to . true), (action . "come"), (proptype . avo), (mood . decl), (agent . b41), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m400!), (* . m400!), (mood . decl), (lex . "a"), (pron_case . acc), (agent . b40) Liftrs: (mod), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m400! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m400!), (* . m400!), (mood . decl), (pron_case . acc), (agent . b40) Liftrs: (num), (mod), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m400!), (* . m400!), (mood . decl), (mod), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m400!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m400!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m402!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m400!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m402!)) Registers: (foo b14 n sing 43 b20 f sing 21 b40 m f sing 6 b42 sing 5 b39 m sing 4 b38 m sing 4 b37 m sing 2 b36 m sing 2 b13 m f n sing 1 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m402!), (* . m402!), (mood . decl), (proptype . avo), (lex . "an") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m402!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m402!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b40) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b40) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m219) Registers: (* . b40), (case . nom), (lex . b40) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m219) Registers: (* . b40), (case . nom), (lex . b40) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m219) Registers: (mems . b40), (* . m219), (lex . m219), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m219) Registers: (mems . b40), (* . m219), (lex . m219), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m219) Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m219) Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) elder TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m401)) Registers: (tes . m402!), (* . m402!), (reg), (lex . m402!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m401)) Registers: (* . m401), (lex . m401), (tes . m402!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m401)) Registers: (* . m401), (lex . m401), (tes . m402!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m400!) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m400!) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 4 State: gs String: (m400!) Sendrs: (mod), (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m400!) Sendrs: (mod), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) JUMPing to state: gs With Configuration: Level: 4 State: gs String: (m400!) Registers: (two . two), (* . m400!), (embedded . t), (mod), (lex . m400!) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m400!) Registers: (two . two), (* . m400!), (embedded . t), (mod), (lex . m400!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b41) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b41) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) JUMPing to state: gnp With Configuration: Level: 5 State: gnp String: (b41) Registers: (adjdescr . done), (adj . white), (* . b41), (case . nom), (lex . b41) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b41) Registers: (adjdescr . done), (adj . white), (* . b41), (case . nom), (lex . b41) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m233) Registers: (* . b41), (lex . b41), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m233) Registers: (* . b41), (lex . b41), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m233) Registers: (mems b41 b31 b13), (* . m233), (lex . m233), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m233) Registers: (mems b41 b31 b13), (* . m233), (lex . m233), (adjdescr . done), (adj . white), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a white JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems b41 b31 b13), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems b41 b31 b13), (adjdescr . done), (adj . white), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems b41 b31 b13), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems b41 b31 b13), (adjdescr . done), (adj . white), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m233), (mems b41 b31 b13), (adjdescr . done), (adj . white), (case . nom) Entering MAINLOOP with a configuration: Level: 4 State: g/subj String: ((m399)) Registers: (tes . m400!), (* . m400!), (reg), (lex . m400!), (two . two), (embedded . t), (mod) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) comes JUMPing to state: g/v With Configuration: Level: 4 State: g/v String: ((m399)) Registers: (* . m399), (lex . m399), (tes . m400!), (reg), (two . two), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/v String: ((m399)) Registers: (* . m399), (lex . m399), (tes . m400!), (reg), (two . two), (embedded . t), (mod) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 4 State: g/obj String: (m400!) Registers: (* . m399), (lex . m399), (tes . m400!), (reg), (two . two), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: (m400!) Registers: (* . m399), (lex . m399), (tes . m400!), (reg), (two . two), (embedded . t), (mod) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) to RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b42) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b42) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m396) Registers: (* . b42), (case . obj), (lex . b42) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m396) Registers: (* . b42), (case . obj), (lex . b42) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m396) Registers: (mems . b42), (* . m396), (lex . m396), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m396) Registers: (mems . b42), (* . m396), (lex . m396), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m396) Registers: (* . m396), (lex . m396), (mems . b42), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m396) Registers: (* . m396), (lex . m396), (mems . b42), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) place TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m396), (lex . m396), (mems . b42), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m396), (lex . m396), (mems . b42), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m396), (mems . b42), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: nil Registers: (* . m400!), (reg), (lex . m400!), (tes . m400!), (two . two), (embedded . t), (mod) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 4 State: g/end String: nil Registers: (lex), (* . m400!), (reg), (tes . m400!), (two . two), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (*), (case . obj), (lex . m400!) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (*), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m401)) Registers: (* . m401), (reg), (lex . m401), (tes . m402!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m401), (lex . m401), (reg), (tes . m402!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m401), (lex . m401), (reg), (tes . m402!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m401), (reg), (tes . m402!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m402!), (foo b14 n sing 43 b20 f sing 21 b40 m f sing 6 b42 sing 5 b39 m sing 4 b38 m sing 4 b37 m sing 2 b36 m sing 2 b13 m f n sing 1 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m402!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 43 b20 f sing 21 b40 m f sing 6 b42 sing 5 b39 m sing 4 b38 m sing 4 b37 m sing 2 b36 m sing 2 b13 m f n sing 1 b8 b7 b6 b17 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m402!), (mood . decl), (proptype . avo) Time (sec.): 1.26 : The elder says that a hound chases the hart. Input sentence: ("The" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("elder" "says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (gender m f), (num . sing), (head . b40), (* . "elder"), (lex . "elder"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (gender m f), (num . sing), (head . b40), (* . "elder"), (lex . "elder"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b40 With Configuration: Level: 3 State: np/end String: ("says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (lex . "says"), (* . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (mood . decl), (agent . b40), (* . b40), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "a" "hound" "chases" "the" "hart" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "a" "hound" "chases" "the" "hart" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "a" "hound" "chases" "the" "hart" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "a" "hound" "chases" "the" "hart" ".") Sendrs: (agent . b40) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "a" "hound" "chases" "the" "hart" ".") Sendrs: (agent . b40) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "a" "hound" "chases" "the" "hart" ".") Sendrs: (agent . b40), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "a" "hound" "chases" "the" "hart" ".") Sendrs: (agent . b40), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("a" "hound" "chases" "the" "hart" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b40), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("a" "hound" "chases" "the" "hart" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b40), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("a" "hound" "chases" "the" "hart" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("a" "hound" "chases" "the" "hart" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("a" "hound" "chases" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("a" "hound" "chases" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("hound" "chases" "the" "hart" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("hound" "chases" "the" "hart" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: ("chases" "the" "hart" ".") Registers: (gender m f n), (num . sing), (head . b43), (* . "hound"), (lex . "hound"), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("chases" "the" "hart" ".") Registers: (gender m f n), (num . sing), (head . b43), (* . "hound"), (lex . "hound"), (def), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("chases" "the" "hart" ".") Registers: (* . "chases"), (lex . "chases"), (gender m f n), (num . sing), (head . b43), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("chases" "the" "hart" ".") Registers: (* . "chases"), (lex . "chases"), (gender m f n), (num . sing), (head . b43), (def), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("chases" "the" "hart" ".") Registers: (* . "chases"), (lex . "chases"), (gender m f n), (num . sing), (head . b43), (def), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("chases" "the" "hart" ".") Registers: (* . "chases"), (lex . "chases"), (gender m f n), (num . sing), (head . b43), (def), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b43 With Configuration: Level: 5 State: np/end String: ("chases" "the" "hart" ".") Registers: (lex . "chases"), (* . "chases"), (gender m f n), (num . sing), (head . b43), (def), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("chases" "the" "hart" ".") Registers: (mood . decl), (agent . b43), (* . b43), (num . sing), (embedded . t), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("chase" "the" "hart" ".") Registers: (proptype . avo), (* . "chase"), (lex . "chases"), (mood . decl), (agent . b43), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("chase" "the" "hart" ".") Registers: (proptype . avo), (* . "chase"), (lex . "chases"), (mood . decl), (agent . b43), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("the" "hart" ".") Registers: (action . "chase"), (* . "chase"), (lex . "chase"), (proptype . avo), (mood . decl), (agent . b43), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("the" "hart" ".") Registers: (action . "chase"), (* . "chase"), (lex . "chase"), (proptype . avo), (mood . decl), (agent . b43), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("the" "hart" ".") Sendrs: (agent . b43) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("the" "hart" ".") Sendrs: (agent . b43) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "hart" ".") Sendrs: (agent . b43), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "hart" ".") Sendrs: (agent . b43), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("hart" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b43), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("hart" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b43), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b43) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b43) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b43) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b43) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b43) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b43) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b13 With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b43) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (object . b13), (* . b13), (num . sing), (lex . "the"), (action . "chase"), (proptype . avo), (mood . decl), (agent . b43), (embedded . t) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b13), (num . sing), (action . "chase"), (proptype . avo), (mood . decl), (agent . b43), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b13), (num . sing), (action . "chase"), (proptype . avo), (mood . decl), (agent . b43), (embedded . t) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m407!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (object . b13), (num . sing), (action . "chase"), (proptype . avo), (mood . decl), (agent . b43), (embedded . t) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m407!), (* . m407!), (mood . decl), (proptype . avo), (lex . "a"), (pron_case . acc), (agent . b40) Liftrs: (mod), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m407! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m407!), (* . m407!), (mood . decl), (proptype . avo), (pron_case . acc), (agent . b40) Liftrs: (num), (mod), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m407!), (* . m407!), (mood . decl), (mod), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m407!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m407!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m409!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m407!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m409!)) Registers: (foo b14 n sing 41 b20 f sing 19 b40 m f sing 12 b13 m f n sing 6 b43 m f n sing 6 b42 sing 3 b39 m sing 2 b38 m sing 2 b37 m sing 0 b36 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m409!), (* . m409!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m409!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m409!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b40) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b40) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m219) Registers: (* . b40), (case . nom), (lex . b40) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m219) Registers: (* . b40), (case . nom), (lex . b40) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m219) Registers: (mems . b40), (* . m219), (lex . m219), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m219) Registers: (mems . b40), (* . m219), (lex . m219), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m219) Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m219) Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) elder TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m408)) Registers: (tes . m409!), (* . m409!), (reg), (lex . m409!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m408)) Registers: (* . m408), (lex . m408), (tes . m409!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m408)) Registers: (* . m408), (lex . m408), (tes . m409!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m407!) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m407!) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) that CALLing to state: gs, With Configuration: Level: 4 State: gs String: (m407!) Sendrs: (mod), (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: gs String: (m407!) Sendrs: (mod), (embedded . t) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b43) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b43) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m35) Registers: (* . b43), (case . nom), (lex . b43) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m35) Registers: (* . b43), (case . nom), (lex . b43) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m35) Registers: (mems b43 b15), (* . m35), (lex . m35), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m35) Registers: (mems b43 b15), (* . m35), (lex . m35), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m35) Registers: (* . m35), (lex . m35), (mems b43 b15), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m35) Registers: (* . m35), (lex . m35), (mems b43 b15), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hound TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m35), (lex . m35), (mems b43 b15), (case . nom) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m35), (lex . m35), (mems b43 b15), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m35), (mems b43 b15), (case . nom) Entering MAINLOOP with a configuration: Level: 4 State: g/subj String: ((m406)) Registers: (tes . m407!), (* . m407!), (reg), (embedded . t), (mod), (lex . m407!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) chases JUMPing to state: g/v With Configuration: Level: 4 State: g/v String: ((m406)) Registers: (* . m406), (lex . m406), (tes . m407!), (reg), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/v String: ((m406)) Registers: (* . m406), (lex . m406), (tes . m407!), (reg), (embedded . t), (mod) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 5 State: gnp String: (b13) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp String: (b13) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 5 State: gdefcat String: (m233) Registers: (* . b13), (case . obj), (lex . b13) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat String: (m233) Registers: (* . b13), (case . obj), (lex . b13) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 5 State: gdefcat1 String: (m233) Registers: (mems b41 b31 b13), (* . m233), (lex . m233), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gdefcat1 String: (m233) Registers: (mems b41 b31 b13), (* . m233), (lex . m233), (case . obj) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Blocked at arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) Doing arc: (jump gcat (> (length (getr mems)) 1) (say a) (say (getr adj))) a JUMPing to state: gcat With Configuration: Level: 5 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems b41 b31 b13), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gcat String: (m233) Registers: (* . m233), (lex . m233), (mems b41 b31 b13), (case . obj) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) hart TOing to state: gnp/end With Configuration: Level: 5 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems b41 b31 b13), (case . obj) Entering MAINLOOP with a configuration: Level: 5 State: gnp/end String: nil Registers: (* . m233), (lex . m233), (mems b41 b31 b13), (case . obj) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 5 State: gnp/end String: nil Registers: (lex), (* . m233), (mems b41 b31 b13), (case . obj) Entering MAINLOOP with a configuration: Level: 4 State: g/obj String: ((m406)) Registers: (* . m406), (reg), (lex . m406), (tes . m407!), (embedded . t), (mod) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 4 State: g/end String: nil Registers: (* . m406), (lex . m406), (reg), (tes . m407!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 4 State: g/end String: nil Registers: (* . m406), (lex . m406), (reg), (tes . m407!), (embedded . t), (mod) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 4 State: g/end String: nil Registers: (lex), (* . m406), (reg), (tes . m407!), (embedded . t), (mod) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (*), (case . obj), (lex . m407!) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (*), (case . obj) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: ((m408)) Registers: (* . m408), (reg), (lex . m408), (tes . m409!) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m408), (lex . m408), (reg), (tes . m409!) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m408), (lex . m408), (reg), (tes . m409!) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m408), (reg), (tes . m409!) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m409!), (foo b14 n sing 41 b20 f sing 19 b40 m f sing 12 b13 m f n sing 6 b43 m f n sing 6 b42 sing 3 b39 m sing 2 b38 m sing 2 b37 m sing 0 b36 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m409!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 41 b20 f sing 19 b40 m f sing 12 b13 m f n sing 6 b43 m f n sing 6 b42 sing 3 b39 m sing 2 b38 m sing 2 b37 m sing 0 b36 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m409!), (mood . decl), (proptype . avo) Time (sec.): 1.18 : The elder says that a white brachet is nextto the hart. Input sentence: ("The" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Entering MAINLOOP with a configuration: Level: 1 State: s String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Doing arc: (wrd setk t (to stk)) Blocked at arc: (wrd setk t (to stk)) Doing arc: (wrd in t (to sin)) Blocked at arc: (wrd in t (to sin)) Doing arc: (jump s1 t (or (* 'wh) ($ 'wh)) (or (* 'x) ($ 'x))) JUMPing to state: s1 With Configuration: Level: 1 State: s1 String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s1 String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Doing arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Blocked at arc: (wrd define t (progn (with-snepsul-eval `(perform (build action believe object1 (build agent (* 'I) act (build action (build lex definingnoun))))) #'topsneval nil)) (to s1)) Doing arc: (jump s/init t (unless (* 'NOW) (# 'NOW)) (unless (* 'qobj) ($ 'qobj)) (unless (* 'qst) ($ 'qst)) (unless (* 'qet) ($ 'qet)) (unless (* 'mem) ($ 'mem)) (unless (* 'propty) ($ 'propty))) JUMPing to state: s/init With Configuration: Level: 1 State: s/init String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Entering MAINLOOP with a configuration: Level: 1 State: s/init String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "the"), (lex . "the") Doing arc: (push ps t (sendr mood 'decl) (setr assertion *) (setf *focuslist* (reduce-all *focuslist*)) (setr foo *focuslist*) (jump respond)) PUSHing to state: ps, With Configuration: Level: 2 State: ps String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: ps String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (mood . decl) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("the" "elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 3 State: np/art String: ("elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Entering MAINLOOP with a configuration: Level: 3 State: np/art String: ("elder" "says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (def . t), (* . "the"), (mood . decl), (pron_case . nom), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 3 State: nppos String: ("says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (gender m f), (num . sing), (head . b40), (* . "elder"), (lex . "elder"), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: nppos String: ("says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (gender m f), (num . sing), (head . b40), (* . "elder"), (lex . "elder"), (def . t), (mood . decl), (pron_case . nom) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 3 State: np/n String: ("says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/n String: ("says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 3 State: np/end String: ("says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: ("says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "says"), (lex . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b40 With Configuration: Level: 3 State: np/end String: ("says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (lex . "says"), (* . "says"), (gender m f), (num . sing), (head . b40), (def . t), (mood . decl), (pron_case . nom) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 2 State: s/subj String: ("says" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (mood . decl), (agent . b40), (* . b40), (num . sing), (lex . "the") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) Blocked at arc: (to (s/is) (overlap (getf root) 'be)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 2 State: vp String: ("say" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp String: ("say" "that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (proptype . avo), (* . "say"), (lex . "says"), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 2 State: vp/v String: ("that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: vp/v String: ("that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (action . "say"), (* . "say"), (lex . "say"), (proptype . avo), (mood . decl), (agent . b40), (num . sing) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: ("that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (agent . b40) Entering MAINLOOP with a configuration: Level: 3 State: pp String: ("that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (agent . b40) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 3 State: np String: ("that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (agent . b40), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 3 State: np String: ("that" "a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (agent . b40), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Taking WRD to state: nomprop With Configuration: Level: 3 State: nomprop String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b40), (lex . "that") Entering MAINLOOP with a configuration: Level: 3 State: nomprop String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (* . "that"), (pron_case . acc), (mood . decl), (agent . b40), (lex . "that") Doing arc: (push ps t (sendr embedded t) (setr head *) (liftr mood) (liftr mod) (to np/end)) PUSHing to state: ps, With Configuration: Level: 4 State: ps String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (embedded . t) Entering MAINLOOP with a configuration: Level: 4 State: ps String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (embedded . t) Doing arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Blocked at arc: (cat wh t (setr agent (* 'wh)) (setr mood 'question) (liftr mood) (setr humanness (getf human)) (to s/subj)) Doing arc: (push np t (sendr mood 'decl) (sendr pron_case 'nom) (setr agent *) (setr mood 'decl) (liftr mood) (to s/subj)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("a" "white" "brachet" "is" "nextto" "the" "hart" ".") Sendrs: (pron_case . nom), (mood . decl) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("white" "brachet" "is" "nextto" "the" "hart" ".") Registers: (def), (* . "a"), (mood . decl), (pron_case . nom), (lex . "a") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Taking CAT arc on adj, to state np/art. With Configuration: Level: 5 State: np/art String: ("brachet" "is" "nextto" "the" "hart" ".") Registers: (props . m89), (pron_case . nom), (mood . decl), (def), (lex . "white"), (* . "white") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("brachet" "is" "nextto" "the" "hart" ".") Registers: (props . m89), (pron_case . nom), (mood . decl), (def), (lex . "white"), (* . "white") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: ("is" "nextto" "the" "hart" ".") Registers: (gender . n), (num . sing), (head . b44), (* . "brachet"), (lex . "brachet"), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: ("is" "nextto" "the" "hart" ".") Registers: (gender . n), (num . sing), (head . b44), (* . "brachet"), (lex . "brachet"), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: ("is" "nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender . n), (num . sing), (head . b44), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: ("is" "nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender . n), (num . sing), (head . b44), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: ("is" "nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender . n), (num . sing), (head . b44), (props . m89), (pron_case . nom), (mood . decl), (def) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: ("is" "nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (gender . n), (num . sing), (head . b44), (props . m89), (pron_case . nom), (mood . decl), (def) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b44 With Configuration: Level: 5 State: np/end String: ("is" "nextto" "the" "hart" ".") Registers: (lex . "is"), (* . "is"), (gender . n), (num . sing), (head . b44), (props . m89), (pron_case . nom), (mood . decl), (def) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/subj String: ("is" "nextto" "the" "hart" ".") Registers: (mood . decl), (agent . b44), (* . b44), (num . sing), (embedded . t), (lex . "a") Liftrs: (mood . decl) Doing arc: (to (s/is) (overlap (getf root) 'be)) TOing to state: s/is With Configuration: Level: 4 State: s/is String: ("nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (mood . decl), (agent . b44), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/is String: ("nextto" "the" "hart" ".") Registers: (* . "is"), (lex . "is"), (mood . decl), (agent . b44), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd a t (to s/isnoun)) Blocked at arc: (wrd a t (to s/isnoun)) Doing arc: (cat n (and (getr generic) (overlap (getf num) 'plur)) (jump s/isnoun)) Blocked at arc: (cat n (and (getr generic) (overlap (getf num) 'plur)) (jump s/isnoun)) Doing arc: (cat v t (setr action *) (setr pass t) (to vp/passv)) Blocked at arc: (cat v t (setr action *) (setr pass t) (to vp/passv)) Doing arc: (cat av t (setr mod *) (liftr mod) (to s/is)) Blocked at arc: (cat av t (setr mod *) (liftr mod) (to s/is)) Doing arc: (cat adj t (jump s/isadj)) Blocked at arc: (cat adj t (jump s/isadj)) Doing arc: (wrd named t (to s/isnamed)) Blocked at arc: (wrd named t (to s/isnamed)) Doing arc: (cat v t (setr proptype 'avo) (jump vp)) Taking CAT arc on v, to state vp. With Configuration: Level: 4 State: vp String: ("be" "nextto" "the" "hart" ".") Registers: (proptype . avo), (* . "be"), (lex . "is"), (mood . decl), (agent . b44), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp String: ("be" "nextto" "the" "hart" ".") Registers: (proptype . avo), (* . "be"), (lex . "is"), (mood . decl), (agent . b44), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (cat v t (setr action *) (to vp/v)) Taking CAT arc on v, to state vp/v. With Configuration: Level: 4 State: vp/v String: ("nextto" "the" "hart" ".") Registers: (action . "be"), (* . "be"), (lex . "be"), (proptype . avo), (mood . decl), (agent . b44), (num . sing), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("nextto" "the" "hart" ".") Registers: (action . "be"), (* . "be"), (lex . "be"), (proptype . avo), (mood . decl), (agent . b44), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("nextto" "the" "hart" ".") Sendrs: (agent . b44) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("nextto" "the" "hart" ".") Sendrs: (agent . b44) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Taking WRD to state: pp/end With Configuration: Level: 5 State: pp/end String: ("the" "hart" ".") Registers: (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b44), (lex . "nextto") Liftrs: (rel . "nextto"), (nec . true) Entering MAINLOOP with a configuration: Level: 5 State: pp/end String: ("the" "hart" ".") Registers: (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b44), (lex . "nextto") Liftrs: (rel . "nextto"), (nec . true) Doing arc: (pop onwa t) POPing in state: pp/end, a result: nil With Configuration: Level: 5 State: pp/end String: ("the" "hart" ".") Registers: (lex . "the"), (nec . true), (rel . "nextto"), (* . "nextto"), (agent . b44) Liftrs: (rel . "nextto"), (nec . true) Entering MAINLOOP with a configuration: Level: 4 State: vp/v String: ("the" "hart" ".") Registers: (prepo . propo), (*), (nec . true), (rel . "nextto"), (lex . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b44), (num . sing), (embedded . t) Liftrs: (mood . decl) Doing arc: (wrd ? t (jump s/final)) Blocked at arc: (wrd ? t (jump s/final)) Doing arc: (push pp t (sendr agent) (setr prepo 'propo) (to vp/v)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: ("the" "hart" ".") Sendrs: (agent . b44) Entering MAINLOOP with a configuration: Level: 5 State: pp String: ("the" "hart" ".") Sendrs: (agent . b44) Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (push np t (sendr pron_case 'acc) (sendr mood) (sendr agent) (setr object *) (to s/final)) PUSHing to state: np, With Configuration: Level: 5 State: np String: ("the" "hart" ".") Sendrs: (agent . b44), (mood . decl), (pron_case . acc) Entering MAINLOOP with a configuration: Level: 5 State: np String: ("the" "hart" ".") Sendrs: (agent . b44), (mood . decl), (pron_case . acc) Doing arc: (wrd every t (setr generic t) (to np/art)) Blocked at arc: (wrd every t (setr generic t) (to np/art)) Doing arc: (wrd that t (to nomprop)) Blocked at arc: (wrd that t (to nomprop)) Doing arc: (wrd s t (to np)) Blocked at arc: (wrd s t (to np)) Doing arc: (cat art (setr def (getf def)) (to np/art)) Taking CAT arc on art, to state np/art. With Configuration: Level: 5 State: np/art String: ("hart" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b44), (lex . "the") Entering MAINLOOP with a configuration: Level: 5 State: np/art String: ("hart" ".") Registers: (def . t), (* . "the"), (pron_case . acc), (mood . decl), (agent . b44), (lex . "the") Doing arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Blocked at arc: (cat adj t (addr props (build lex (^ (getr *)))) (to np/art)) Doing arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Blocked at arc: (cat pron (overlap (getf case) 'ref) (setr head (^ (getr agent))) (setr num (getf num)) (setr gender (getf gender)) (setr pron_case 'ref) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'nom) (overlap (getr pron_case) 'nom) (resolve-pron (getf gender) (getf num) *focuslist*)) (setr head (resolve-pron (getf gender) (getf num) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat pron (and (overlap (getf case) 'acc) (overlap (getr pron_case) 'acc) (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr head (resolve-accusative (getf gender) (getf num) (^ (getr agent)) *focuslist*)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (find (object- propername lex) (^ (getr *))) (setr head (find (object- propername lex) (^ (getr *)))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat npr (null (find (object- propername lex) (^ (getr *)))) (assert object (# 'entity) propername (^ (getr *))) (setr head (* 'entity)) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (overlap (getf num) 'plur) (setr head (build lex (^ (getr *)))) (liftr generic t) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (getr skolem) (nullr generic)) (setr head (build skfn (# 'newskfn) skarg (^ (getr skolem)))) (liftr skrestr (build member (^ (getr head)) class (build lex (^ (getr *))))) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (nullr possor)) (setr head (find member- (assert member (# 'hd) class (build lex (^ (getr *)))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'decl) (getr possor) (nullr object)) (setr head (progn (with-snepsul-eval `(find object- (assert object (# 'hed) possessor ,(snepsulize (getr possor)) rel (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr other (progn (with-snepsul-eval `(find member- (assert member ,(snepsulize (getr head)) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (to nppos)) Doing arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Blocked at arc: (cat n (and (disjoint def t) (overlap mood 'question)) (setr head (* 'x)) (to nppos)) Doing arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Blocked at arc: (cat n (and (getr def) (find member- (find class (find lex (^ (getr *))))) (getr props)) (setr head (find member- (deduce member (* 'mem) class (build lex (^ (getr *)))) object- (deduce object (* 'propty) property (^ (getr props))))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Doing arc: (cat n (overlap def t) (setr head (progn (with-snepsul-eval `(find member- (deduce member (* 'x) class (build lex ,(snepsulize (getr *))))) #'topsneval nil))) (setr num (getf num)) (setr gender (getf gender)) (to nppos)) Taking CAT arc on n, to state nppos. With Configuration: Level: 5 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b44) Entering MAINLOOP with a configuration: Level: 5 State: nppos String: (".") Registers: (gender m f n), (num . sing), (head . b13), (* . "hart"), (lex . "hart"), (def . t), (pron_case . acc), (mood . decl), (agent . b44) Doing arc: (wrd ' t (jump npa)) Blocked at arc: (wrd ' t (jump npa)) Doing arc: (jump np/n t) JUMPing to state: np/n With Configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b44) Entering MAINLOOP with a configuration: Level: 5 State: np/n String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b44) Doing arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Blocked at arc: (jump np/end props (assert object (^ (getr head)) property (^ (getr props)))) Doing arc: (jump np/end (nullr object) (setf *focuslist* (update (^ (getr head)) (^ (getr gender)) (^ (getr num)) (^ (getr pron_case)) *focuslist*))) JUMPing to state: np/end With Configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b44) Entering MAINLOOP with a configuration: Level: 5 State: np/end String: (".") Registers: (* . "."), (lex . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b44) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: b13 With Configuration: Level: 5 State: np/end String: (".") Registers: (lex . "."), (* . "."), (gender m f n), (num . sing), (head . b13), (def . t), (pron_case . acc), (mood . decl), (agent . b44) Liftrs: (num . sing) Entering MAINLOOP with a configuration: Level: 4 State: s/final String: (".") Registers: (object . b13), (* . b13), (num . sing), (lex . "the"), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b44), (embedded . t) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 5 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 5 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) JUMPing to state: s/end With Configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b44), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 4 State: s/end String: (".") Registers: (* . "."), (lex . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b44), (embedded . t) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object (build mode ,(snepsulize (getr mod)) object ,(snepsulize (getr object)))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr mod) (nullr embedded))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) into ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr to) (nullr dir) (nullr pla) (nullr nec) (getr into))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) to ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (nullr indobject) (getr to))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) to ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr dir) (nullr pla) (nullr nec) (getr to) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) direction ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (nullr nec) (getr dir))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action)))) place ,(snepsulize (getr object)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr indobject) (nullr nec) (getr pla))) Doing arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) Blocked at arc: (pop (progn (with-snepsul-eval `(add agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) place ,(snepsulize (getr indobject)) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (getr pla) (nullr nec) (getr indobject))) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) location (build sp-rel (build lex ,(snepsulize (getr rel))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr pla) (getr nec) (nullr indobject))) POPing in state: s/end, a result: (m413!) With Configuration: Level: 4 State: s/end String: (".") Registers: (lex . "."), (* . "."), (object . b13), (num . sing), (prepo . propo), (nec . true), (rel . "nextto"), (action . "be"), (proptype . avo), (mood . decl), (agent . b44), (embedded . t) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 3 State: np/end String: (".") Registers: (head . m413!), (* . m413!), (mood . decl), (lex . "a"), (pron_case . acc), (agent . b40) Liftrs: (mod), (mood . decl) Doing arc: (pop head t (liftr num)) POPing in state: np/end, a result: m413! With Configuration: Level: 3 State: np/end String: (".") Registers: (lex . "."), (head . m413!), (* . m413!), (mood . decl), (pron_case . acc), (agent . b40) Liftrs: (num), (mod), (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/final String: (".") Registers: (object . m413!), (* . m413!), (mood . decl), (mod), (num), (lex . "that"), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Doing arc: (push pp t (setr prepo 'prepo) (setr rel *) (to s/finis)) PUSHing to state: pp, With Configuration: Level: 3 State: pp String: (".") Entering MAINLOOP with a configuration: Level: 3 State: pp String: (".") Doing arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Blocked at arc: (wrd into t (setr into 'true) (liftr into) (to pp/end)) Doing arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Blocked at arc: (wrd to t (setr to 'true) (liftr to) (to pp/end)) Doing arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Blocked at arc: (wrd at t (setr dir 'true) (liftr dir) (to pp/end)) Doing arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Blocked at arc: (wrd in t (setr pla 'true) (liftr pla) (to pp/end)) Doing arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd nextto t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Blocked at arc: (wrd behind t (setr rel *) (setr nec 'true) (liftr nec) (liftr rel) (to pp/end)) Doing arc: (jump s/end (overlap embedded t)) Blocked at arc: (jump s/end (overlap embedded t)) Doing arc: (wrd . (overlap mood 'decl) (to s/end)) Taking WRD to state: s/end With Configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m413!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Entering MAINLOOP with a configuration: Level: 2 State: s/end String: nil Registers: (* . "."), (lex . "."), (object . m413!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (mood . decl) Doing arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Blocked at arc: (pop (progn (with-snepsul-eval `(add member ,(snepsulize (getr agent)) class (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap (getf basic (getr object)) t))) Doing arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object-1 ,(snepsulize (getr agent)) rel isa object-2 (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add subclass ,(snepsulize (getr agent)) superclass (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isnoun) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(assert object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (nullr generic)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) property (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (overlap proptype 'isadj) (overlap generic t)) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Blocked at arc: (pop (progn (with-snepsul-eval `(add object ,(snepsulize (getr agent)) propername (build lex ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (overlap proptype 'isnamed) (liftr proptype)) Doing arc: (pop (progn (with-snepsul-eval `(assert agent ,(snepsulize (getr agent)) act (build action (build lex ,(snepsulize (getr action))) object ,(snepsulize (getr object))) kn_cat story) #'topsneval nil)) (and (overlap mood 'decl) (nullr into) (nullr to) (nullr dir) (nullr pla) (nullr nec) (nullr mod) (overlap proptype 'avo)) (liftr proptype)) POPing in state: s/end, a result: (m415!) With Configuration: Level: 2 State: s/end String: nil Registers: (lex), (* . "."), (object . m413!), (mood . decl), (mod), (num), (action . "say"), (proptype . avo), (agent . b40) Liftrs: (proptype . avo), (mood . decl) Entering MAINLOOP with a configuration: Level: 1 State: respond String: ((m415!)) Registers: (foo b14 n sing 39 b40 m f sing 18 b20 f sing 17 b13 m f n sing 11 b43 m f n sing 4 b42 sing 1 b39 m sing 0 b38 m sing 0 b36 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m415!), (* . m415!), (mood . decl), (proptype . avo), (lex . "the") Doing arc: (wrd 'dummy t (to flush)) Blocked at arc: (wrd 'dummy t (to flush)) Doing arc: (call gs * (and (getr *) (overlap mood 'decl)) (setr conj and) (say I understand that) * (to resp/end)) I understand that CALLing to state: gs, With Configuration: Level: 2 State: gs String: (m415!) Entering MAINLOOP with a configuration: Level: 2 State: gs String: (m415!) Doing arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Blocked at arc: (call gs (geta event) (geta event) (sendr tense (first (tense-and-aspect (geta time)))) (sendr aspect (second (tense-and-aspect (geta time)))) (sendr mood) (setr qtype) (sendr conj) * (to g/end)) Doing arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Blocked at arc: (jump gs (and (nullr dir) (geta direction)) (setr dir 'direc)) Doing arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Blocked at arc: (jump gs (and (nullr pla) (geta place)) (setr pla 'plack)) Doing arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Blocked at arc: (jump gs (and (nullr intwo) (geta into)) (setr intwo 'intwo)) Doing arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Blocked at arc: (jump gs (and (nullr two) (geta to)) (setr two 'two)) Doing arc: (rcall gnp (geta agent) (geta agent) (sendr case 'nom) reg (setr tes *) (to g/subj (geta act))) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (b40) Sendrs: (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (b40) Sendrs: (case . nom) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) TOing to state: gdefcat With Configuration: Level: 3 State: gdefcat String: (m219) Registers: (* . b40), (case . nom), (lex . b40) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat String: (m219) Registers: (* . b40), (case . nom), (lex . b40) Doing arc: (jump gdefcat1 t (setr mems (remove-equivs (progn (with-snepsul-eval `(find member- (findassert class ,(snepsulize (getr *)))) #'topsneval nil))))) JUMPing to state: gdefcat1 With Configuration: Level: 3 State: gdefcat1 String: (m219) Registers: (mems . b40), (* . m219), (lex . m219), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gdefcat1 String: (m219) Registers: (mems . b40), (* . m219), (lex . m219), (case . nom) Doing arc: (jump gcat (or (atom (getr mems)) (= (length (getr mems)) 1)) (say the) (say (getr adj))) the JUMPing to state: gcat With Configuration: Level: 3 State: gcat String: (m219) Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gcat String: (m219) Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Doing arc: (to (gnp/end) (geta lex) (say (wordize (getr num) (geta lex *)))) elder TOing to state: gnp/end With Configuration: Level: 3 State: gnp/end String: nil Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 3 State: gnp/end String: nil Registers: (* . m219), (lex . m219), (mems . b40), (case . nom) Doing arc: (pop nil t) POPing in state: gnp/end, a result: nil With Configuration: Level: 3 State: gnp/end String: nil Registers: (lex), (* . m219), (mems . b40), (case . nom) Entering MAINLOOP with a configuration: Level: 2 State: g/subj String: ((m414)) Registers: (tes . m415!), (* . m415!), (reg), (lex . m415!) Doing arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Blocked at arc: (jump g/sqce (overlap (geta action) (node 'snsequence))) Doing arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Blocked at arc: (jump g/v (and (geta action) (overlap (geta action) (progn (with-snepsul-eval `(build lex go) #'eval nil))) (overlap (geta to) (* 'You))) (say came)) Doing arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Blocked at arc: (jump g/v (and (getr mod) (geta lex (geta action))) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) must (first (geta lex (geta action)))))) Doing arc: (jump g/v (geta lex (geta action)) (say (verbize (getr person) (getr tense) (getr aspect) (getr neg) (first (geta lex (geta action)))))) says JUMPing to state: g/v With Configuration: Level: 2 State: g/v String: ((m414)) Registers: (* . m414), (lex . m414), (tes . m415!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/v String: ((m414)) Registers: (* . m414), (lex . m414), (tes . m415!), (reg) Doing arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object) (and (geta object) (overlap (geta action) (progn (with-snepsul-eval `(build lex see) #'eval nil)))) (sendr case 'obj) (sendr localdescr t) reg (jump g/obj)) Doing arc: (rcall gnp (geta object) (geta object) (sendr case 'obj) reg (jump g/obj)) RCALLing to state: gnp, With Configuration: Level: 3 State: gnp String: (m413!) Sendrs: (case . obj) Entering MAINLOOP with a configuration: Level: 3 State: gnp String: (m413!) Sendrs: (case . obj) Doing arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Blocked at arc: (jump gnp (and (nullr adjdescr) (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (setr adj (geta lex (progn (with-snepsul-eval `(find (compose property- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) (setr adjdescr 'done)) Doing arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Blocked at arc: (to (gnp (geta object)) (geta mode) (setr mod (geta mode)) (liftr mod) (sendr mod)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'nom)) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'nom) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn I)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'I)) (overlap case 'obj)) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap case 'obj) (overlap (progn (with-snepsul-eval `(find (kstar (compose (equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)) (* 'I))) (liftr person 'p1) (sayn me)) Doing arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (overlap * (progn (with-snepsul-eval `(find (kstar (compose equiv- ! equiv)) (* 'You)) #'topsneval nil)))) (sayn you) (addName (getr *) t) (liftr person 'p2) (liftr num 'plur)) Doing arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Blocked at arc: (to (gnp/end) (and (getr localdescr) (overlap * (* 'You))) (sayn you) (addName (getr *) nil) (liftr num 'plur) (liftr person 'p2)) Doing arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Blocked at arc: (to (gnp/end) (geta lex) (sayn (geta lex))) Doing arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Blocked at arc: (to (gnp/end) (and (getr localdescr) (geta propername (geta object- *))) (sayn (geta propername (geta object- *)))) Doing arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Blocked at arc: (to (gnp/end) (and (nullr localdescr) (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil))) (sayn (progn (with-snepsul-eval `(find (compose propername- ! object (kstar (compose equiv- ! equiv))) ,(snepsulize (getr *))) #'topsneval nil)))) Doing arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Blocked at arc: (to (gnp/end) (or (geta lex-) (overlap 'npr (eval `(getf ctgy ,(format nil ~A (getr *)))))) (say (list ` (getr *) '))) Doing arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Blocked at arc: (rcall gstring (geta end) (geta beg) (sendr beg (geta beg)) (say `) reg (say ') (to gnp/end)) Doing arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Blocked at arc: (to (gcat (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (and (isvar.n (getr *)) (progn (with-snepsul-eval `(find (class- ant- ! forall) ,(snepsulize (getr *))) #'topsneval nil))) (say every)) Doing arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Blocked at arc: (call gs * (propositionp (getr *)) (sendr embedded t) (sendr mod) (say that) * (to gnp/end)) Doing arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Blocked at arc: (call gs (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil))) (and (null (getr localdescr)) (find-if #'propositionp (progn (with-snepsul-eval `(find (equiv- ! equiv) ,(snepsulize (getr *))) #'topsneval nil)))) (say that) * (to gnp/end)) Doing arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Blocked at arc: (rcall gnp (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (progn (with-snepsul-eval `(find (possessor- ! object) ,(snepsulize (getr *))) #'topsneval nil)) (sendr poss t) reg (setr num 'sing) (to gcat (geta rel (geta object-)))) Doing arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) Blocked at arc: (to (gdefcat (best-class (progn (with-snepsul-eval `(- (find class- (findassert member ,(snepsulize (getr *)))) ,(snepsulize (getr topcl))) #'topsneval nil)))) (progn (with-snepsul-eval `(- (find (class- ! member) ,(snepsulize (getr *))) ,(snepsulize (getr topcl))) #'topsneval nil))) Doing arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Blocked at arc: (rcall gnp (geta object1) (geta object1) (sendr case 'obj) reg (jump g/obj)) Doing arc: (to (g/obj (getr tes)) t) TOing to state: g/obj With Configuration: Level: 2 State: g/obj String: (m415!) Registers: (* . m414), (lex . m414), (tes . m415!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/obj String: (m415!) Registers: (* . m414), (lex . m414), (tes . m415!), (reg) Doing arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (and (geta to) (progn (with-snepsul-eval `(findassert member ,(snepsulize (geta to)) (class lex) direction) #'topsneval nil))) (sendr case 'obj) reg (to g/end)) Doing arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Blocked at arc: (rcall gnp (geta to) (geta to) (sendr case 'obj) (say to) reg (to g/end)) Doing arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Blocked at arc: (rcall gnp (geta direction) (geta direction) (sendr case 'obj) (say at) reg (to g/end)) Doing arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Blocked at arc: (rcall gnp (geta into) (geta into) (sendr case 'obj) (say into) reg (to g/end)) Doing arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Blocked at arc: (rcall gnp (geta place) (geta place) (sendr case 'obj) (say in) reg (to g/end)) Doing arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Blocked at arc: (jump g/end (or (getr pla) (getr two) (getr intwo) (getr dir))) Doing arc: (to (g/end) t) TOing to state: g/end With Configuration: Level: 2 State: g/end String: nil Registers: (* . m415!), (lex . m415!), (tes . m415!), (reg) Entering MAINLOOP with a configuration: Level: 2 State: g/end String: nil Registers: (* . m415!), (lex . m415!), (tes . m415!), (reg) Doing arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Blocked at arc: (to (g/obj (getr tes)) (or (getr pla) (getr two) (getr intwo) (getr dir)) (setr * (getr tes))) Doing arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Blocked at arc: (jump gs * (when (getr conj) (utter (getr conj) flush before))) Doing arc: (pop nil t) POPing in state: g/end, a result: nil With Configuration: Level: 2 State: g/end String: nil Registers: (lex), (* . m415!), (tes . m415!), (reg) Entering MAINLOOP with a configuration: Level: 1 State: resp/end String: nil Registers: (*), (conj . "and"), (lex . m415!), (foo b14 n sing 39 b40 m f sing 18 b20 f sing 17 b13 m f n sing 11 b43 m f n sing 4 b42 sing 1 b39 m sing 0 b38 m sing 0 b36 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m415!), (mood . decl), (proptype . avo) Doing arc: (pop nil t (say .)) . POPing in state: resp/end, a FINAL result: nil With Configuration: Level: 1 State: resp/end String: nil Registers: (lex), (*), (conj . "and"), (foo b14 n sing 39 b40 m f sing 18 b20 f sing 17 b13 m f n sing 11 b43 m f n sing 4 b42 sing 1 b39 m sing 0 b38 m sing 0 b36 m sing 0 b26 m sing 0 b28 m sing 0 b27 m sing 0 b25 m sing 0 b19 n sing 0), (assertion . m415!), (mood . decl), (proptype . avo) Time (sec.): 0.93 : End of /u0/faculty/rapaport/CVA/NL/mynlpdemo-parse7.sneps demonstration. : (de^?^?^?         ^end. ATN Parser exits... --> (sneps) Welcome to SNePS-2.7 [PL:0 2007/09/21 16:26:55] Copyright (C) 1984--2007 by Research Foundation of State University of New York. SNePS comes with ABSOLUTELY NO WARRANTY! Type `(copyright)' for detailed copyright information. Type `(demo)' for a list of example applications. 9/25/2007 9:40:02 * (describe *nodes) (m415! (act (m414 (action (m302 (lex say))) (object (m413! (kn_cat story) (location (m241 (object b13) (sp-rel (m240 (lex nextto))))) (object b44))))) (agent b40) (kn_cat story)) (m412! (object b44) (property (m89 (lex white)))) (m411! (class (m237 (lex brachet))) (member b44)) (m409! (act (m408 (action (m302)) (object (m407! (act (m406 (action (m222 (lex chase))) (object b13))) (agent b43) (kn_cat story))))) (agent b40) (kn_cat story)) (m405! (class (m35 (lex hound))) (member b43)) (m402! (act (m401 (action (m302)) (object (m400! (act (m399 (action (m398 (lex come))))) (agent b41) (kn_cat story) (to b42))))) (agent b40) (kn_cat story)) (m397! (class (m396 (lex place))) (member b42)) (m395! (object b41) (property (m89))) (m394! (class (m233 (lex hart))) (member b41)) (m393! (class (m219 (lex elder))) (member b40)) (m392! (act (m391 (action (m302)) (object (m390 (mode must) (object (m389! (act (m388 (action (m380 (lex bring))) (object b14))) (agent b39) (kn_cat story) (to b30))))))) (agent b38) (kn_cat story)) (m387! (object b39) (propername Sir Tor)) (m386! (object b38) (propername Merlin)) (m385! (act (m384 (action (m302)) (object (m383 (mode must) (object (m382! (act (m381 (action (m380)) (object b13))) (agent b37) (kn_cat story) (to b30))))))) (agent b36) (kn_cat story)) (m379! (object b37) (propername Sir Gawain)) (m378! (object b36) (propername Merlin)) (m377! (act (m376 (action (m302)) (object (m375! (act (m374 (action (m209 (lex want))) (object b14))) (agent b20) (kn_cat story))))) (agent b20) (kn_cat story)) (m373! (act (m372 (action (m302)) (object (m371! (act (m370 (action (m369 (lex belong))))) (agent b14) (kn_cat story) (to b20))))) (agent b20) (kn_cat story)) (m367! (act (m366 (action (m353 (lex mount))) (object b35))) (agent b34) (kn_cat story)) (m365! (class (m22 (lex horse))) (member b35)) (m364! (object b34) (propername Sir Tor)) (m363! (act (m362 (action (m361 (lex ride))) (object b33))) (agent b17 b8 b7 b6) (kn_cat story)) (m355! (act (m354 (action (m353)) (object b33))) (agent b17 b8 b7 b6) (kn_cat story)) (m352! (class (m22)) (member b33)) (m350! (act (m349 (action (m150 (lex bite))) (object b32))) (agent b14) (kn_cat story)) (m348! (class (m346 (lex buttock))) (member b32)) (m347! (object b32) (possessor b31) (rel (m346))) (m345! (class (m233)) (member b31)) (m344! (act (m224 (action (m223 (lex run))))) (agent b13)) (m343! (act (m224)) (agent b13) (into b30) (kn_cat story)) (m342! (class (m340 (lex hall))) (member b30)) (m341! (object b30) (possessor b29) (rel (m340))) (m339! (object b29) (propername King Arthur)) (m338! (act (m337 (action (m336 (lex give))) (object b14))) (agent b28) (kn_cat story) (to b26)) (m335! (object b28) (propername Sir Tor)) (m334! (act (m333 (action (m302)) (object (m332! (act (m331 (action (m330 (lex know))) (object (m329! (act (m328 (action (m327 (lex seek))) (object b17 b8 b7 b6))) (agent b27) (kn_cat story))))) (agent b26) (kn_cat story))))) (agent b26) (kn_cat story)) (m326! (object b27) (propername Sir Tor)) (m325! (class (m324 (lex dwarf))) (member b26)) (m323! (act (m300 (action (m299 (lex take))) (object b14))) (agent b25) (kn_cat story)) (m322! (object b25) (propername Sir Tor)) (m321! (act (m320 (action (m319 (lex spy))) (object b14))) (agent b24) (kn_cat story)) (m318! (object b24) (propername Sir Tor)) (m317! (act (m113 (action (m112 (lex bay))))) (agent b14)) (m316! (act (m113)) (agent b14) (direction b23) (kn_cat story)) (m315! (object b23) (propername Sir Tor)) (m314! (act (m313 (action (m309 (lex find))) (object b14))) (agent b22) (kn_cat story) (place b19)) (m312! (object b22) (propername Sir Tor)) (m311! (act (m310 (action (m309)) (object b20))) (agent b21) (kn_cat story) (place b19)) (m308! (object b21) (propername Sir Tor)) (m307! (act (m306 (action (m305 (lex sleep))))) (agent b20) (kn_cat story) (place b19)) (m304! (act (m303 (action (m302)) (object (m301! (act (m300)) (agent b17 b8 b7 b6) (kn_cat story))))) (agent b20) (kn_cat story)) (m298! (class (m297 (lex lady))) (member b20)) (m296! (act (m295 (action (m236 (lex go))))) (agent b18) (kn_cat story) (to b19)) (m294! (class (m293 (lex pavilion))) (member b19)) (m292! (object b18) (propername Sir Tor)) (m291! (act (m290 (action (m207 (lex carry))) (object b14))) (agent b17 b8 b7 b6) (kn_cat story)) (m288! (act (m287 (action (m286 (lex picksup))) (object b14))) (agent b17 b8 b7 b6) (kn_cat story)) (m278! (act (m277 (action (m276 (lex arise))))) (agent b17) (kn_cat story)) (m275! (class (m45 (lex knight))) (member b17)) (m274! (kn_cat story) (location (m273 (object b16) (sp-rel (m240)))) (object b13)) (m272! (object b16) (propername Round Table)) (m270! (kn_cat story) (location (m269 (object b13) (sp-rel (m225 (lex behind))))) (object b15)) (m262! (class (m10 (lex carnivore))) (member b15)) (m259! (class (m4 (lex quadruped))) (member b15)) (m256! (mode (m152 (lex presumably))) (object (m255 (act (m202 (action (m200 (lex bear))) (object (m201 (lex live young))))) (agent b15)))) (m254! (class (m5 (lex vertebrate))) (member b15)) (m253! (class (m2 (lex phys obj))) (member b15)) (m252! (class (m1 (lex animal))) (member b15)) (m251! (class (m12 (lex mammal))) (member b15)) (m248! (class (m29 (lex dog))) (member b15)) (m245! (act (m224)) (agent b15) (kn_cat story)) (m244! (object b15) (property (m92 (lex black)))) (m243! (class (m35)) (member b15)) (m242! (kn_cat story) (location (m241)) (object b14)) (m239! (object b14) (property (m89))) (m238! (class (m237)) (member b14)) (m235! (act (m224)) (agent b13) (kn_cat story)) (m234! (class (m233)) (member b13)) (m232! (do (m231 (action (m227 (lex defnoun))) (object1 brachet))) (whenever (m230 (act (m229 (action (m228 (lex definingnoun)))))))) (m226! (forall v16 v15) (ant (p59 (act (p58 (action (m222)) (object v16))) (agent v15))) (cq (p61 (object1 v15) (object2 v16) (rel (m225))) (p60 (act (m224)) (agent v15))) (kn_cat life-rule.1)) (m221! (forall v14) (ant (p51 (class (m219)) (member v14))) (cq (p54 (mode (m152)) (object (p53 (class (m39 (lex person))) (member v14)))) (p52 (object v14) (property (m220 (lex old))))) (kn_cat life-rule.1)) (m218! (forall v13) (ant (p46 (class (m104 (lex weapon))) (member v13))) (cq (p47 (act (m217 (action (m216 (lex damage))))) (agent v13))) (kn_cat life-rule.1)) (m215! (forall v12 v11 v10) (&ant (p42 (class (m95 (lex size))) (member v11)) (p36 (object v12) (property v11)) (p35 (class v10) (member v12))) (cq (p38 (subclass v10) (superclass (m2)))) (kn_cat intrinsic)) (m214! (forall v12 v11 v10) (&ant (p37 (class (m90 (lex color))) (member v11)) (p36) (p35)) (cq (p38)) (kn_cat intrinsic)) (m213! (forall v9 v8) (ant (p34 (act (p33 (action (m212 (lex say that))) (object (p31 (act (p30 (action (m209)) (object v8))) (agent v9))))) (agent v9))) (cq (p31)) (kn_cat life-rule.2)) (m211! (forall v9 v8) (ant (p31)) (cq (p32 (object v8) (property (m210 (lex valuable))))) (kn_cat life-rule.2)) (m208! (forall v9 v8) (&ant (p26 (act (p25 (action (m207)) (object v8))) (agent v9)) (p24 (class (m39)) (member v9))) (cq (p27 (object v8) (property (m94 (lex small))))) (kn_cat life-rule.2)) (m206! (forall v7 v4) (ant (p23 (act (p22 (action (m200)) (object v7))) (agent v4))) (cq (p16 (class (m12)) (member v4))) (kn_cat life-rule.1)) (m205! (mode (m152)) (object (m204 (act (m202)) (agent b1)))) (m203! (forall v4) (ant (p16)) (cq (p21 (mode (m152)) (object (p20 (act (m202)) (agent v4))))) (kn_cat life-rule.1)) (m199! (mode (m152)) (object (m198 (subclass (m12)) (superclass (m12))))) (m197! (mode (m152)) (object (m196 (subclass (m15 (lex deer))) (superclass (m12))))) (m195! (mode (m152)) (object (m194 (subclass (m22)) (superclass (m12))))) (m193! (mode (m152)) (object (m192 (subclass (m27 (lex pony))) (superclass (m12))))) (m191! (mode (m152)) (object (m190 (subclass (m35)) (superclass (m12))))) (m189! (mode (m152)) (object (m188 (subclass (m1)) (superclass (m12))))) (m187! (mode (m152)) (object (m186 (subclass (m4)) (superclass (m12))))) (m185! (mode (m152)) (object (m184 (subclass (m10)) (superclass (m12))))) (m183! (mode (m152)) (object (m182 (subclass (m29)) (superclass (m12))))) (m181! (mode (m152)) (object (m180 (subclass (m5)) (superclass (m12))))) (m179! (mode (m152)) (object (m178 (subclass (m2)) (superclass (m12))))) (m177! (forall v6 v4) (&ant (p16) (p11 (class v6) (member v4))) (cq (p18 (mode (m152)) (object (p17 (subclass v6) (superclass (m12)))))) (kn_cat life-rule.1)) (m176! (forall v6 v4) (&ant (p15 (mode (m152)) (object (p10 (class (m1)) (member v4)))) (p11)) (cq (p13 (mode (m152)) (object (p12 (subclass v6) (superclass (m1)))))) (kn_cat life-rule.1)) (m175! (mode (m152)) (object (m174 (subclass (m10)) (superclass (m1))))) (m173! (mode (m152)) (object (m172 (subclass (m5)) (superclass (m1))))) (m171! (mode (m152)) (object (m170 (subclass (m4)) (superclass (m1))))) (m169! (mode (m152)) (object (m168 (subclass (m1)) (superclass (m1))))) (m167! (mode (m152)) (object (m166 (subclass (m12)) (superclass (m1))))) (m165! (mode (m152)) (object (m164 (subclass (m15)) (superclass (m1))))) (m163! (mode (m152)) (object (m162 (subclass (m22)) (superclass (m1))))) (m161! (mode (m152)) (object (m160 (subclass (m27)) (superclass (m1))))) (m159! (mode (m152)) (object (m158 (subclass (m29)) (superclass (m1))))) (m157! (mode (m152)) (object (m156 (subclass (m35)) (superclass (m1))))) (m155! (mode (m152)) (object (m154 (subclass (m2)) (superclass (m1))))) (m153! (forall v6 v4) (&ant (p11) (p10)) (cq (p13)) (kn_cat life-rule.1)) (m151! (forall v5 v4 v3) (&ant (p8 (class v3) (member v4)) (p7 (act (p6 (action (m150)) (object v5))) (agent v4))) (cq (p9 (subclass v3) (superclass (m1)))) (kn_cat life-rule.1)) (m149! (class (m20 (lex basic ctgy))) (member (m15))) (m148! (class (m20)) (member (m22))) (m147! (class (m20)) (member (m29))) (m146! (class (m12)) (member b1)) (m145! (class (m10)) (member b1)) (m144! (class (m5)) (member b1)) (m143! (class (m4)) (member b1)) (m142! (class (m2)) (member b1)) (m141! (class (m1)) (member b1)) (m140! (class (m20)) (member (m39))) (m139! (class (m41 (lex king))) (member b3)) (m138! (class (m39)) (member b3)) (m137! (class (m82 (lex furniture))) (member (m51 (lex Round Table)))) (m136! (class (m52 (lex table))) (member (m51))) (m135! (class (m57 (lex sword))) (member b4)) (m134! (class (m43 (lex wizard))) (member b5)) (m133! (class (m39)) (member b5)) (m132! (class (m45)) (member b6)) (m131! (class (m39)) (member b6)) (m130! (class (m45)) (member b7)) (m129! (class (m39)) (member b7)) (m128! (class (m45)) (member b8)) (m127! (class (m39)) (member b8)) (m126! (class (m41)) (member b9)) (m125! (class (m39)) (member b9)) (m124! (class (m41)) (member b10)) (m123! (class (m39)) (member b10)) (m122! (class (m41)) (member b11)) (m121! (class (m39)) (member b11)) (m120! (class (m20)) (member (m85 (lex chair)))) (m119! (class (m20)) (member (m52))) (m118! (class (m90)) (member (m89))) (m117! (class (m90)) (member (m92))) (m116! (class (m95)) (member (m94))) (m115! (class (m95)) (member (m99 (lex large)))) (m114! (forall v3 v2) (&ant (p4 (class v3) (member v2)) (p3 (act (m113)) (agent v2))) (cq (p5 (subclass v3) (superclass (m35))))) (m111! (forall v1) (ant (p1 (class (m35)) (member v1))) (cq (p2 (act (m110 (action (m109 (lex hunt))))) (agent v1))) (kn_cat life-rule.1)) (m108! (kn_cat life) (synonym (m107 (lex slay)) (m106 (lex kill)))) (m105! (kn_cat life) (subclass (m103 (lex spear))) (superclass (m104))) (m102! (kn_cat life) (synonym (m101 (lex big)) (m99))) (m100! (class (m95)) (kn_cat life) (member (m99))) (m98! (kn_cat life) (synonym (m97 (lex little)) (m94))) (m96! (class (m95)) (kn_cat life) (member (m94))) (m93! (class (m90)) (kn_cat life) (member (m92))) (m91! (class (m90)) (kn_cat life) (member (m89))) (m88! (class (m20)) (kn_cat life) (member (m52))) (m87! (class (m20)) (kn_cat life) (member (m85))) (m86! (kn_cat life) (subclass (m85)) (superclass (m82))) (m84! (kn_cat life) (subclass (m52)) (superclass (m82))) (m83! (kn_cat life) (subclass (m81 (lex sideboard))) (superclass (m82))) (m80! (class (m41)) (kn_cat life) (member b11)) (m79! (kn_cat life) (object b11) (proper-name (m78 (lex King Lot)))) (m77! (class (m41)) (kn_cat life) (member b10)) (m76! (kn_cat life) (object b10) (proper-name (m75 (lex King Bors)))) (m74! (class (m41)) (kn_cat life) (member b9)) (m73! (kn_cat life) (object b9) (proper-name (m72 (lex King Ban)))) (m71! (class (m45)) (kn_cat life) (member b8)) (m70! (kn_cat life) (object b8) (proper-name (m69 (lex Sir Gawain)))) (m68! (class (m45)) (kn_cat life) (member b7)) (m67! (kn_cat life) (object b7) (proper-name (m66 (lex Sir Tristram)))) (m65! (class (m45)) (kn_cat life) (member b6)) (m64! (kn_cat life) (object b6) (proper-name (m63 (lex Sir Galahad)))) (m62! (class (m43)) (kn_cat life) (member b5)) (m61! (kn_cat life) (object b5) (proper-name (m60 (lex Merlin)))) (m59! (kn_cat life) (object b4) (possessor b3) (rel (m57))) (m58! (class (m57)) (kn_cat life) (member b4)) (m56! (kn_cat life) (object b4) (proper-name (m55 (lex Excalibur)))) (m54! (kn_cat life) (object (m51)) (possessor b3) (rel (m52))) (m53! (class (m52)) (kn_cat life) (member (m51))) (m50! (class (m41)) (kn_cat life) (member b3)) (m49! (kn_cat life) (object b3) (proper-name (m48 (lex King Arthur)))) (m47! (class (m20)) (kn_cat life) (member (m39))) (m46! (kn_cat life) (subclass (m45)) (superclass (m39))) (m44! (kn_cat life) (subclass (m43)) (superclass (m39))) (m42! (kn_cat life) (subclass (m41)) (superclass (m39))) (m40! (class (m39)) (member b2)) (m38! (object b1) (possessor b2) (rel (m29))) (m37! (class (m29)) (member b1)) (m36! (kn_cat life) (subclass (m35)) (superclass (m29))) (m34! (class (m20)) (kn_cat life) (member (m29))) (m33! (kn_cat life) (subclass (m29)) (superclass (m1))) (m32! (subclass (m29)) (superclass (m10))) (m31! (kn_cat life) (subclass (m29)) (superclass (m4))) (m30! (kn_cat life) (subclass (m29)) (superclass (m12))) (m28! (kn_cat life) (subclass (m27)) (superclass (m1))) (m26! (class (m20)) (kn_cat life) (member (m22))) (m25! (kn_cat life) (subclass (m22)) (superclass (m1))) (m24! (kn_cat life) (subclass (m22)) (superclass (m8 (lex herbivore)))) (m23! (kn_cat life) (subclass (m22)) (superclass (m4))) (m21! (class (m20)) (kn_cat life) (member (m15))) (m19! (kn_cat life) (subclass (m15)) (superclass (m1))) (m18! (kn_cat life) (subclass (m15)) (superclass (m8))) (m17! (kn_cat life) (subclass (m15)) (superclass (m4))) (m16! (kn_cat life) (subclass (m15)) (superclass (m12))) (m14! (kn_cat life) (subclass (m12)) (superclass (m5))) (m13! (kn_cat life) (subclass (m12)) (superclass (m1))) (m11! (antonym (m10) (m8))) (m9! (kn_cat life) (subclass (m7 (lex ungulate))) (superclass (m8))) (m6! (kn_cat life) (subclass (m4)) (superclass (m5))) (m3! (kn_cat life) (subclass (m1)) (superclass (m2))) (m415! m414 m413! m412! m411! b44 m409! m408 m407! m406 m405! b43 m402! m401 m400! m399 m398 come m397! m396 place b42 m395! m394! b41 m393! b40 m392! m391 m390 m389! m388 m387! b39 m386! b38 m385! m384 m383 must m382! m381 m380 bring m379! b37 m378! b36 m377! m376 m375! m374 m373! m372 m371! m370 m369 belong m367! m366 m365! b35 m364! b34 m363! m362 m361 ride m355! m354 m353 mount m352! b33 m350! m349 m348! m347! m346 buttock b32 m345! b31 m344! m343! m342! m341! m340 hall b30 m339! b29 m338! m337 m336 give m335! b28 m334! m333 m332! m331 m330 know m329! m328 m327 seek m326! b27 m325! m324 dwarf b26 m323! m322! b25 m321! m320 m319 spy m318! b24 m317! m316! m315! b23 m314! m313 m312! b22 m311! m310 m309 find m308! b21 m307! m306 m305 sleep m304! m303 m302 say m301! m300 m299 take m298! m297 lady b20 m296! m295 m294! m293 pavilion b19 m292! Sir Tor b18 m291! m290 m288! m287 m286 picksup m278! m277 m276 arise m275! b17 m274! m273 m272! b16 m270! m269 m262! m259! m256! m255 m254! m253! m252! m251! m248! m245! m244! m243! b15 m242! m241 m240 nextto m239! m238! m237 b14 m236 go m235! story m234! m233 hart b13 m232! m231 brachet m230 m229 m228 definingnoun m227 defnoun m226! p61 m225 behind p60 m224 m223 run p59 p58 m222 chase v16 v15 m221! p54 p53 p52 m220 old p51 m219 elder v14 m218! p47 m217 m216 damage p46 v13 m215! p42 m214! intrinsic p38 p37 p36 p35 v12 v11 v10 m213! p34 p33 m212 say that m211! p32 m210 valuable p31 p30 m209 want m208! life-rule.2 p27 p26 p25 m207 carry p24 v9 v8 m206! p23 p22 v7 m205! m204 m203! p21 p20 m202 m201 live young m200 bear m199! m198 m197! m196 m195! m194 m193! m192 m191! m190 m189! m188 m187! m186 m185! m184 m183! m182 m181! m180 m179! m178 m177! p18 p17 p16 m176! p15 m175! m174 m173! m172 m171! m170 m169! m168 m167! m166 m165! m164 m163! m162 m161! m160 m159! m158 m157! m156 m155! m154 m153! p13 p12 m152 presumably p11 p10 v6 m151! p9 p8 p7 p6 m150 bite v5 v4 m149! m148! m147! m146! m145! m144! m143! m142! m141! m140! m139! m138! m137! m136! m135! m134! m133! m132! m131! m130! m129! m128! m127! m126! m125! m124! m123! m122! m121! m120! m119! m118! m117! m116! m115! m114! p5 p4 p3 m113 m112 bay v3 v2 m111! life-rule.1 p2 m110 m109 hunt p1 v1 m108! m107 slay m106 kill m105! m104 weapon m103 spear m102! m101 big m100! m99 large m98! m97 little m96! m95 size m94 small m93! m92 black m91! m90 color m89 white m88! m87! m86! m85 chair m84! m83! m82 furniture m81 sideboard m80! m79! m78 King Lot b11 m77! m76! m75 King Bors b10 m74! m73! m72 King Ban b9 m71! m70! m69 Sir Gawain b8 m68! m67! m66 Sir Tristram b7 m65! m64! m63 Sir Galahad b6 m62! m61! m60 Merlin b5 m59! m58! m57 sword m56! m55 Excalibur b4 m54! m53! m52 table m51 Round Table m50! m49! m48 King Arthur b3 m47! m46! m45 knight m44! m43 wizard m42! m41 king m40! m39 person m38! b2 m37! b1 m36! m35 hound m34! m33! m32! m31! m30! m29 dog m28! m27 pony m26! m25! m24! m23! m22 horse m21! m20 basic ctgy m19! m18! m17! m16! m15 deer m14! m13! m12 mammal m11! m10 carnivore m9! m8 herbivore m7 ungulate m6! m5 vertebrate m4 quadruped m3! life m2 phys obj m1 animal) CPU time : 0.33 * (lisp) "End of SNePS" --> (quit) Error: attempt to call `quit' which is an undefined function. [condition type: undefined-function] Restart actions (select using :continue): 0: Try calling quit again. 1: Return a value instead of calling quit. 2: Try calling a function other than quit. 3: Setf the symbol-function of quit and call it again. 4: Return to Top Level (an "abort" restart). 5: Abort entirely from this (lisp) process. [changing package from "common-lisp-user" to "snepsul"] [1] snepsul(3): :ex ; Exiting castor/NL> x exit script done on Tue Sep 25 09:40:26 2007