,;#<> /u/www/users/mfkb/RKF/smedict/component-find.lisp by tecuci on organon.cs.utexas.edu at 2009/11/6 18:17:48\ using 7.0 [Linux (x86)] (Jun 29, 2005 9:23).\ Optimization settings at wfasl time:\ ((SAFETY 1) (SPACE 1) (SPEED 1) (COMPILATION-SPEED 1) (DEBUG 2)) *)%7.0 [Linux (x86)] (Jun 29, 2005 9:23)AG334<*SOURCE-PATHNAME* PATHNAME  UNSPECIFIC ABSOLUTE uwwwusersmfkbRKFsmedictcomponent-findlisp!1/u/www/users/mfkb/RKF/smedict/component-find.lisp/u/www/users/mfkb/RKF/smedict/  /(UV$atdVFɋuÐ NULL 0+ @component-find.lispLN<TOP-LEVEL-FORM <QAG335@<KM  FIND-PACKAGE  MAKE-PACKAGE /4UV$atdF^;u F^׋ɋuÐ NULL 0+ @<TOP-LEVEL-FORM <QAG336@<KM INTERNAL-IN-PACKAGE /&UV$atdF׋^W'ɋu NULL 0+ @<TOP-LEVEL-FORM <QAG337@<KM*USING-KM-PACKAGE* /$UV$atdVGWɋu NULL 0+ @<TOP-LEVEL-FORM <QAG338@</projects/rkf/util/wordnet.lispLOAD /&UV$atdF^׋ɋuÐ NULL 0+ @<TOP-LEVEL-FORM <QAG339@<WORDNET2INIT /"UV$atd^׋ɋu NULL 0+ @<TOP-LEVEL-FORM <QAG340 @< REGEXP2 REQUIRE /&UV$atdF^׋ɋuÐ NULL 0+ @< TOP-LEVEL-FORM <Q@COMPONENT-FIND-INTEGRATED *COMPONENT-INDEX* LEXICAL-SEARCH COMPONENT-FIND INDEX-ENTRY->= SORT CAR INTERNAL-STRING= REMOVE-DUPLICATES REVERSE LOAD / UVl||aEă]]td;}VEEċ^׉EEċ^׉};E܋׋ЋEW'N;ugtgQ;#ub^"W'^&[V*R]UuuRP^.׋^2ɋuÉ}7‹^6FEW[E؋EWWEWWEԋEW[WWEЋEW[W[WWEȋEW[W[W[WW3u?UEp7EԋUЃuuRP3ɱW/UW+Eu؏EtdE_W'E뾐 WORD INDEX-FILE &OPTIONAL  INDEX-VAR0 2{N  INDEX-VAR VENTRY WORD X p3+ @COMPONENT-FIND-SORTED LOAD COMPONENT-FIND INDEX-ENTRY->= SORT CAR INTERNAL-STRING= REMOVE-DUPLICATES REVERSE /IUVDtaEtd^±׋E^׋N;ugtgQ;#ub^W'^"[V&R]U܋uuRP^*׋^.ɋu WORD INDEX-FILE02{NWORD p3+ @COMPONENT-FIND POS ALL verbCOMPONENT-FIND-WITH-PART-SPEECH nounadvadjNCONC REMOVE-DUPLICATES-EQUAL  SYMBOL-NAME STRING-DOWNCASE / UVL}aU EIE U3۳HWO]ȋ;u'vEtdE䋟;uɋuË[]׋E䋟3Ҳdul;׋N;MurEV"^&W'E܋EV*^&W'E؋EV.^&W'EԋEV2^&W'EЋE܋U؃uuRP^6׋^:rW';u]E^>׋^B׋ЋE^&W'^:8 WORD&KEY POS02{NWORD POS p3+ @COMPONENT-FIND-WITH-PART-SPEECH COMPONENT-CHECK REFINE-COMPONENT-CHECK adjINTERNAL-STRING= HYPERNYM-OFFSETS HYPERNYM-CHECK1 HYPERNYM-CHECK /VUV4tatdE܉U^W'^׉EEV^W';t$E܋U^"W'^&׋]ItɋuËE܋U^"W'^*ڋURZItIt3'W'E븃W? WORD PART-SPEECH02{N^ PART-SPEECH WORD p3+ @REFINE-COMPONENT-CHECK REMOVE-DUPLICATES-EQUAL /z=UV4tatd}AEW[EEWWE؋3W+ЋE؋W'UW+EuE܀tdE;uE䋟׋^ɋuÐ LST02{NcLST STR p3+ @COMPONENT-CHECK *COMPONENT-INDEX* STRING-DOWNCASE KEYWORD= INTERNAL-STRING= GET-PART-SPEECH /nUVDtaEUtd}܋NQ_f;Z}TR;Wuc‰UWW;}u EɋuÉEWWWW^׉EЋE^׋ЋEЋ^W';uEW[EWWtd밋EWWW[W[WWU^W';t΋EW[E̋Eԋ^"׋ЋE̋W'UW+E WORDPOS02{NWORD POS MATCHES hOBJ p3+ @GET-PART-SPEECH /,UV$tatdWWW[W[WWW+ɋu OBJ0+ @HYPERNYM-CHECK LOOPTREE-OFFSET CONCAT-TO-LIST* /V+UV,tatd;uɋuÉEWW^׉EEW[3AЋE3ɱW/^Ȑ  HYPERNYM-LIST02{N HYPERNYM-LIST jp3+ @HYPERNYM-CHECK1 aS LOOPTREE-OFFSET CONCAT-TO-LIST* /\.UV,tatd;uɋuÉEV^W'^׉EEW[3AЋE3ɱW/^  HYPERNYM-LIST02{N HYPERNYM-LIST mp3+ @A aATTRIBUTE-LIST /(UV$tatdWWV^W'ɋuÐ X0+ @S LEXICALLY-VISIBLE-FUNCTION < MAPCAN /&UV$tatdЋF^W'ɋu LISTPOS0+ @INTERNAL S LN!!< < W@LOOPTREE-OFFSET LOOPTREE2-OFFSET  APPEND-LEVEL CONCAT-TO-LIST* /OUV4tatdjE}܉EWW;}u EɋuÉE؋^;u+3Ҳ]uHpBEEW[EWWtd빋E؋^׋U^W'U3ɱW/^׉E묋Ë_W'  OFFSET-LIST02{NLEV  OFFSET-LIST MATCHES4 OBJ p3+ @ APPEND-LEVEL CONCAT-TO-LIST* /|>UV<taUtd}GEW[E܋EWWEԋEW+ЋE3ɱW/^׋UW+Eu܏E؀tdE;uEɋuÐ LSTLEVEL02{NLEVEL vLST STR2 p3+ @LOOPTREE2-OFFSET *COMPONENT-INDEX* GET-PART-SPEECH /lUV<taEtd}NQ_f;Z}TR;Wuc‰UWW;}u EɋuÉEWWW[W[W[WW;EtU䋟W';tHEW[WWEԋEW[W[WWЋE3ɱW/EЋE؋^׋ЋEЋW'UW+EEW[EWWtdj NEWP02{NNEWP MATCHES3 ~OBJ p3+ @LEXICAL-SEARCH *COMPONENT-INDEX* STRING-DOWNCASE [_-]  REPLACE-RE .*\(\).*CONCAT-TO-SIMPLE-STRING INDEX-ENTRY-COMP-NAME CANONICAL-ENTRY  CASE-FOLD  MATCH-REGEXP INDEX-ENTRY-DEPTH KEYWORD= -?/NUVTtaEtd}NQ_f;Z}TR;Wuc‰UWWE;}u EɋuËE^׋V vRP^"׋ЋF& v*RP3ɱW/^.׉EԋE؋^2׋^6׋ЋEԃwv:RP^>r3A|~MOqE׉}ЉU;tPE؋^2׉EȋE؋^B׉EċE̋UЋ^FW';tBjEEȋUăuvJRP3ɱW/UW+EEW[EWWE؀tdvNE KEYWORD0 2{N KEYWORD RESULTS ENTRY COMP  WHOLE-MATCH p3+ @INDEX-ENTRY-COMP-NAME /"UV$tatdW[WWɋuÐ  INDEX-ENTRY0+ @INDEX-ENTRY-DEPTH /$UV$tatdW[W[WWɋu  INDEX-ENTRY0+ @INDEX-ENTRY-KM-PATH /(UV$tatdW[W[W[WWɋuÐ  INDEX-ENTRY0+ @INDEX-ENTRY-SPEC-PATH /*UV$tatdW[W[W[W[WWɋu  INDEX-ENTRY0+ @MAKE-INDEX-ENTRY WORDNET-KEYWORD SENSE# POS SYNSET#  COMP-KEYWORD DEPTH KM-PATH  SPEC-PATH / tUVEU EU3۳HWO];u.NjS;u,׉E̋C;u%}ԋC;u#}ЋC ;u!}"S͋S ыCE֋CE؋C$EC(;uQ}C0;uO}܋C8;uM}؀tdẼuuRP3ɱW/UuuuRP3ɱW/ɋuËC,E몋C4E묋[<] &KEY WORDNET-KEYWORDSENSE#POSSYNSET# COMP-KEYWORDDEPTHKM-PATH SPEC-PATH 02{N COMP-KEYWORD DEPTH KM-PATH  SPEC-PATH POS SYNSET# WORDNET-KEYWORD p3+ @CANONICAL-ENTRY STRING-DOWNCASE *STRING-LEFT-TRIM [_-] REPLACE-REGEXP /@ UV,tatd^׋ЋF^W'V v"RP^&ɋuÐ  ENTRY-NAME0+ @ INDEX-ENTRY-< INTERNAL-STRING< /UVDtaUtdEW[W[W[WWE܋EW[W[W[WW ]u];| ;tɋuËЋE܋W';t_݋EW[W[W[WWE؋EW[W[W[WW ]u;Et;tA멋ЋE؋W';tEW[WWEЋEW[WW ]uC];N뻋EW[W[W[WWEԋEW[W[W[WW ]u';Et45ЋEЋW';u_iЋEԋW';t̋EW[WWE̋EW[WW ]u$;EuEWWEȋEWWЋEȋ^W'ЋE̋W';s XY02{NY X p3+ @INDEX-ENTRY->=  INDEX-ENTRY-< /*UV,tatdE‹U^W'ɋuÐ XY02{NX p3+ @KEYWORD= STRING-DOWNCASE [\s-]_ REPLACE-RE INTERNAL-STRING= /b1UV4taUtd^׋V vRP^׉EE^׋V vRP^׋ЋE^"W'ɋuÐ K1K202{NK2 p3+ 2xAG389 @< TOP-LEVEL-FORM < DIRECT-CALLS STORE-DOC-FORMS  LOAD-SCM-INFO UPDATE-XREF-INFO REQUIRE INIT LOAD INTERNAL-IN-PACKAGE  MAKE-PACKAGE  FIND-PACKAGE NOT   MACRO-CALLS  IN-PACKAGE UNLESS SETS *USING-KM-PACKAGE* *SOURCE-PATHNAME*  REFERENCES !!COMPONENT-FIND-INTEGRATED INDIRECT-CALLS INTERNAL-STRING= CAR INDEX-ENTRY->= !MEMREF SYMBOL-FUNCTION FOURTH +_2OP THIRD SECOND FIRST !CONS CDR NREVERSE NULL COMPONENT-FIND LEXICAL-SEARCH  APPEND_2OP SORT REMOVE-DUPLICATES REVERSE !!*COMPONENT-INDEX* !!)!  SY_FUNCTION CADDDR + CADDR CADR LIST FUNCALL MAPCAR APPEND !'SETF  COMPONENT-FIND-SORTED !!!!! !*!'!!!!#!&!'!(!!#! SYMBOL-NAME STRING-DOWNCASE COMPONENT-FIND-WITH-PART-SPEECH NCONC REMOVE-DUPLICATES-EQUAL EQ LENGTH <=_2OP STRINGP !  ! !'<= WHEN !7! INV-MEMREF GENERAL-ERROR-HANDLER-ONE RPLACD ! CONSP ! HYPERNYM-CHECK HYPERNYM-OFFSETS HYPERNYM-CHECK1 !COMPONENT-CHECK REFINE-COMPONENT-CHECK  ! !3PROG1 STRING= !8!H!!%!!! !!!"!9! !/!2!0!1!'!G! SETQ !2PUSH !-!J!?!GET-PART-SPEECH !%!! !!!!6KEYWORD= ! !"! !!)!M!!! !!! !-!/!D! !/ CONCATENATE !CONCAT-TO-LIST* ! !D!LOOPTREE-OFFSET !"!F! !/!O!!P! !FS !Q!"!R!MAPCAN < !!ATTRIBUTE-LIST !Q! !K!,!/!O!3!! !!P APPEND-LEVEL LOOPTREE2-OFFSET !"!!U!!P!!! !!!"! !/!O!0!1!V! !KNTHCDR NTH !/!2!3!+!!M!%!!! !EQUAL !"! !!)!$! !K!L!/!O!! !NINDEX-ENTRY-DEPTH !INDEX-ENTRY-COMP-NAME CANONICAL-ENTRY CONCAT-TO-SIMPLE-STRING !6 REPLACE-RE  MATCH-REGEXP !"! !!)![! !.!! !!Z! !-!! !INDEX-ENTRY-KM-PATH ! !+!! !INDEX-ENTRY-SPEC-PATH !! !! !W!XFIFTH MAKE-INDEX-ENTRY ! !/!\!!6STRING-LEFT-TRIM REPLACE-REGEXP  INDEX-ENTRY-< !INTERNAL-STRING< >_2OP =_2OP ! ! !<_2OP ! STRING< > = !W!X< !!!f!N!!6!^!! !J  !/&UV$atdF^׋ɋuÐ NULL 0+ @32x< TOP-LEVEL-FORM <P"Q32yAG390 @< KEYWORD= OPERATOR !!INDEX-ENTRY->= !!! INDEX-ENTRY-< !!!CANONICAL-ENTRY !!!MAKE-INDEX-ENTRY !!!INDEX-ENTRY-SPEC-PATH !!!INDEX-ENTRY-KM-PATH !!!INDEX-ENTRY-DEPTH !!!INDEX-ENTRY-COMP-NAME !! !LEXICAL-SEARCH !! !LOOPTREE2-OFFSET !! ! APPEND-LEVEL !! !LOOPTREE-OFFSET !! !S !!!HYPERNYM-CHECK1 !!!HYPERNYM-CHECK !!!GET-PART-SPEECH !!!COMPONENT-CHECK !!!REFINE-COMPONENT-CHECK !!!COMPONENT-FIND-WITH-PART-SPEECH !!!COMPONENT-FIND !!!COMPONENT-FIND-SORTED !!!COMPONENT-FIND-INTEGRATED !!! LOAD-SCM-INFO /&UV$atdF^׋ɋuÐ NULL 0+ @32y< TOP-LEVEL-FORM <P"Q3AG391@<COMPONENT-FIND-INTEGRATED  .DE-ARGS. MCOMPONENT-FIND-SORTED !COMPONENT-FIND !COMPONENT-FIND-WITH-PART-SPEECH !REFINE-COMPONENT-CHECK !COMPONENT-CHECK !GET-PART-SPEECH !HYPERNYM-CHECK !HYPERNYM-CHECK1 !S !LOOPTREE-OFFSET ! APPEND-LEVEL !LOOPTREE2-OFFSET !LEXICAL-SEARCH !INDEX-ENTRY-COMP-NAME !INDEX-ENTRY-DEPTH !INDEX-ENTRY-KM-PATH !INDEX-ENTRY-SPEC-PATH !MAKE-INDEX-ENTRY !CANONICAL-ENTRY ! INDEX-ENTRY-< !INDEX-ENTRY->= !KEYWORD= !STORE-DOC-FORMS /&UV$atdF^׋ɋuÐ NULL 0+ @<TOP-LEVEL-FORM <P"Q