ë�XCL Compiler output for source file {DSK}<home>larry>il>medley>library>WHERE-IS.;2 Source file created 30-Apr-2023 13:54:00 FASL file created Sunday, 30 April 2023, 13:54:01 ˇùòñ#o����g����g��������o���� �����òïåFILECREATEDLOC�òèå*STANDARD-INPUT*òå1 top-level form���òêåFUNCTIONòìÄòïåDEFINE-FILE-INFOòèåOPENòêåOUTPUTòêå DIRECTIONòìòêåPACKAGEòåXEROX-COMMON-LISPòêå READTABLEòåXCLòêåBASE òå{Null}�ùòñ�Lg����g����o��������øo��������øo���� ����øo����o���� ����øo����o���� �����òå5 top-level forms����ôòìÄFòèåREQUIRE6ô&òèåPROVIDEòïåPUTPROPòïåWHERE-ISCOMSòïå FILEDATESòïåWHERE-ISAòåCASH-FILE.DFASL<òå CASH-FILE1òåHASH-FILE.DFASL,òå HASH-FILE!òåWHERE-ISòìòìòïåPòìôòåWHERE-ISòìôòå HASH-FILEòåHASH-FILE.DFASLòìôòå CASH-FILEòåCASH-FILE.DFASLòìòïåCOMSòìòïå*òïå;;òå run time codeòì òïå FUNCTIONSòíåHASH-FILE-WHERE-ISòëòåXEROX-COMMON-LISPòíåHASH-FILE-TYPES-OFô/òíåGET-WHERE-IS-ENTRIESô/òíåWHERE-IS-READ-FNô/òíåADD-WHERE-IS-DATABASESô/òíåADD-WHERE-IS-DATABASEô/òíåDEL-WHERE-IS-DATABASEô/òíåSAME-WHERE-IS-DATABASEô/òíåCLOSE-WHERE-IS-FILESô/òìòïåADDVARSòìòïå AROUNDEXITFNSô8òìòïå VARIABLESòíå*WHERE-IS-CASH-FILES*ô/òíå*WHERE-IS-CASH-SIZE*ô/òìô(òìô)ô*òånotice time codeòì ô-òíåWHERE-IS-NOTICEô/òíåWHERE-IS-NOTICE-INTERNALô/òíåWHERE-IS-FILESô/òíåWHERE-IS-DEFAULT-DEFINE-TYPESô/òíåWHERE-IS-NAMESTRINGô/òíåWHERE-IS-READ-COMSô/òíåWHERE-IS-SET-WRITE-DATEô/òíåWHERE-IS-GET-WRITE-DATEô/òìô>òíå*WHERE-IS-HASH-FILE-SIZE*ô/òíå*WHERE-IS-IGNORE-DEFINE-TYPES*ô/òìòïåPROPòìòïåMAKEFILE-ENVIRONMENTòïåFILETYPEôòìòîòå30-Apr-2023 13:54:00ïå.{DSK}<home>larry>il>medley>library>WHERE-IS.;2�úô0òñ�G@ ����∏hπh∫hªH¢I∞&HºALªJîJKøÅKπKëiÄhñK ����∫H∏∞Ÿg����g���������ô0��ôòìòìòåNAMEòåTYPEAòèåREMOVE-DUPLICATES,òèåLASTô2<òèåSTRING=7òêåTEST��úô1òñ�^ejÛîelÛòkl ����øekŸj§la∏Ö����∏@ ����πh∫HªhºKëKÅ∞"ºIΩhæMëMÄèæLNîLJ∫ÑMΩ∞ÌKª∞‹J �����ô1�ǡˇˇˇôòìòìòåNAMEòèå &OPTIONALòåPOSSIBLE-TYPESXô`%ô2ôH òíåARGUMENT-ERRORòëòåSYSTEM���úô2òñÇ���¿W∫hªhºhΩJ°KJæJ_øh_øo����W Oπn�⁄_ø@O√����ìO∞AOW ����_����…_����g���� ����øO����g���� ����øNO ����_øg����Çhπ_g����ìO∞O_jôO ����øhÄhΩKîLM&ºÑMh\ªJ∫±ˇM� òíå*CATCH-RETURN-PC*ôk òïå*PROCEED-CASES*òíå*CATCH-RETURN-TO*ôk ô?ôoô@ô2 �ôòìòìòåNAMEÇ���§ô6yòíå GET-CASH-FILEòëòå CASH-FILElòèåSYMBOL-FUNCTIONXôw>òíåOPEN-CASH-FILEôuÇ���èòêåNORMALÇ���Åôygô3bòíå HASH-FILEòëòå HASH-FILESô3Nô|Eòíå CASH-FILEôu0ô}òüòíåPROCEED-CASEô/òìòïåNAMEÄòïåTAGÄòïåSELECTOR�òïåTESTÄòïåREPORTòå,Delete from the databases known to WHERE-IS?òíåINTERACTIVE-FNòëòå CONDITIONSÄòèåFUNCTIONÄ�úô3òñRo����∫hªJπn�nºJW@ ���� ����ªg����Çhπ^g����îK$N√����ìN_NJ �����òïå*CONDITION-HANDLER-BINDINGS*ônôpôÇ���åô3�ôòìòìòåSTREAMLòíåCONDITION-CASE-ERRORôkòïå\MVLISTòíåDEFAULT-READ-FNô{>òíåMISSING-PACKAGEô/1ôy$ôyòõòìòíåCREATE-CONDITION-CASE-LITERALSôkòìòèåQUOTEôÇ���ì�úô4òñ�+he#∏Hπh∫hªhºI°JI ����ºJîKL&ªÑLh[∫Iπ∞Â�ô4�ǡˇˇˇôòìòìòèå&RESTòå PATHNAMESô5���ùòñ�g����g����o���������òåDEFUN ADD-WHERE-IS-DATABASES����ôòìÄòïåSET-DOCUMENTATIONôÇ���àô4òå4add each PATHNAME to the databases known to WHERE-IS�úô5òñ@ ����X ����øHQcøH�ô?ô5�ôòìòìòåPATHNAMEô6òèåPATHNAME���ùòñ�g����g����o���������òåDEFUN ADD-WHERE-IS-DATABASE����ôòìÄôÇ���°ôÇ���àô5òå/add PATHNAME to the databases known to WHERE-IS�úô6òñNn��X@�øn��o�����HR ����Y≤-IRg����g��������cøI√����ùI����… ����Ih�ô?ô6�ôòìòìòåDATABASEDòíåCLOSE-HASH-FILEô{-òèåDELETEòèåFIND-IF=ô}6ô}(òèåEQ#ôcòñ�H…�@ �����òålambda in DEL-WHERE-IS-DATABASE��òêåCLOSUREòìòìòåELEMENTô7��� òïåCOMPILED-CLOSUREòïå \PTRHUNK2úô7óòñ�{@ko����h-∏Ako����h-πH ����I ���� ����≤SH ����I ���� ����≤>H ����I ���� ����≤)H ����I ���� ����≤H ����I ���� ����hhhh�ô7��ôòìòìòåXòåYmòèåEQUALPhòèå PATHNAME-TYPEbôÇ���¬ZôÇ���¡Uòèå PATHNAME-NAMEOôÇ���√GôÇ���¡BòèåPATHNAME-DIRECTORY<ôÇ���ƒ4ôÇ���¡/òèåPATHNAME-DEVICE)ôÇ���≈!ôÇ���¡òèå PATHNAME-HOSTôÇ���∆���ôÇ���« òñ�@√����ü@����…����…�Ä@ �����òåCOERCE-TO-PATHAME���ôÇ���µòìòìòåCASH-FILE-OR-FILE-NAMEôÇ���ßô| ô}ô}��ôÇ���«ôÇ���Ãúô8òñÇ���‘@ëhÄiZíJ∞ @g����[íK∞@g����\ëLÜ@g����¢±�®h∫`����Wio����W Mπn$_øW"ªhºh_øh_øK¢L∞]K_øK_√����≤3O_øg����g����g����O����… ��������_øOOÄh_øLòOO&_øÜOh_ºKª∞¢h∫g����Çhπg����ëJhh�ônôÇ���åòíå*NLSETQFLAG*ôkôoôpôoôÇ���åô?ô8�ôòìòìòåEVENTÇ���éòèå MAKE-PATHNAMEÇ���âôÇ���∞Ç���«ôyÇ���ªôyÇ���Çô}{òêåDEFAULTSvòêåNEWESTqòêåVERSIONeô}/òíåNLSETQ-PROCEED-CASEôk#òïå BEFOREMAKESYSòïåBEFORESYSOUTòïåBEFORELOGOUT8òîòèåERRORíå NLSETQHANDLERôk�ùòñ�o���� �����òå1 top-level form����ôòìÄòïåADDTOVAR�òìô;ô8�ùòñ1o���� ����øg���� ����X£hcøg����g����o���������ô?òåDEFVAR *WHERE-IS-CASH-FILES*��ôòìÄ+ôÇ���°òèåBOUNDPòèåPROCLAIM!òèåVARIABLEô?ô?&òålist of pathnames or CASH-FILEsòìòèåSPECIALô?�ùòñ2o���� ����øg���� ����X§ldcøg����g����o���������ô@òåDEFVAR *WHERE-IS-CASH-SIZE*��ôòìÄ,ôÇ���°ôÇ���„ôÇ���‰"ôÇ���Âô@ô@'òå#size of the CACHE-FILE cache to useòìôÇ���Áô@�úôEòñÇ��9n��∏ejÛßkh ����øg����µ o����H˝�øÖaH˝�øg����µ hH˝øÖaH˝øg����µ ����H˝øÖaH˝øg����µWπÅaπg����µ hH˝øÖaH˝øg����µh∫Åa∫JùH…ëJà@J ����Ä@ªH…óKI ����èKg����g��������H˝øin��o�����Hko����H-øH…����…� ����ΩJ≤IH…≥io����M ��������øM@ ���� ����^__øH…≥io����O ��������øOM�òíå*DELETE-OLD-VERSION-ON-REHASH*ô{ ôNôE ǡˇˇˇôòìòìòå DATABASE-FILEòèå&KEYòêåFILESòêåNEWòêåDEFINE-TYPESòêåHASH-FILE-SIZEòêåQUIETòêå TEMP-FILEÇ��.òèåFORMATÇ��)òèå NAMESTRINGÇ��ôÇ���ëÇ�� òèåRENAME-FILEÇ��ôÇ���˙Ç���¸ôÇ���˚Ç���ÁôÇ���ßÇ���∏òíåOPEN-HASH-FILEô{Ç���ßòíåMAKE-HASH-FILEô{Ç���ôòïåCOPYFILEKôHôl Ç���‡ô|Ç���≥òêåIOÇ���ÆôÇ���ÅôÇ���˜kôÇ���ˆ\ôÇ���ıBôÇ���Ù,ôÇ���ÛôÇ���ÚÇ��"òå~A~%Ç���ˆòå;;; Renaming ~A ... Ç���’òñ�Ç���÷H…� ����πh∫IëIÉh±�æ∫H…≥io����J ��������øn��H�ªJ ����K˝øH…íh∞K…H… ����\òJ ����LˇÄh≤H…≥fio���� ����ø∞XJ ���� ����\K˝øLΩK…≤=K…Mn��o�����K����øK…JH…����øH…≥o���� ����ø����øIπ±ˇ@∫j@øJ�òíå*UNWIND-PROTECT*ôk��ôÇ���µòìòìòåG1589 Ç���√òèåTERPRIÇ���ΩòèåPRINCÇ���≠ôKÇ���†òïå \DO.PROGVyôÇ���ëtôJkôÇ���˙UòèåFILE-WRITE-DATEMôL6ôI'ôÇ���˙"ôÇ���˚ôG�Ç���∏òå. done.Ç���ñòñ�ZH…�…™o���� ����øH…�…πh∫IëIÅh∫hJH…����[ëiÄh≤"KºhΩLëLÅ∞]JH…H…�…����øLº∞ÊIπ∞¬�òålambda in *UNWIND-PROTECT*���ôÇ���µòìÄJôF(òïåINFILECOMS?ôÇ���òå.�fòå up to date.~%òå;;; ~A .Ç���íôÇ���∫-òïå \PTRHUNK4Ç��� òñ� H… �����òåClean-up forms���ôÇ���µòìÄôÇ���∞���òå*.;Ç���∆ôÇ���∫òïå \PTRHUNK5úôFòñ�I@C ����∏AHg����g��������Y∫BJëh@CABJIHg����g����g����k ���������ôF��ôòìòìòåNAMEòåTYPEòå FILE-NAMEòå HASH-FILECòíå PUT-HASH-FILEô{=ôÇ���±òèåASSOCòíå GET-HASH-FILEô{6òêåCOUNT1ôÇ���≥,ôcòèåEQUALôc��úôGòñ�f@ëhÄiXëHÖ@ëiÄhë@Ç@h∏hπh∫hªH°IH\ ����]îMh∞`����g����ñL ����ÖL ����ªJîJKøÅKπKëiÄhñK ����∫H∏∞π�ôG��ôòìòìòåFILES[ôaDòèå DIRECTORY=òïå DIRECTORY$òèå PROBE-FILE5òêåLYRIC0òïåMAKESYSNAME��úôHòñBU∏hπh∫hªH°IH\ëiÄhëhÜLVëhÄiìLhÄhªJîJKøÅKπKëiÄhñK ����∫H∏∞…�òïåFILEPKGTYPESôOôH��ôòìÄ7ôa���úôIòñ�8g����hg����@ ����g����@ ����o����ÃëhÖ@ ���� ���� �����ôI���ôòìòìòåPATHNAME2ôÇ���˚-ôÇ���—'ôÇ���¬ôÇ���¬ ôÇ���√òêåTYPEòêåNAMEòêåHOSTòå��úôJòñ"n��X@�øT!n��o�����ko����H-�òíå*RESETFORMS*ôkòïå RESETSTATEòïå LISPXHISTôÇ��=ôJ�ôòìòìòåPATHNAME��òñ Ç��çg��������hhWcøh∫H…� ���� ���� ����hªK≥IJ ����ZJΩhæh_øh_øM¢N∞#M ����_øNòOO&_øÜOh_æMΩ∞‹$ ����±KΩhæMëMÅ∞^J≤NKg����g��������ªMΩ∞flhæ`����W io����W"Oπn6_øKH…�h����hæg����Çhπg����ëNÄhëiÄh¢±�ÅKæhΩh_øh_øN£M±�ÑN_ ����≤&hg����O����_øOJ∫OëiÄhìO∞h∞o����OH…� ��������øh_øOñOOøÇOΩOëiÄhôO ����_øNæ∞êo����KH…� ��������øhª±˛∞j@ø �����ônôÇ���å ôÇ���Õ ôoòïåLOAD-VERBOSE-STREAMôpôÇ��;ôoôÇ���åôÇ���ôÇ���µòìòìòåG1601Ç��áòèåVALUES-LISTÇ��xòèåWARNÇ��sôÇ���˚Ç��]ôaÇ��<ôÇ��FÇ��7ôÇ���˚Ç��ôÇ��Ç��ôÇ���„Ç���≈òïåLOADVARSÇ���ñôÇ���±oôÇ���ëMòèåSYMBOL-VALUE4òèåNREVERSE%òïåFILECOMS òèå STRING-UPCASEôÇ���√òïå RESETUNDOÇ�� òïåFILEVARSÇ���ŸôyÇ���ÕôyÇ���£ôÇ���’Ç���ëôÇ���≥Ç���åôcôÇ��LÇ��jòå(Error attempting to LOADVARS ~S from ~A.Ç��-òåCouldn't find ~S on ~A.Ç���¨ôÇ���⁄�òñ������ôÇ������ôÇ���µòìÄòíåRESETUNWINDôk���ôÇ���∫ôÇ���ªúôKòñ�@g����A ����B�����ôK���ôòìòìòå NAMESTRINGòåPATHNAMEòå HASH-FILEôFôÇ�� òíå WRITE-DATEôk��úôLòñ�g����@A �����ôL���ôòìòìòå NAMESTRINGòå HASH-FILEôÇ��#ôÇ��Z��ùòñ3o���� ����øg���� ����X•n'cøg����g����o���������ôNòå DEFVAR *WHERE-IS-HASH-FILE-SIZE*��ôòìÄ-ôÇ���°ôÇ���„ôÇ���‰#ôÇ���ÂôNôN(òå*initial size to create WHERE-IS hash filesòìôÇ���ÁôN�ùòñ"o���� ����øg���� ����XëHo����c�ôOòå%DEFVAR *WHERE-IS-IGNORE-DEFINE-TYPES*��ôòìÄôÇ���„ôÇ���‰ôOòìòïåFILESòïåEXPRESSIONSôÇ��MòïåALISTSòìôÇ���ÁôO�ùòñ�o���� ����øo���� �����òå2 top-level forms����ôòìÄòïåPUTPROPSôÇ��p�òìôôTòêåCOMPILE-FILEòìôôSòìôòåXCLô òåXCL�öÇ��xˇˇ