hưs8p,LAMBDAF2Dp,lFASD-DATADwkfJack FlandersF~FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEB(pB lREADTABLEstandard Common-Lisp1DLOAD-TO-COMPILATION-ENVIRONMENT-INTERNALDÀQUOTEÀFALCONDB:DDPUSHNEWCOMPILER-ARGLISTDplSIl*MACROARG*C&OPTIONALpB?l*MACROENVIRONMENT*DLOCFB>DBABBBDDÀDEFVARB>DBABBBDDB:D"DCDEFINE-SETF-METHODpB ,INHERIT-LAMBDA-MACRO-DEFINITIONDCWITH-LISTBQDÀPSETQBQDÀUNLESSBQDDEFCONSTANTBQDDECFBQDB=ÀMACRONAMED-LAMBDADB=DARGLISTITEMÀPLACEÀ&RESTCTESTANDKEYDFUNCTION-PARENTB=DBABBBDDDECLAREDÀBLOCKB=BDDBkB=DANDDCDBnBAFDBsBAFFDBxDDBDByDBzBADENVIRONMENTBDDBiDBBDB_BDBDLETDFCNDCONDDDSYMBOLPBDÀRETURNDBDB:CVARIABLE-LOCATIONBDDNOTDBDByBDÀFERROR~S non-symbolic function in ~SDByBDB:BGDDBWDFSYMEVAL-IN-ENVIRONMENTDByBBBuDBDDCEQDGETDECLDByBDB:BGDB:pB?lUNLOCFABLEDÀNOLOCFBDDSETQBDBDByBDB:pB?LOCF-METHODDpLISPlIFDBBDBDCONSBDBzBDÀPROGNDBDBDBzBDB:pB?NOLOCFDBBDBDCALLDBzBBuBpB ,OPTIONALBDDBBDBDByBDB:pB?SETF-EXPANDDBBDFUNCALLBBDDBlDFBOUNDPDByBDÀARRAYPDSYMBOL-FUNCTIONDByBDBDBDB:ALOCDBDB:FUNCTIONDByBDBzBDDBlDBDByBDBDB"DByBDBDBDB:BGDBDB"DByBDBzBDDBDBBDBBDÁMACROEXPAND-1BBDB-DBDB:ÂUNKNOWN-LOCF-REFERENCENo way known to do LOCF on ~S.DByBDBBQDINHERIT-LAMBDA-MACRO-DEFINITIONSBQDBBQDCWITH-LIST*BQDWHENBQDDEFPARAMETERBQDpB?lXR-BQ-CONSBQDSENDBQDpB?XR-BQ-VECTOR*BQDÀDOLISTBQDBJB]B^DBJDBDefine a special variable named VARIABLE, and initialize to INITIAL-VALUE if unbound.Normally, reevaluating the DEFVAR does not change the variable's value.But in patch files, and if you do C-Shift-E with no region on a DEFVAR,the variable is reinitialized. DOCUMENTATION is available if the userasks for the documentation of the symbol VARIABLE.If you want your variable to be initially unbound, yet have documentation, use :UNBOUND as the initial value.DB_ÀSYMBOLBBpB?INITIAL-VALUEBDB_BkBBBmBDBeBJDBABBBDDBiDBkBJBDDBkBJDBlDBDBmDBnBAFDBDBnBAFDBsBAFFDBxDDBkDByDBzBADBmDByDBzDBzBADBDByDBzDBzDBzBADBiDBBiDB_BkBBBmBDB_BkBBBmBDBWDBBkDÀERRORDEFVAR first subform not a symbol: ~sBkDBDB:BDBDB:CEVAL-WHENDB:DCOMPILEDBDB:PROCLAIMDBDB:B:DBDB:SPECIALBkDBDB:BDB:DLOADEVALDBDB:BDBDB:B:DBDB:BBkDBDB:pB?,DEFVAR-INTERNALDBDB:B:BkDBDB:B:BmDBDB:B:BDDEFSUBSTBQDDEFLOCFBQDBBQDpB?XR-BQ-VECTORBQ