;;we'll now tittilate the real i/o code: (sp top-ps*implement*operator*say (goal ^operator ^state ) ;;; Eliminated to try out the immediate-release version of say. ;;; GHN 94-01-18 ; ( -^resource-in-use speech-link) ( ^name say ^u-model ^position ) ( ^constituent ^next ) ( ^word-name ) --> ( ^speech-link + &) ( ^word ) ( ^current-pos - +) ( ^said yes) ) ;;; Eliminated to try out the immediate-release version of say. ;;; GHN 94-01-18 #| (sp top-ps*p*say*try-another-if-link-busy (goal ^operator + { <> } + ^state ) ( ^resource-in-use speech-link) ( ^name say ^position ) --> ( ^operator -) ) (sp top-ps*ao*say*reconsider-if-link-busy (goal ^operator ^state ) ( ^resource-in-use speech-link) ( ^name say ^position ) --> ( ^operator @) ) |#