ë�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ˇˇ