hF0s8p,lFALCONF2D p,,COMPILE-DATADlkeithlJack Flanders'1SF~FDp,COMPILER,NEW-DESTINATIONSplGLOBALlTpB ,SITEpB ,LMIpB ,SOURCE-FILE-GENERIC-PATHNAME1DplFSlMAKE-FASLOAD-PATHNAMEDpB+lQUOTElFALCONDB:pB lUNSPECIFICDB:DlK,COMPILERDB:,BASIC-MACROSDB:B>DB:B>pB ,QFASL-SOURCE-FILE-UNIQUE-ID1DB8DB:lJBDB:,DSKDB:DlK,COMPILERDB:,BASIC-MACROSDB:,LISPDB:FpB lREADTABLEpB lCLpB ,BASEF pB ,PACKAGEpB ,COMPILER9j"@ C@ApB@@@A @A Af@jB C! C CE&@A$@&@(BAFPUSHNEW<FFF F=FFp@lLISP-INTERNALSlLIST3FFp@BqlLIST*FF CCDDDRFF CCADDRFF CADRFF p@lSI,MACRO-REPORT-ARGS-ERRORFFCINTERNAL-FFFFFFCADJOINF SETFD@CMACROBOBhy?Xj"@ C@AfB@@@A  @A C@AfB@@@A@A Ab@bB C"&@j(@$C@@@A@AE%F$C@C@@@A #@AA%C@@B@A $C@A&@jB@@@A+@Aj@@ $C@A@@B@A@@B@@@A7@A$C@A $C@A@@ B(@@@@@AU@A(C@@@AF@A(E%CAF(C@A@@B@@@AO@A$CO@A (C@Ej@$@@'F$C@A@@ B(@@@@@A`@A(A$ B$@@ $C@C@@@Ar@A$C@C@C@@@Ar@Aj@@EA%CAB$CAF$C@C@@@A@A$C@C@C@@@A@Aj@@E$C@C@A%CABAFj@@@@@A @A$A$A& B$B@@@A@AA@$C@B@A jDLOCF<FFFFFFFF|FFvFFjFrFdFrF_FF\F`FNFOFLFOFBFFF>FUF6FF4F7F*FF)F+F"FFF#FFF FFF F=F6FCFERRORFFCARFF CEQFF CMACROEXPAND-1FFp@BqlLIST2FFBwFFCDRFFSYMBOL-FUNCTIONFFBSFFySYMBOLPFFxBeFFwBSFFsFBOUNDPFFrBSFFqBwFFpBbFFoB]FFnBSFFgCARRAYPFFfBeFFeBSFFaBqFF`BSFF^FUNCALLFFXGETDECLFFUBSFFTCALLFFOBbFFMCNOLOCFFFIBVFFFBbFFECONSFFDBbFF?BjFF:B FF7BSFF5BFF1BVFF.B FF+BSFF&FSYMEVAL-IN-ENVIRONMENTFF#BSFF!BPFFBSFFBjFFBSFFB]FFBjFFBFFBFF CINTERNAL->FFB FFBFFB F>FFFFFFlNo way known to do LOCF on ~S.FCUNKNOWN-LOCF-REFERENCEF~BFmFUNCTIONFlALOCFWp@B,SETF-EXPANDFSpB ,OPTIONALFHp@BlNOLOCFF9p@B,LOCF-METHODF0p@BlUNLOCFABLEF-BF BFl~S non-symbolic function in ~SFCVARIABLE-LOCATIOND@BBtOuB96j"@ C@AfB@@@A  @A C@ArB@@@A@A Ab@pB C! C C$C@@@A@A@A A$BEA@AAA%BAB@BABA@AAA%BAB@BAA%BA&BA)BAB@BAFCDEFVAR<FFFFFF FFF F=FF5BsFF4p@BqlLIST4FF3BFF2B]FF0B]FF.B]FF+B]FF*B]FF)B]FF#BsFF"B]FF!B]FF B]FFCERRORFFBjFFCCADDDRFFB}FFBFFBFF BEFFB FFBFFB F>FFFFFF1B:F/B:F-B:F,p@B,DEFVAR-INTERNALF(SPECIALF'B:F&PROCLAIMF%DLOADEVALF$CEVAL-WHENFBEFB:FBHFDCOMPILEFBNFCPROGNFlDEFVAR first subform not a symbol: ~sD@BB[O\Bv1Dp@B,FASL-RECORD-FILE-MACROS-EXPANDEDDB:DLOOPDCUNLESS;$@Dp,LISPlIFuD}Dp@BlXR-BQ-LIST~KDp@B,XR-BQ-LIST*B:+