hưs2Dp,lFASD-DATADkhhLambda Four AuF{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DplNCPUT-GLOBAL-DECLARATIONDB;SHIPDB;DEFSTRUCT-DESCRIPTORDB;$NILpB+ART-QEFBFBFBFFBBCMAKE-SHIPBFBFDBBDCX-POSITIONDB;CUNDEFINEDDCY-POSITIONBPDÀSPEEDBP1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DCSHIP-SPEEDÀLAMBDADBBDLET*DDpB[,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBaDÀIGNOREDpB+,GENTEMPDB;DBBDpB[,STOREVARDpB+GENSYMDpB[,TEMPVARSBeDÀVALUESB{DpB+LISTBBDBBuDLETDDÀDO6658BuDBBDpB+NTHB{DplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BBFBBBDpBXR-BQ-LIST*DB;B`B{B]B`1DpB?,DEF-DECLARATIONB`ÀSUBSTDB;DpB?NAMED-LAMBDAB`DBBDÁSTRUCTURE-REFDB;BBFBB1DBZB]DB_DB;DSHIP-Y-POSITIONBaDBBDBcDDBeDBgBoDB;DBBByDB{BeDB~B{DBBBBDBDDÀDO6657BuDBBDBB{DBBDB;DB;BBFBBBDBDB;BB{B]B1DBBBDB;DBBDBBDBDB;BBFBB1DBZB]DB_DB;DSHIP-X-POSITIONBaDBBDBcDDBeDBgBoDB;DBBByDB{BeDB~B{DBBBBDBDDÀDO6656BuDBBDBB{DBBDB;DB;BBFBBBDBDB;BB{B]B1DBBBDB;DBBDBBDBDB;BBFBB1DBADB;BBDB;ÁTYPE-EXPANDERDBhDBaBFDB;DCSATISFIESÀSHIP-PBB1DBBBDB;DBBDÀTHINGDTYPEP-STRUCTUREBDB;BBBB