hưs8p,LAMBDAF2Dp,lFASD-DATADJIMMaurice Ravel ?+F~FuDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀDEFVAR*VANILLA-EVALHOOK-FIRST-POSITION-FUNCTIONS?*B-Use 'eval' to evaluate the function in a function application. If NIL, thefunction is evaluated without using 'eval'. This determines whether or notevaluating the function will be evalhooked.1DB?*VANILLA-ALLOW-FREE-VARIABLES?*NIL,Bound to T while EVAL-SPECIAL-OK is running. When NIL, free variable referencescause an error.1DB?ÁFOO-*EVALHOOK*BE1DB?FOO-*APPLYHOOK*BE1DB?ÂFOO-*MACROEXPAND-HOOK*DB;FUNCALL1DplNCPUT-GLOBAL-DECLARATIONDB;ÀNFRAMEDB;DEFSTRUCT-DESCRIPTORDB;$BEpB+ART-QEFBEBEBEFBWMAKE-NFRAMEBEBEDBWDÀPARENTDB;CUNDEFINEDDTYPEBdDBINDINGSBE1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DNFRAME-BINDINGSÀLAMBDADBWDLET*DDpBo,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBuDÀIGNOREDpB+,GENTEMPDB;DBWDpBo,STOREVARDpB+GENSYMDpBo,TEMPVARSByDÀVALUESBDpB+LISTBWDBBDLETDDFIND-IF-NOT8755BDBWDpB+NTHBDplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BWFBWBDpBXR-BQ-LIST*DB;BtBDCIFDpB+BOUNDPDB;BqBqBEBt1DpBT,DEF-DECLARATIONBtÀSUBSTDB;DpBTNAMED-LAMBDABtDBWDÁSTRUCTURE-REFDB;BWFBW1DBnBqDBsDB;DNFRAME-TYPEBuDBWDBwDDByDB{BDB;DBWBDBByDBBDBBWBDBDDFIND-IF-NOT8754BDBWDBBDBBDB;DB;BWFBWBDBDB;BBBB1DBBBDB;DBBDBWDBDB;BWFBW1DBnBqDBsDB;DÁNFRAME-PARENTBuDBWDBwDDByDB{BDB;DBWBDBByDBBDBBWBDBDDFIND-IF-NOT8753BDBWDBBDBBDB;DB;BWFBWBDBDB;BBBB1DBBBDB;DBBDBWDBDB;BWFBW1DBVDB;BWDB;ÁTYPE-EXPANDERDB|DBuBEDB;DCSATISFIESNFRAME-PBW1DBBBDB;DBBDÀTHINGDTYPEP-STRUCTUREBDB;BWBW1DBVDB;BINDINGDB;BYDB;$BEB\EFBEBEBEFB'MAKE-BINDINGBEBEDB'DCIDENTIFIERBdDBfBdDÀVALUEBd1DBnBqDBsDB;DÁBINDING-VALUEBuDB'DBwDDByDB{BDB;DB'BDBByDBBDBB'BDBDDCSTRUCT8759BDB'DBBDBBDB;DB;B'FB'BADBDB;B8BBB81DBB8BDB;DBB8DB'DBDB;B'FB'1DBnBqDBsDB;DBINDING-TYPEBuDB'DBwDDByDB{BDB;DB'BDBByDBBDBB'BDBDDCSTRUCT8758BDB'DBBDBBDB;DB;B'FB'BfDBDB;B]BBB]1DBB]BDB;DBB]DB'DBDB;B'FB'1DBnBqDBsDB;DCBINDING-IDENTIFIERBuDB'DBwDDByDB{BDB;DB'BDBByDBBDBB'BDBDDCSTRUCT8757BDB'DBBDBBDB;DB;B'FB'BDBDB;BBBB1DBBBDB;DBBDB'DBDB;B'FB'1DBVDB;B'DB;BDB|DBuBEDB;DBCBINDING-PB'1DBBBDB;DBBBDB BDB;B'B'1DBÂADJOIN-VARIABLE-FRAMEBDB;DBBDCPARENT-ENV,Return a new environment created by adjoining an empty variable frame onto PARENT-ENV.DBaBpB ,VARIABLE1DBADJOIN-FUNMAC-FRAMEBDB;DBBDBReturn a new environment created by adjoining an empty function/macro frame onto PARENT-ENV.DBaBpB FUNMAC1DBCADJOIN-BLOCK-FRAMEBDB;DBBDBReturn a new environment created by adjoining an empty block frame onto PARENT-ENV.DBaBpB BLOCK1DBCADJOIN-GOTAG-FRAMEBDB;DBBDBReturn a new environment created by adjoining an empty gotag frame onto PARENT-ENV.DBaBpB GOTAG1DBCADJOIN-JUNK-FRAMEBDB;DBBDBReturn a new environment created by adjoining an empty junk frame onto PARENT-ENV.DBaBpB PLACEHOLDER1DBCBLOCK-NAMEBDB;DBBDCBLOCK-EXPRDCADRB1DBCBLOCK-BODYBDB;DBBDBDCDDRB1DBCCATCH-TAGBDB;DBBDCCATCH-EXPRDBB1DBCATCH-FORMSBDB;DBBDBDBB1DBEVAL-WHEN-SITUATION-LISTBDB;DBB DÁEVAL-WHEN-EXPRDBB 1DBEVAL-WHEN-FORMSBDB;DBBDB DBB 1DBFUNCTION-FNBDB;DBBDÁFUNCTION-EXPRDBB1DBGO-GOTAGBDB;DBB DGO-EXPRDBB!1DBIF-PREDICATEBDB;DBB(DIF-EXPRDBB)1DBÁIF-CONSEQUENTBDB;DBB0DB)DÀCADDRB)1DBIF-ALTERNATEBDB;DBB8DB)DBDC>DÀLENGTHB)FDÀCADDDRB)1DBLET-BINDINGSBDB;DBBFDLET-EXPRDBBG1DBLET-BODYBDB;DBBNDBGDBBG1DBMULTIPLE-VALUE-CALL-FUNCTIONBDB;DBBUDMULTIPLE-VALUE-CALL-EXPRDBBV1DBCMULTIPLE-VALUE-CALL-FORMSBDB;DBB]DBVDBBV1DBMULTIPLE-VALUE-PROG1-FIRST-FORMBDB;DBBdDCMULTIPLE-VALUE-PROG1-EXPRDBBe1DBMULTIPLE-VALUE-PROG1-OTHER-FORMSBDB;DBBlDBeDBBe1DBPROGN-FORMSBDB;DBBsDCPROGN-EXPRDCDRBt1DBÁPROGV-SYMBOLSBDB;DBB|DCPROGV-EXPRDBB}1DBPROGV-VALUESBDB;DBBDB}DB2B}1DBPROGV-FORMSBDB;DBBDB}DÀCDDDRB}1DBQUOTE-OBJECTBDB;DBBDCQUOTE-EXPRDBB1DBRETURN-FROM-NAMEBDB;DBBDRETURN-FROM-EXPRDBB1DBCRETURN-FROM-RESULTBDB;DBBDBDBDB:DB;BFDB2BBE1DBCSETQ-ARGSBDB;DBBDCSETQ-EXPRDBvB1DBTAGBODY-BODYBDB;DBBDTAGBODY-EXPRDBvB1DBÁTHE-VALUE-TYPEBDB;DBBDTHE-EXPRDBB1DBTHE-FORMBDB;DBBDBDB2B1DBCTHROW-TAGBDB;DBBDCTHROW-EXPRDBB1DBTHROW-RESULTBDB;DBBDBDB2B1DBÃUNWIND-PROTECT-PROTECTED-FORMBDB;DBBDUNWIND-PROTECT-EXPRDBB1DBUNWIND-PROTECT-CLEANUP-FORMSBDB;DBBDBDBB1DB?C*ALLOW-LOSING-&-SYMBOLS?*B-lIf NIL, any symbol beginning with & is not legal to bind.If non-nil, only real lambda-list keywords are illegal.