CommonLisp-CompatibleArrayFunctionsFile:<lispusers>CMLARRAY.ttyRevised:Feb21,Jul1,andSep28,1983,byJonLWhiteThefollowingfunctionsarebasedonthedefinitionsintheCommonLispcommunity,andprovidemanyfeatureslackinginInterlisp'sARRAYsupport,inparticularmulti-dimensionalarrays,sharedarrays,andsuper-fastaccessing("open-coding"ofaccesswith"unsafe"primitives).Thesedefinitionsfollowthosefromthe"Excelsior"editionoftheCommonLispmanual(5August1983,copyrightGuyL.SteeleJr.)andsomeoftheprosebelowisreproducedfromtheaforesaid"Excelsior"editionbypermission.DocumentationTerminologyNotalloptionsandfeaturesoftheCommonLispspecifictionareimplemented;descriptionsoflimitationsareencolsedasnoteswithindoublesquarebrackets.Furthermore,forthebenefitofInterlisp-Dusers,somenon-portableextensionshavebeenmade,andthesearedescribedasnotedwithinsinglesquarebrackets.Anumberoffunctionstakeargumentsin"keyword"format;thismeansthatthearglist,aftersomepoint,alternatesbetweenanargumentwhichnamesthemeaningofthenextargumentandthenext"real"argument.E.g.,supposeCOLORMYWORLDisafunctionwithconceptuallydozensofparameters,butwhichistypicallycalledwithonlyoneortwoofthemsettoanon-defaultvalue.Thenyoumightsee(COLORMYWORLDSOMEBITMAP'HUEBLUE'DURATION5HOURS)wherethefirstargumentis"required",butalltheothersareoptionalandareobtainedfromtheappropriatepairintherealarglist;inthisexample,onesuch"keyword"argumentiscalledHUE,anditwillbesettothevalueofthevariableBLUE;also"coloring"willlastforadurationoftimefoundinthevariable5HOURS.Asageneralrule,anysymbol("litatom"intheInterlispsense)whichhasa"-"initsname,willhavethose"-"'sremovedintheInterlispincarnation(becauseofweirdpotentialinteractionwithCLISP).Thus,MAKE-ARRAYintheCommonLispmanualbecomesMAKEARRAYintheInterlispworld.Also,sinceInterlispdoesn'thave&optional,&rest,or&keyargumentspreading,thenanyfunctionwithsuchanargumentspectrumwillbeimplementedasano-spreadlambda;curlybracketswillenclosethenameforasequenceofsucharguments.CreationofArraysAnarray,forthepurposeofthisdocumentation,isaninstanceofanewdatatype(calledCMLARRAY),andisnotrelatedtothepreviously-documentedInterlisparrayfacility.Byconvention,allindexingintheCommonLispworldis0-origin.(MAKEARRAY<dimensionslst>...{keyword-arguments}...)<dimensionslst>isalistofnon-negativeintegersthataretobethedimensionsofthearray;thelengthofthelistwillbetherank,ordimensionality,ofthearray.Notethatif<dimensionslst>isNIL,thenazero-dimensionalarrayiscreated.Forconveniencewhenmakingaone-dimensionalarray,thesingledimensionmaybeprovidedasanintegerratherthanalistofoneinteger.Thekeywordargumentsare:ELEMENTTYPE-T,[orNIL,orPOINTER]meansthattheelementsareallgeneral���pÓ
ÍÔc/Ó
ÍÔb6qÓ
Ôb6Ó
ÍÔ`fiÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ*‘Ó/fiÓ7sÔ`fiÓ
ÍÔ_ÜÓ
Ô_ÜÓ
ÍÔ^.Ó‡Ó÷Ó(-Ô^.Ó
ÍÔ\÷Ó÷Ó2ÓéÓÍ
Ó!oÓ$ÀÓ('Ó+ÉÓ0ç
Ó3Ó7EÓ;~Ô\÷Ó
ÍÔ[~Ó
Ô[~Ó
ÍÔZ&Ó
ÔZ&Ó
ÍÔXŒÓ
ÔXŒÓ
ÍÔWvÓ¡ÓòÓ
oÓFÓ¢ÓÓ"nÓ% Ó*‘
Ó-YÓ0µ
Ó:…
Ó=NÓ?ŸÔWvÓ
ÍÔV	Ó'	ÓdÓ ¿Ó'xÓ+´Ó3:Ó9Ú
Ó<w
ÓE∫ÔVÓ
ÍÔT∆ÓÙÓÉ
Ó	Ó#EÓ2cÓ9Ó>¸ÓD„ÔT∆Ó
ÍÔSnÓF	ÓÉÓÈ
Ó,Ç
Ó/Ó4ËÓ9Ó?ŸÔSnÓ
ÍÔRÓ’Ó¨Ó∂
Ó% Ó+´Ó0µÓ4ËÓ8D
ÓBXÓH?ÔRÓ
ÍÔPæ
Ó
oÓÀ	ÓÓÈ
Ó"nÓ(OÓ-YÓ5øÓ9
Ó;†ÓAÅÓD„ÔPæÓ
ÍÔOfÓFÓy
Ó˛ÓZÓdÓ"n
Ó$Û	Ó.0Ó2cÓ5øÓ>%
ÓH9ÓH?ÔOfÓ
ÍÔNÓ¢
Ó'
ÓjÔNÓ
ÍÔL∂Ó
ÔL∂Ó
ÍÔK^Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂Ó'x
Ó0ªÔK^Ó
ÍÔJÓ
ÔJÓ
ÍÔHÆÓ¡ÓòÓ
oÓFÓ¢Ó˛Ó∂ÓÓ&°
Ó)&Ó,ÇÓ2cÓ6ñÓAÅÓD›ÓD„ÔHÆÓ
ÍÔGVÓ’Ó ¿
Ó#E
Ó-YÓ0µÓ8D
Ó:…Ó?”ÓE¥ÓE∫ÔGVÓ
ÍÔE˛ÓÀÓ¨ÓÓÈÓ*‘Ó.0Ó1åÓ8D
Ó:…
ÓD›ÓJæÓJƒÔE˛Ó
ÍÔD¶ÓÓ	Ó#EÓ'xÓ+´Ó0µÓ4Ó9Ó<wÓD›
ÓGbÓGhÔD¶Ó
ÍÔCNÓÙÓ’Ó∂Ó!óÓ),ÔCNÓ
ÍÔAˆÓ
ÔAˆÓ
ÍÔ@ûÓ¡ÓòÓ
oÓF�ÓÙÓ’
ÓZÓ ¿Ó$ÛÓ-Y
Ó/fiÓ8DÓ>¸ÓC/ÓGhÔ@ûÓ
ÍÔ?FÓÓyÓÓÓ#EÓ)&	Ó2cÓ9
Ó;†ÓC/ÓGhÔ?FÓ
ÍÔ=ÓÓÙÓPÓ
ÓçÓÈÓ$Ó+´Ó/Ó2cÓ6ñÓ<wÓDÔ=ÓÓ
ÍÔ<ñÓÙÓ¨ÓÉÓ"n
Ó$Û�Ó&°Ó.0Ó2cÓ=NÓB^Ô<ñÓ
ÍÔ;>
Ó
o
ÓÉÓflÓÈ
Ó"nÓ*‘Ó0µÓ4ËÓ9Ó<w
Ó>¸ÓBX
ÓDÔ;>Ó
ÍÔ9ÊÓÓy
Ӳ�Ө
Ó ¿Ó&°Ó'xÓ+´Ó/Ó4Ó6úÔ9ÊÓ
ÍÔ8éÓ¡ÓòÓ
oÓFÓ	Ó#EÓ'xÓ+´Ó4Ó9¯Ô8éÓ
ÍÔ76ÓÙÓPÓZÓÈ
Ó"n
Ó,ÇÓ/fiÓ3:Ó6ñÓ<wÓ?”ÓFëÔ76Ó
ÍÔ5fiÓFÓ¢Ó1ÓdÓ ¿
Ó*‘Ó/
Ó1åÓ4ËÓ9Ó@™ÓAÅ
ÓDÓGhÔ5fiÓ
ÍÔ4ÜÓyÓ’ÓÓ"nÓ)˝
Ó,ÇÓ2cÓ6ñÓ9Ú
Ó<wÓ@™
ÓC/ÓFãÓFëÔ4ÜÓ
ÍÔ3.
Ó
oÓÀÓ’
ÓZÓ∂Ó#EÓ(OÓ,Ç	Ó5øÓ9ÚÓ>%ÓAÅ�ÓB^Ô3.Ó
ÍÔ1÷Óy
Ó˛Ó1Ó;
Ó ¿Ó$Ó+´Ó1íÔ1÷Ó
ÍÔ0~Ó
Ô0~Ó
ÍÔ/&Ó¡ÓòÓ
oÓF
ÓÀ�ÓyÓ1Ó;Ó!óÓ'x	Ó0µ
Ó3:Ó6ñÓ>¸ÓDÔ/&Ó
ÍÔ-ŒÓÙÓP�Ó˛ÓZ
ÓflÓ;Ó#EÓ'xÓ+´Ó0µÓ5øÓ<w
Ó>¸ÓAáÔ-ŒÓ
ÍÔ,vÓP
ÓdÓ$Û
Ó'xÓ,ÇÓ4Ë
Ó>¸ÓC/ÓC5Ô,vÓ
ÍÔ+Ó¢ÓyÓÉ	Ó ¿
Ó#EÓ&°	Ó/fiÓ5øÓ<wÓDÔ+Ó
ÍÔ)∆
Ó
oÓÀÓ1ÓÓÈÓ$ÛÓ)˝Ó2cÓ9Ó=N	ÓE∫Ô)∆Ó
ÍÔ(nÓÀ
ÓPÓÉÓ	Ó(OÓ,ÇÓ/fiÓ7mÓ;†Ó?”
ÓAáÔ(nÓ
ÍÔ'ÓyÓÓ;
Ó ¿
Ó*‘
Ó-Y�Ó/Ó7mÓ>%ÓB^Ô'Ó
ÍÔ%æÓyÓ¨ÓdÓ ¿Ó$ÛÓ(O�Ó)˝Ó1å
Ó4Ó8D	Ó@∞Ô%æÓ
ÍÔ$fÓ
Ô$fÓ
ÍÔ#Ó
Ô#Ó
ÍÔ!∂Ó
Ô!∂Ó
ÍÔ ^Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂ÓçÓdÓ;ÓÓ&°
Ó)&Ó.6Ô ^Ó
ÍÔÓ
ÔÓ
ÍÔÆÓ¡ÓòÓ
oÓF
ÓÀÓ¨ÓÓdÓ$
Ó&°Ó*‘
Ó7m
Ó9Ú
Ó<wÓD
ÓFã�ÓGhÔÆÓ
ÍÔVÓFÓ’Óç	Ó% Ó)&
Ó+´Ó/Ó5ø
Ó8DÓ;†
ÓD„ÔVÓ
ÍÔ˛	Ó'ÓçÓ!óÓ)˝Ó*‘
Ó-Y
Ó7mÓ:…ÓBX
ÓD›ÓGhÔ˛Ó
ÍÔ¶	Ó'Ó1
Ó∂Ó#KÔ¶Ó
ÍÔNÓ
ÔNÓ
ÍÔˆ	Ó'Ó˛Ó"nÓ#EÓ&°Ó7mÓ:…�Ó;¶ÔˆÓ
ÍÔûÓ
ÔûÓ
ÍÔFÓ¡ÓòÓ
oÓFÓ∂
Ó;�ÓÈÓ$
Ó&°Ó1åÓ9Ó=NÓ@™
ÓC/
ÓD„ÔFÓ
ÍÔÓÓF	ÓÉ
ÓÓdÓ#EÓ&°Ó,Ç
Ó/Ó2cÓ6ñÓ:…
Ó=NÓ@™ÓE¥
ÓGhÔÓÓ
ÍÔñÓZ
ÓflÓ;Ó$Ó$ÛÓ)&Ó-Y
Ó/fiÓ=N
Ó?”ÓDÓH9ÓH?ÔñÓ
ÍÔ>�ÓòÓflÓÈ
Ó"nÓ)˝Ó*‘Ó.0
Ó8DÓ<wÓBX�ÓDÓGhÔ>Ó
ÍÔÊ
Ó˛ÓflÓ;Ó$Ó,ÇÓ/fi
Ó2cÓ9Ú
Ó<w
Ó>¸ÓE¥ÓE∫ÔÊÓ
ÍÔ
éÓÀÓ˛�Ó¨Ófl
ÓdÓ ¿Ó(OÓ)&Ó),Ô
éÓ
ÍÔ6Ó
Ô6Ó
ÍÔ
fiÓFÓ˛ÓdÓ ∆Ô
fiÓ
ÍÔ	ÜÓ¡ÓòÓ
oÓF
ÓâÔ	ÜÓ
ÍÔ.Ó¡ÓòÓ
oÓFÓÓÙ�Ó¢Óy
Ó˛ÓZÓç
ÓÓ&°Ó+´Ó/fiÓ3:Ó:…Ó>%ÓAÅÓBXÓH?Ô.�������
7����
Íq?Ä[«ÿ����������������������Lisp"pointers";thisisthedefault.-FIXNUM,[orFIXP,orCELL]forentrieswhichareintegersstoredas2'scomplement32-bits[[31-bitsinInterlisp/VAX,36-bitsinInterlisp-10]]-FLONUM,[orFLOATP]entriesareall32-bitIEEEformatfloating-point[[36-bitpdp10formatforInterlisp-10]]Thefollowingtypespecifiersaresub-typesofINTEGERforwhichtheaccessingismuchmoreefficientthanforotherrandomfieldsizes.-(MOD65536)[orDOUBLEBYTE;oradditionally,forInterlisp-Donly,WORDorSMALLPOSP]for16-bitnon-negativeintegers.-(MOD256)[orBYTE,orCHARACTER]for8-bitnon-negativeintegers.-(MOD16)[orNIBBLE]for4-bitnon-negativeintegers.-(MOD2),orBIT,forsingle-bitentries.[[Ingeneral,theCommonLisptypeheirarchyisn'tsupported;thusonlytheexplicitnamesabovewillwork.However,forInterlisp-D,asof28-Sep-83,thetype(MODn)foranyreasonable"n",issupported.]]INITIALELEMENT-ArgumentmustbeaquantityofthetypespecifiedbytheELEMENTTYPEargument,andisusedtoinitalizealltheentriesofthearray.DefaultisNILforpointertype,andzerofornumerictypes.INITIALCONTENTS-Ifthearrayiszero-dimensional,thethisspecifiesitscontents;otherwise,itmustasequencewhoselengthisequaltothefirstdimension,andeachelementthereofmustbeanestedstructureforanarraywhosedimensionsaretheremainingdimensions,andsoon.DISPLACEDTO-Argumentwillbeanarraywhoselinearizeddatasegmentwillbesharedwiththeonebeing"made";seealsotheDISPLACEDOFFSETargumentalso.DISPLACEDINDEXOFFSET-Whenthedatavectorisbeing"shared",thisspecifiestheoffsetfromtheoriginofthedatavectoratwhichthenewarraywillhaveitszero-origin.Theimplementationalconstraints,asspecifiedbythesymbolicconstantsARRAY-RANK-LIMIT,ARRAY-DIMENSION-LIMIT,andARRAY-TOTAL-SIZE-LIMITare:Ranksupto63aresupported;eachindividualdimensionofanarrayisconstrainedonlytobeaFIXP;inInterlisp-D,thetotalstorageforthedatablockofanarraymaynotexceed(2^16-5)*2^5bits,andsinceapointerrequires32bits,thenanarraymaycontainupto2^16-5pointerelements,or2^18-20byteelements;Interlisp/VAXandInterlisp-10mayhaveotherconstraints.[[Thefollowinglimitationsexistasof9-MAY-84:(1)the:FILL-POINTERkeywordargumentisnotimplementedatall;(2)allarraysautomaticallyhavethe:ADJUSTABLEproperty;(3)the"nestedstructures"usedtospecifythe:INITIAL-CONTENTSmaybeeitheranotherarrayofthesamedimensionality,orelsejustlistsoflists.(4)thesymbolicconstantsARRAY-RANK-LIMIT,ARRAY-DIMENSION-LIMIT,andARRAY-TOTAL-SIZE-LIMITarenotactuallyinthecode.Justbeawareoftheselimitsbyreadingthedocumentationpresentedabove.]]Examples:(MAKEARRAY5)-Createaone-dimensionalarrayoffiveelements(MAKEARRAY'(34)'ELEMENTTYPE'(MOD256))--Createatwo-dimensionalarray,3by4,with8-bitelements;(SETQA(MAKEARRAY'(423)'INITIALCONTENTS'(((abc)(123))((def)(312))���Ó
ÍÔc8Ó
ÍÔb6qÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'ÓZ
Ó"nÓ&°
Ó)&Ó,ÇÓ3@Ôb6Ó
ÍÔ`fiÓ¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓ1ÓçÓ!ó
Ó$Ó)&Ó,ÇÓ3:Ó8DÓ;†ÓC/ÓIÓIÔ`fiÓ
ÍÔ_ÜÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'
Ó¨Ó	Ó#EÓ)˝Ó2c
Ó4Ë
ÓAÅÓGhÔ_ÜÓ
ÍÔ^.Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'
Ó¨
Ó"tÔ^.Ó
ÍÔ\÷Ó¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓ1ÓçÓ#EÓ)˝Ó-YÓ0µÓ6ñÓ:…Ó@™Ó@™Ô\÷Ó
ÍÔ[~
Ó≤Ô[~Ó
ÍÔZ&Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó∂Ó ¿Ó&°Ó)˝
Ó5≈ÔZ&Ó
ÍÔXŒÓ¡ÓòÓ
oÓFÓÓÙÓPÓ∂ÓÈ	Ó)&Ó,ÇÓ4Ë
Ó7mÓ>%ÓAÅÓFãÓIÔXŒÓ
ÍÔWvÓ¡ÓòÓ
oÓFÓÓÙÓZ
ÓflÓÓ#EÓ+´Ó/fiÓ3:Ó8DÓ>%ÓC/ÓIÓIÁÓJæÓJƒÔWvÓ
ÍÔVÓ¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓ¨ÓçÓÈ
Ó)˝
Ó,ÇÓ8DÓ;†
ÓE¥ÓIÌÔVÓ
ÍÔT∆Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'ÓZ
Ófl	Ó$Ó'xÓ-YÓ8DÓ?ŸÔT∆Ó
ÍÔSnÓ¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓ¨ÓflÓ;Ó#E
Ó% 	Ó/Ó2cÓ7mÓBXÓIÌÔSnÓ
ÍÔRÓ¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓ¨ÓÓdÓ$Ó'xÓ(OÓ-YÓ8DÓ?ŸÔRÓ
ÍÔPæÓ¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓ¨Ó
ÓçÓ ¿Ó$	Ó-YÓ4ÔPæÓ
ÍÔOfÓ¡ÓòÓ
oÓFÓÓÙÓ'Ó∂Ó	Ó(OÓ,ÇÓ4ËÓ9Ú	ÓC/ÓGbÓGbÔOfÓ
ÍÔNÓLÔNÓ
ÍÔL∂Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢Ó˛ÓçÓ!óÓ&°Ó*‘Ó/fiÓ0µÓ8DÓ;†ÓFã
ÓIÓIÔL∂Ó
ÍÔK^
ÓûÔK^Ó
ÍÔJÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢	ÓflÓ;Ó"nÓ&°
Ó)&Ó,ÇÓ/fi	Ó9Ó=N
Ó?”ÓIÌÔJÓ
ÍÔHÆÓ¡ÓòÓ
oÓF
ÓflÓÂÔHÆÓ
ÍÔGVÓ¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓÓ;
Ó ¿�Ó"nÓ)˝
Ó,ÇÓ/fiÓ4Ó<w
Ó>¸ÓBXÓBXÔGVÓ
ÍÔE˛
Ó˛ÓÔE˛Ó
ÍÔD¶Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ∂Ó
Ó!óÓ% 
Ó(OÓ0µÓ4Ó7mÓ>%
Ó@™ÓDÓIÁÓJæÓJƒÔD¶Ó
ÍÔCNÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ
ÓçÓÈÓ#EÓ)˝Ó/Ó2cÓ6ñÓ9ÚÓ@™ÓE∫ÔCNÓ
ÍÔAˆÓ¡ÓòÓ
oÓFÓ∂ÓºÔAˆÓ
ÍÔ@ûÓ¡ÓòÓ
oÓFÓÓÙ�Ó¢Óy
Ó˛ÓZÓd
ÓÈÓ/Ó2cÓ6ñÓ>¸ÓBXÓIÌÔ@ûÓ
ÍÔ?FÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓP	Óç
ÓÓ#E�Ó$ÛÓ,ÇÓ1åÓ7m
Ó9ÚÓ>¸
ÓAÅÓD›ÓIÔ?FÓ
ÍÔ=ÓÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓP	ÓçÓÈÓ$Ó*‘Ó1åÓ5ø
Ó8D�Ó9ÚÓ?”ÓH9ÓH9Ô=ÓÓ
ÍÔ<ñÓFÓLÔ<ñÓ
ÍÔ;>Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓP
Ó’ÓflÓÈ	Ó)&Ó,ÇÓ/fiÓ8D
ÓBXÓE¥
ÓH9ÓH9Ô;>Ó
ÍÔ9ÊÓ
uÔ9ÊÓ
ÍÔ8éÓ¡ÓòÓ
oÓF
ÓâÔ8éÓ
ÍÔ76Ó¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓÓ;
Ó ¿
Ó#EÓ(OÓ-Y	Ó6ñÓ:…ÓAÅÓE¥
ÓH9ÓH?Ô76Ó
ÍÔ5fiÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ1ÓdÓ ¿Ó$Ó)&Ó/fiÓ0µÓ4Ó8DÓ;†ÓIÓIÔ5fiÓ
ÍÔ4ÜÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓflÓÈÓ ¿Ó!óÓ!ùÔ4ÜÓ
ÍÔ3.Ó¡ÓòÓ
oÓFÓÔ3.Ó
ÍÔ1÷Ó¡ÓòÓ
oÓFÓÓÙ�Ó¢ÓyÓ¨ÓÓ;Ó$
Ó&°Ó+´Ó4Ó8DÓ@™ÓDÓIÁÓIÌÔ1÷Ó
ÍÔ0~Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓÉÓflÓ ¿
Ó#EÓ&°Ó*‘Ó0µ
Ó3:Ó8DÓ;†Ó>¸ÓDÓH9ÓH9Ô0~Ó
ÍÔ/&ÓÓ#Ô/&Ó
ÍÔ-ŒÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ¨Ó ∆Ô-ŒÓ
ÍÔ,vÓ
Ô,vÓ
ÍÔ+ÓFÓçÓ'x
Ó)˝Ó2c
Ó4ËÓ8DÓ?”ÓH9ÓH?Ô+Ó
ÍÔ)∆ÓÓ-YÓ0µÓDÓH9ÓH?Ô)∆Ó
ÍÔ(nÓÙ
Óy
Ó˛
ÓÉÓfl	Ó$Ó(O	Ó1åÓ9Ú
Ó<w
Ó>¸ÓD
ÓFãÓFëÔ(nÓ
ÍÔ'
Ó˛Ó1
Ó∂
Ó;�ÓÈÓ$Û
Ó'xÓ2cÓ5øÓ:…ÓAÅÓD›ÓH9ÓH?Ô'Ó
ÍÔ%æÓÓ'
Ó¨
Ó1Ó;Ó!óÓ$ÛÓ*‘Ó5øÓ:…Ó>%ÓC/�ÓD›ÓD›Ô%æÓ
ÍÔ$fÓ¢Ó®Ô$fÓ
ÍÔ#Óy
Ó˛ÓÓ;
Ó ¿Ó% Ó)&Ó/fi
Ó2c
Ó4ËÓ:…ÓAÅÓIÁÓIÌÔ#Ó
ÍÔ!∂
Ó
oÓ'ÓZÓ ¿Ó,ÇÓ/fiÓ:…Ó>%ÓBXÓGbÓGhÔ!∂Ó
ÍÔ ^ÓÔ ^Ó
ÍÔÓ
ÔÓ
ÍÔÆÓÙÓZ
Ó"nÓ'x
Ó)˝
Ó,ÇÓ4ÔÆÓ
ÍÔVÓ¡ÓÓyÓ;Ó$ÛÓ,Ç
Ó/Ó2c
Ó<w
Ó>¸ÓC/ÓC5ÔVÓ
ÍÔ˛Ó¡ÓÓyÓZÓ$Ó(OÓ+´
Ó5øÓ=TÔ˛Ó
ÍÔ¶Ó¡ÓÓyÓ1
Ó#EÓ'x
Ó)˝Ó0µÓ4ÓC/ÓFã
ÓH?Ô¶Ó
ÍÔNÓ¡ÓòÓ
oÓFÓÓ˛Ó∂Ó ¿
Ó#EÓ&°Ó*‘Ó8D
Ó:…Ó>¸ÓC/ÓH9
ÓIÌÔNÓ
ÍÔˆÓ¡ÓòÓ
oÓFÓÓ-ÔˆÓ
ÍÔûÓ¡ÓÓyÓÓ"nÓ1åÓD›ÓGhÔûÓ
ÍÔFÓ¡ÓòÓ
oÓFÓÓ"nÓ% Ó)&Ó0µ
Ó3:Ó6ñÓ;†Ó<wÓ@™
ÓC/ÓGhÔFÓ
ÍÔÓÓ¡ÓòÓ
oÓFÓ
Ó¢Ó¨Óç
ÓÓ% Ó)&Ó4ËÓ=NÓDÔÓÓ
ÍÔñÓ
ÔñÓ
ÍÔ>ÓÔ>Ó
ÍÔÊÓ¡ÓòÓ
oÓF	ÓÉ
ÓÓfl�ÓçÓdÓ#E�Ó$ÛÓ2cÓ7m
Ó9ÚÓ>%ÓD„ÔÊÓ
ÍÔ
éÓ¡ÓòÓ
oÓF	ÓÉÓfl
ÓdÓ(OÓ-YÓ2cÓ3:
Ó5øÓ;†�Ó=NÓ@∞Ô
éÓ
ÍÔ6Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢
Ó∂Ó!ó�Ó#E
Ó% 
Ó(OÓ,ÇÓ1åÓ9!Ô6Ó
ÍÔ
fiÓ¡ÓòÓ
oÓFÓP�Ó˛	Ó;Ó!ó�Ó#E
Ó% Ó4Ó4Ô
fiÓ
ÍÔ	ÜÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂ÓçÓdÓ;Ó#E�Ó$Û
Ó'x
Ó)˝�Ó+´Ó.6Ô	ÜÓ
ÍÔ.Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂ÓçÓdÓ;ÓÓÈÓ#E�Ó$Û
Ó'x
Ó)˝�Ó+´Ó.6Ô.�������
'����
Íq?Ä[«]��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������((ghi)(231))((jkl)(000)))))(MAKEARRAY'(423)'INITIALCONTENTSA)(SETQB(MAKEARRAY107'ELEMENTTYPE'BIT))(SETQC(MAKEARRAY8'ELEMENTTYPE'BYTE'DISPLACEDTOA'DISPLACEDINDEXOFFSET51)ThusBandCsharetheirdataportion;thesecondelementofC,withindex1,isthebyteobtainedbyconcateningthebitswithindices67through74ofB.NotethatelementtypespecificationofBYTEisequivalenttothatinthefirstexampleof(MOD256).Compatibililtynote:Formulti-dimensionarrays,bothLispMachineLispandFORTRANstoreincolumn-majororder;MacLispstoresarraysinrow-majororder.A"row"isthecollectionofallelementsobtainedbyholdingallbutthelastindexconstant,andcyclingthroughthatindexinorderfrom0toitslimit.[Thispackagegenerallystoresinrow-majororder,buttheremaybeocasional"gaps"intheindex-sequencingiftheALIGNMENToptionsisused.Seebelowforadescriptionofthenon-CommonLispoptionALIGNMENT.]AccessingandChangingtheElementsofanArrayThemainprimitivetoaccesstheelementsofanarrayiscalledAREF(for"ArrayREFerenceofelement").(AREF<array>...{subscripts}...)Thisreturnstheelementof<array>specifiedbythesubscripts(whicharealltheremainingargumentsafter<array>),andeachsubscriptmustbeanon-negativeintegerlessthanthecorrespondingarraydimension.[ThemainprimitivetochangethecontentsofanarrayiscalledASET(for"ArraySETvalueofelement"),modeledaftertheMITLispMachinename.Ultimately,ASETwilloperatesoastotranslateintothesamecodethatSETFwouldhaveproducedthusInterlispusersneednotfearthatsuchcodewon'trunona"by-the-book"CommonLispimplementation.(ASET<newvalue><array>...{subscripts}...)Changesthecontentsoftheelementof<array>accessedby(AREF<array>...{subscripts}...)tobe<newvalue>.][[CommonLispdoesnotrequireseparatenamesfortheupdatefunctions;updatingmayalwaysbespecifiedbytheSETFconstruct,whichtakesanaccessexpressionanda"newvalue"muchthewayInterlisp'sCHANGEdoes.Asof28-Sep-83,thereisnochangetranentryforAREF,butitisexpectedtobeaddedsomeday.]]InformationalFunctions(ARRAYELEMENTTYPE<array>)Returnsatypespecifierforthesetofobjectsthatcanbestoredin<array>.Thissetmaybelargerthanthesetrequestedwhen<array>wascreated;thatis,(ARRAYELEMENTTYPE(MAKEARRAY5'ELEMENTTYPE'(MOD8)))couldbe(MOD8),orBYTE,or(MOD256),etc.,orevenPOINTER.[[asof28-Sep-83,onlythetypesenumeratedaboveunderMAKEARRAYaresupported;thereisno"coercionupwards"inordertofindatype-specifierwhichcouldholdtheelementsofsomenon-enumeratedtype.RememberalsothattheInterlisp-Dversionsupports(MODn)forallintegraln.]](ARRAYRANK<array>)Returnsthenumberofdimensions(axes)of<array>;toparalleltheindexingrange,thisisazero-originnumberandthuswillbeanon-negative���Ó
ÍÔc8Ó
ÍÔb6qÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂ÓçÓdÓ;ÓÓÈÓ#E�Ó$Û
Ó'x
Ó)˝�Ó+´Ó.6Ôb6Ó
ÍÔ`fiÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂ÓçÓdÓ;ÓÓÈÓ#E�Ó$Û
Ó'x
Ó)˝�Ó+´Ó0ªÔ`fiÓ
ÍÔ_ÜÓ¡ÓòÓ
oÓF	ÓÉÓfl�Óç
ÓÓ-Y
Ó/
Ô_ÜÓ
ÍÔ^.Ó¡ÓòÓ
oÓFÓP�Ó˛	Ó;Ó!óÓ,ÇÓ2cÓ3:Ó3@Ô^.Ó
ÍÔ\÷Ó¡ÓòÓ
oÓFÓP�Ó˛	Ó;ÓÓÈ�Ó!óÓ,ÇÓ1åÓ1íÔ\÷Ó
ÍÔ[~Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂ÓçÓdÓ;ÓÓÈÓ ¿Ó!óÓ,ÇÓ-Y�Ó/Ó/
Ô[~Ó
ÍÔZ&Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂ÓçÓdÓ;ÓÓÈÓ ¿Ó!óÓ4Ó6úÔZ&Ó
ÍÔXŒÓ¡ÓòÓ
oÓFÓy�Ó'ÓÉ�Ó1Ó;Ó#EÓ'xÓ/Ó2cÓ8DÓ>¸
ÓAÅ
ÓDÓH9ÓH?ÔXŒÓ
ÍÔWvÓ¡ÓòÓ
oÓFÓÓÙÓ˛
ÓÉ
ÓÓdÓ!óÓ)&
Ó+´
Ó5øÓ9Ó=NÓAÅÓH9
ÓJæÓJƒÔWvÓ
ÍÔVÓ¡ÓòÓ
oÓFÓÓÙÓ¨
Ó1
Ó∂
Ó;ÓÓÈÓ$Ó(OÓ/Ó3:Ó>¸
ÓAÅÓE¥
ÓH9ÓH?ÔVÓ
ÍÔT∆Ó¡ÓòÓ
oÓFÓÓÙ	Ó1
Ó∂ÓÈ
Ó"nÓ% Ó*‘Ó1å
Ó4Ó8DÓ=NÓ>%Ó>+ÔT∆Ó
ÍÔSnÓ
ÔSnÓ
ÍÔR
ÓÉÓçÓÈÓ-YÓ4Ó8DÓE¥ÓIÓIÔRÓ
ÍÔPæÓ¢Ó¨
Ó1Ó$Ó)˝Ó0µÓ6ñÓ<w
Ó>¸ÓGbÓGbÔPæÓ
ÍÔOfÓ˙ÔOfÓ
ÍÔN�ÓòÓ¢
Ó'ÓÉ	Ó ¿
Ó#EÓ&°Ó.0Ó5ø
Ó8DÓ>¸ÓBXÓE¥ÓH?ÔNÓ
ÍÔL∂ÓÓ'ÓçÓÈÓ&°Ó-YÓ1åÓ6ñ
Ó9Ó>%ÓBX�ÓD
ÓFãÓIÔL∂Ó
ÍÔK^ÓÀÓ¢Ó¨ÓdÓ% Ó+´
Ó.0Ó6ñÓ<wÓ?”ÓD›ÓH9
ÓJæÓJƒÔK^Ó
ÍÔJÓPÓ1
Ó∂ÓÓ-Y
Ó/fiÓ3:Ó;†ÓBX
ÓD›ÓIÔJÓ
ÍÔHÆÓFÓPÓ¨�ÓZ
Ó"n
Ó$ÛÓ(O
Ó4ËÓ:…
ÓDÔHÆÓ
ÍÔGVÓ
ÔGVÓ
ÍÔE˛Ó
ÔE˛Ó
ÍÔD¶Ó
ÔD¶Ó
ÍÔCNÓ
ÔCNÓ
ÍÔAˆÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÓ"nÓ)˝Ó-YÓ4Ë
Ó7m
Ó9ÚÓ>+ÔAˆÓ
ÍÔ@ûÓ
Ô@ûÓ
ÍÔ?FÓFÓyÓfl
ÓdÓ#EÓ&°Ó.0
Ó0µ
Ó3:Ó8D
Ó:…Ó@™ÓDÔ?FÓ
ÍÔ=ÓÓÓ˛Ód
ÓÈ	Ó(UÔ=ÓÓ
ÍÔ<ñÓ
Ô<ñÓ
ÍÔ;>ÓÙÓ¨ÓÓ$ÛÓ(O�Ó),Ô;>Ó
ÍÔ9ÊÓ¡ÓòÓ
oÓFÓyÓ1ÓçÓ#E
Ó% Ó,ÇÓ4Ë
Ó7mÓ:…	ÓDÓIÁÓIÌÔ9ÊÓ
ÍÔ8éÓFÓ¢Ó˛ÓdÓ% Ó*‘Ó3:Ó6ñÓ:…ÓC/ÓGb
ÓIÁÓIÌÔ8éÓ
ÍÔ76�ÓòÓÉÓ;Ó"nÓ&°Ó)˝Ó5øÓ:…	ÓC5Ô76Ó
ÍÔ5fiÓ
Ô5fiÓ
ÍÔ4ÜÓÓPÓ∂
Ó;Ó$Ó'xÓ/
Ó1å
Ó4Ó9
Ó;†ÓAÅÓE¥ÓFãÓIÌÔ4ÜÓ
ÍÔ3.Ó¡Ó¢Ó˛Ó
Óç	Ó% Ó,ÇÓ1åÓ4ËÓ8DÓ<wÓC/ÓGhÔ3.Ó
ÍÔ1÷Ó¡
Ó’ÓÓ;Ó$Û
Ó'x
Ó)˝
Ó,ÇÓ4ËÓ9Ó<wÓ@™ÓD›ÓH?Ô1÷Ó
ÍÔ0~Ó¡ÓÙÓ˛Ó1Ó ¿Ó$ÛÓ-YÓ2cÓ6ñÓ9ÚÓ>%ÓBXÓFãÓJæÓJƒÔ0~Ó
ÍÔ/&Ó¡ÓÀÓ'
Ó¨�ÓZÓ$	Ó-YÓ9¯Ô/&Ó
ÍÔ-ŒÓ¡ÓòÓ
oÓFÓP	ÓçÓ#EÓ&°Ó1åÓ4Ë�Ó5≈Ô-ŒÓ
ÍÔ,vÓ¡ÓyÓ’Ód
ÓÈÓ#EÓ)˝
Ó,ÇÓ3:Ó:…
Ó=NÓ=TÔ,vÓ
ÍÔ+Ó¡ÓòÓ
oÓFÓPÓÓdÓ(OÓ+´�Ó,àÔ+Ó
ÍÔ)∆Ó¡
ÓF
ÓÀÓÂÔ)∆Ó
ÍÔ(nÓ
Ô(nÓ
ÍÔ'Ó’ÓÓdÓ$Ó+´Ó0µÓ4Ó7mÓ=N	ÓFãÓFëÔ'Ó
ÍÔ%æÓyÓ’Ó∂
Ó;Ó&°
Ó)&Ó,ÇÓ0µ	Ó9ÚÓ>¸ÓD
ÓFãÓFëÔ%æÓ
ÍÔ$fÓÀ	ÓÓd�ÓÓ#EÓ)&Ó-YÓ0µÓ4
Ó>%ÓDÓH?Ô$fÓ
ÍÔ#
Ó
o
ÓÙ	Ó1Ó;
Ó ¿
Ó#E	Ó,ÇÓ1åÓ4ËÓ9ÚÓ=N
Ó?”
ÓBXÓIÔ#Ó
ÍÔ!∂
Ó
o
ÓÙÓ˛	ÓjÔ!∂Ó
ÍÔ ^Ó
Ô ^Ó
ÍÔÓ
ÔÓ
ÍÔÆÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó¨ÓÉÓZÓ1ÓÓflÓ∂Ó'xÓ/
ÔÆÓ
ÍÔVÓ
ÔVÓ
ÍÔ˛ÓÓ ∆Ô˛Ó
ÍÔ¶Ó¡ÓòÓ
oÓFÓ˛�Ó¨ÓflÓ#EÓ&°Ó)˝Ó-Y
Ó/fiÓ6ñÓ:…Ó>%
Ó@™ÓFã
ÓIÓIÔ¶Ó
ÍÔNÓyÓPÓÉÓflÓ;
Ó ¿Ó&°Ó*‘Ó.0Ó1åÓ9ÚÓ>%ÓD›ÓH9ÓH?ÔNÓ
ÍÔˆÓyÓ¨ÓÓÔˆÓ
ÍÔûÓ¡ÓòÓ
oÓFÓd	Ó&°�Ó(OÓ3:Ó8DÓ;¶ÔûÓ
ÍÔFÓÙ
ÓyÓ¨Ó
ÓçÓ!ó
Ó$Ó(OÓ-YÓ2c
Ó4ËÓ9Ó?ŸÔFÓ
ÍÔÓÓ
Ó¢	ÓflÓÓ"nÓ'x	Ó0µÓ5øÓ:…ÓC/ÓFãÓFëÔÓÓ
ÍÔñ	Ó'Ó1
Ó∂
Ó;Ó&°Ó.0
Ó0µÓ5ø
Ó8DÓ<w�Ó>%
ÓJæÓJƒÔñÓ
ÍÔ>ÓÙÓ˛Ó1ÓçÓ$
Ó&°Ó*‘
Ó7mÓ<wÓ=NÓD›ÓH?Ô>Ó
ÍÔÊÓÓy
ÓçÓ#EÓ*‘Ó/
Ó1åÓ4ËÓ8DÓ?”ÓC5ÔÊÓ
ÍÔ
éÓ
Ô
éÓ
ÍÔ6	Ó'ÓÂÔ6Ó
ÍÔ
fiÓ¡ÓòÓ
oÓFÓ˛ÓZÓ;
Ó ¿	Ó)˝Ó/fi
Ó2cÓ9Ú
Ó<wÓDÓFëÔ
fiÓ
ÍÔ	ÜÓyÓZÓç
Ó�Ó ¿
Ó*‘Ó0µÓ4Ó8DÓ<w
Ó>¸�Ó@™Ó@™Ô	ÜÓ
ÍÔ.Ó’Ó€Ô.�������	Õ����
Íq?Ä[«á��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������integer.(ARRAYDIMENSION<array><axis-number>)Returnsthelengthofdimensionnumber<axis-number>of<array>[whichmaybeanykindofarray,i.e.,anyinstanceofthe\CMLARRAYdatatype];<axis-number>shouldbeanon-negativeintegerlessthantherankof<array>.(ARRAYDIMENSIONS<array><optionslst>)Returnsalistwhoseelementsarethedimensionsof<array>.[Thesecondargument,<optionslst>,isnotaCommonLispargument--itisprovidedinInterlispsothatonemayspecifytheNOCOPYoption.Defaultactionistoreturnacopyoftheinternaldimensionslist.](ARRAYTOTALSIZE<array><in-bits-p>)Returnsthetotalnumberofelementsin<array>,calculatedastheproductofallthedimensions.Roughlyequivalentto(APPLY'TIMES(ARRAYDIMENSIONS<array>))Notethatthetotalsizeofazero-dimensionalarrayis1.[Thesecondargument,<in-bits-p>,isnotaCommonLispargument--itisprovidedinInterlispinordertofindouthowmuchspaceisactuallyoccupiedbythearray,includinganygapscausedbytheALIGNMENToption.](ARRAYINBOUNDSP<array>...{subscripts}...)Thispredicatecheckswhetherthesubscriptsarealllegalsubscriptsfor<array>andistrueiftheyare;otherwiseitisfalse.Thesubscriptsmustbeintegers.Thenumberofsubscriptssuppliedmustequaltherankofthearray.E.g.,ifHAisathree-dimensionalarray,then(ARRAYINBOUNDSPHA42562)makesthechecksuchthat(AREFHA42562)willnotcauseanillegalsubscripterror.(ARRAYROWMAJORINDEX<array>...{subscripts}...)Thisfunctiontakesanarrayandvalidsubscriptsforthearray,andreturnsasinglenon-negativeintegerlessthanthetotalsizeofthearraythatidentifiestheaccessedelementintherow-majororderingoftheelements.Thenumberofsubscriptssuppliedmustequaltherankofthearry.Eachsubscriptmustbeanon-negativeintegerlessthanthecorrespondingarraydimension.Foraone-dimensionalarray,theresultofthisfunctionalwaysequalsthesuppliedsubscript.[However,iftheALIGNMENToptionisusedforamulti-dimensionalarrayinInterlisp-D,thenthemaximumlinearizedindexwillexceedthevaluereturnedbyARRAYTOTALSIZE.Insuchacase,thevaluereturnedby(ARRAYTOTALSIZE<array>T)willbethefieldsizeperelementtimesoneplusthemaximumlinearizedindex.Thequantity(fetch(CMLARRAYCMLIMAX)of<array>)willalwaysbethismaximumlinearizedindex.]ChangingtheDimensionsofanArray(ADJUSTARRAY<array><dimensionslst>)Takesanarray,andalistofdimensionsjustaswithMAKEARRAY;thenumberofdimensionsspecifiedby<dimensionslst>mustequaltherankof<array>.Returns<array>,whosecomponentshavebeenupdatedtoconformtothenewspecifications(butifthenewdimensionsrequiremorespaceintheblockdataarea,thiswillcauseacopyingintoanewlyallocatedblock,and<array>willbeDISPLACEDTOtothisnewblock.)[[NoneofthekeywordoptionsmentionedintheCommonLispmanualaresupported���Ó
ÍÔc8Ó
ÍÔb6qÓ®Ôb6Ó
ÍÔ`fiÓ
Ô`fiÓ
ÍÔ_ÜÓZÓ
Ó*⁄Ô_ÜÓ
ÍÔ^.Ó¡ÓòÓ
oÓFÓ˛ÓZÓ;
Ó ¿Ó)&Ó/Ó:…
Ó=NÓDÓIÔ^.Ó
ÍÔ\÷ÓF
ÓÀÓ'ÓZ
ÓflÓ ¿Ó% Ó)&Ó0µ
Ó3:Ó6ñÓ>¸	ÓGhÔ\÷Ó
ÍÔ[~Ó¨Óç
Ó�Ó ¿Ó+´Ó2cÓ6ñÓ:…Ó>%ÓBX
ÓD›ÓD›Ô[~Ó
ÍÔZ&ÓyÓÔZ&Ó
ÍÔXŒÓ
ÔXŒÓ
ÍÔWvÓ1ÓÈÓ*⁄ÔWvÓ
ÍÔVÓ¡ÓòÓ
oÓFÓ˛�Ó¨ÓflÓÈÓ'xÓ*‘Ó.0	Ó7m
Ó9ÚÓAÅÓBXÓC/ÓFëÔVÓ
ÍÔT∆ÓÀÓ1Ó$Û
Ó'xÓ*‘�Ó,Ç	Ó5øÓ=N
Ó?”
ÓBX
ÓD›ÓD›ÔT∆Ó
ÍÔSnÓyÓÔSnÓ
ÍÔR
Ó
oÓ’
ÓZÓçÓÈÓ#EÓ)˝Ó-YÓ3:Ó9ÚÓ:…ÓAÅÓGb
ÓIÁÓIÌÔRÓ
ÍÔPæ
Ó
oÓP�Ó˛Ó1
Ó∂ÓÓ&°	Ó/fiÓ4ÓÔPæÓ
ÍÔOfÓ
ÔOfÓ
ÍÔNÓZÓÓ),ÔNÓ
ÍÔL∂Ó¡ÓòÓ
oÓFÓ˛ÓZÓdÓ#E
Ó% Ó-Y
Ó/fiÓ7m	Ó@™
ÓC/ÓFãÓFãÔL∂Ó
ÍÔK^Ó—ÔK^Ó
ÍÔJ
Ó
oÓÀÓ'
Ó;ÓÓ% 	Ó/
Ó1åÓ1íÔJÓ
ÍÔHÆÓ¡ÓòÓ
oÓFÓ'ÓÓ(OÓ/‰ÔHÆÓ
ÍÔGVÓÓPÓ¨Ó∂ÓÈ
Ó"n�Ó$Ó2cÓ7m
Ó9Ú
Ó<wÓ=NÓAÅÓGbÓGhÔGVÓ
ÍÔE˛ÓPÓ;
Ó ¿Ó$�Ó% 	Ó/Ó6ñ
Ó9
Ó;†
Ó>%ÓE¥
ÓGhÔE˛Ó
ÍÔD¶ÓP
Ó’Ófl
ÓdÓ!óÓ$ÛÓ(OÓ,ÇÓ1å
Ó4Ó;†ÓC/
ÓE¥ÓH?ÔD¶Ó
ÍÔCNÓÀÓ1ÓçÓ ¿Ó&°
Ó)&Ó,ÇÓ4ËÓ;¶ÔCNÓ
ÍÔAˆÓ
ÔAˆÓ
ÍÔ@ûÓZÓÓ"nÓ-YÓ0µ�Ó1íÔ@ûÓ
ÍÔ?FÓ¡ÓòÓ
oÓFÓyÓflÓ ¿Ó'xÓ*‘	Ó4Ó7mÓ:…Ó?”	ÓIÓIÔ?FÓ
ÍÔ=ÓÓFÓ˛ÓZ
ÓflÓ
Ó!óÓ% Ó)˝Ó*‘Ó3:
Ó5ø
Ó8DÓ>%Ó>¸ÓBXÓBXÔ=ÓÓ
ÍÔ<ñ	Ó'Ó-Ô<ñÓ
ÍÔ;>Ó
Ó¢ÓÓflÓ;Ó$
Ó&°	Ó/fiÓ7mÓ;†Ó@™ÓDÓH9
ÓJæÓJƒÔ;>Ó
ÍÔ9ÊÓFÓ'Ó˛Ó’Ófl
Ód
ÓÈ
Ó"n�Ó$Ó3:Ó9Ó=NÓ=TÔ9ÊÓ
ÍÔ8éÓ¡ÓòÓ
oÓFÓ∂
Ó;�ÓÈ
Ó"nÓ% Ó%–Ô8éÓ
ÍÔ76ÓÙÓPÓZÓçÓ ¿Ó% 
Ó(O�Ó)˝
Ó,ÇÓ/fiÓ4Ó7mÓ<w
Ó>¸ÓE¥ÓE∫Ô76Ó
ÍÔ5fiÓPÓ`Ô5fiÓ
ÍÔ4ÜÓ
Ô4ÜÓ
ÍÔ3.Ó∂Ó"nÓ% Ó0µÓ4�Ó4ÓÔ3.Ó
ÍÔ1÷Ó¡ÓòÓ
oÓFÓyÓÓ
Ó!óÓ&°Ó)˝Ó/	Ó8DÓ;†Ó>¸ÓD›ÓGhÔ1÷Ó
ÍÔ0~Ó¢�ÓPÓ1Ó$Ó*‘Ó/Ó3:Ó6ñÓ;†Ó?”
ÓBXÓE¥ÓJæÓJƒÔ0~Ó
ÍÔ/&Ó	ÓZÓ∂Ó#EÓ)˝
Ó,ÇÓ/fiÓ8DÓ?”
ÓBXÓE¥ÓE¥Ô/&Ó
ÍÔ-ŒÓÔ-ŒÓ
ÍÔ,vÓFÓ'
Ó¨	ÓÈÓ'xÓ+´Ó0µÓ4Ó8D
Ó:…Ó>%ÓC/ÓDÓGhÔ,vÓ
ÍÔ+ÓPÓÉ
Ó�Ó∂Ó&°Ó-YÓ1åÓ5øÓ9ÓD›ÓIÔ+Ó
ÍÔ)∆	Ó'Ó˛ÓZ�ÓÓ'xÓ-YÓ0µÓ6ñ
Ó9Ó=NÓD›ÓIÌÔ)∆Ó
ÍÔ(nÓÀÓ'Ó∂	Ó$ÛÓ% Ó.0
Ó0µÓ4Ó<wÓBX
ÓD›ÓIÓIÔ(nÓ
ÍÔ'Ó
uÔ'Ó
ÍÔ%æ�ÓòÓ∂Ó ¿
Ó#EÓ.0Ó2cÓ5øÓ<w	ÓE¥ÓJæÓJƒÔ%æÓ
ÍÔ$fÓÓ˛ÓZÓdÓ$Û
Ó'xÓ4ËÓ5ø
Ó8DÓ<w�Ó>%ÓC/ÓFãÓFãÔ$fÓ
ÍÔ#Ó#Ô#Ó
ÍÔ!∂Óy
Ó˛Ó"nÓ)&
Ó+´Ó/fi
Ó2cÓ5øÓ:…Ó>¸ÓBXÓH?Ô!∂Ó
ÍÔ ^ÓÙÓPÓÉÓflÓ!ó	Ó*‘Ó0µÓ1åÓ2cÓ5øÓ<}Ô ^Ó
ÍÔÓ¡ÓòÓ
oÓFÓ'ÓçÓ$
Ó&°Ó-_ÔÓ
ÍÔÆÓÓ˛
ÓÉÓ∂Ó"n	Ó+´Ó2cÓ3:Ó3@ÔÆÓ
ÍÔVÓ
ÔVÓ
ÍÔ˛Ó
Ô˛Ó
ÍÔ¶Ó
Ô¶Ó
ÍÔNÓ
ÔNÓ
ÍÔˆÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓflÓ;	Ó'x
Ó)˝
Ó,ÇÓ0ªÔˆÓ
ÍÔûÓ
ÔûÓ
ÍÔFÓ’ÓçÓ*ÔFÓ
ÍÔÓÓ¡ÓòÓ
oÓFÓP
Ó’Ó∂Ó�Ó ¿Ó$Û
Ó'x	Ó0µÓ4Ë
Ó7mÓ;†	ÓD›ÓGhÔÓÓ
ÍÔñÓÀ
ÓP	ÓçÓ$Û
Ó'xÓ4ËÓ9Ó>%ÓAÅÓE¥
ÓGhÔñÓ
ÍÔ>ÓyÓPÓÓ!óÓ&°	Ó/fiÓ4Ó8DÓ>¸
ÓAÅÓGhÔ>Ó
ÍÔÊ
Ó
oÓÀÓ'
Ó ¿Ó$Û
Ó'xÓ*‘Ó.0	Ó7mÓ>%ÓBXÓGb
ÓIÔÊÓ
ÍÔ
éÓFÓPÓÉÓçÓdÓ!óÓ% Ó*‘�Ó,ÇÓ3:Ó7m�Ó9Ó>%ÓFãÓFãÔ
éÓ
ÍÔ6Ó˙Ô6Ó
ÍÔ
fiÓFÓ˛Ó1
Ó∂
Ó% 
Ó(OÓ,ÇÓ/fiÓ5≈Ô
fiÓ
ÍÔ	ÜÓÀ
ÓPÓ¨ÓdÓ$Ó,Ç
Ó/Ó2c	Ó;†ÓAÅÓD›ÓD›Ô	ÜÓ
ÍÔ.ÓÔ.ˇ�������	Á����
Íq?Ä[«á������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������asof28-Sep-83.]]ExtensionstotheInterlispCommonLispArrayFunctionsAlthoughthefollowingfacilitiesaren'tspecifiedbythe"ExcelsiorEdition",theymaybequiteusefulinInterlisp-Dsystemsprogramming:*)Filepkgcom:CMLARRAYSissimilartotheBITMAPScom--namely(CMLARRAYS<var1><var2><var3>...)willsaveandrestorethevalueofeachglobalvariable<vari>,assumingitholdsaCMLARRAY.*)AdditionalELEMENTTYPEvaluesforMAKEARRAY:-XPOINTERislikePOINTER,exceptthattheentriesaren'treferencecountedforthegarbagecollector;beware,beware!-DISPLACEDTOBASEislikeDISPLACEDTOexceptitsvalueisjustarandompointer/address,ratherthananotherCMLARRAY.Thisway,onecanusetheCommonLisparrayfunctionstoaccesspartsofInterlisp-D'smemorysuchasthescreenbitmap.-ALIGNMENTisformulti-dimensionalarrays;eachrowmayberequiredtobeginamultipleofsomeinteger,withnullsorzerosfillinganyspacebetween"rows".Forexample,itmightbethatabitmaparraymusthavetherasterscansbeginningonawordboundary;sincethereare16bits/word,thenanalignmentof16wouldbeused.*)FunctionsInterfaceingtoLISTPs:(LISTARRAY<array><startindex><endindex>)Thesecondandthirdargumentsareoptional,andhavemeaningsimilartothecorrespondingargumentstoSUBSTRING,butnegativeindiciesaren'tallowed.Elementsareselectedfromthe<array>inrow-majororder,andCONS'supintoalist.(FILLARRAY<array><list><startindex><endindex>)SimilartoLISTARRAY,exceptthattheelementsofthe<list>arestoredintothecorrespondingpartsofthe<array>.Asaconvenience,if<list>isn'taLISTP,thenitisconvertedinto(LIST<list>);furthermore,iftherearen'tenoughelementsin<list>tofillouttherangespecifiedby<startindex>and<no.of.elements>,thenthelastelementof<list>isrepeateduntilfinished.Thus,forexample,onecouldfillanarraywithasinglevaluebyaconstructlike(FILLARRAYSOMEARRAY(LISTTHISVAL))*)"Fast"accessingfunctions:(PAREF<array>...{subscripts}...)(NAREF<array>...{subscripts}...)(LAREF<array>...{subscripts}...)(16AREF<array>...{subscripts}...)(8AREF<array>...{subscripts}...)(4AREF<array>...{subscripts}...)(1AREF<array>...{subscripts}...)TheseareessentiallythesameasAREF,buthaveaconsequencethat,forPAREF,<array>mustbeaPOINTERorTarray;andcorrespondingly,forNAREFaFIXNUMarray,forLAREFaFLONUMarray,for16AREFaDOUBLEBYTEor(MOD65536)array,for8AREFaBYTEor(MOD256)��Ó
ÍÔc8Ó
ÍÔb6q
Ó
o
ÓÙÓÔb6Ó
ÍÔ`fiÓ
Ô`fiÓ
ÍÔ_ÜÓ
Ô_ÜÓ
ÍÔ^.Ó
Ô^.Ó
ÍÔ\÷Ó¡ÓòÓ
oÓFÓÓÙ	Ó1
Ó∂ÓÓ'x	Ó0µÓ5øÓ=TÔ\÷Ó
ÍÔ[~Ó
Ô[~Ó
ÍÔZ&ÓyÓ’Ó;	Ó'xÓ-YÓ5ø
Ó8DÓ;†	ÓD›ÓD›ÔZ&Ó
ÍÔXŒÓÔXŒÓ
ÍÔWvÓÓy
Ó˛ÓÓÈ
Ó"n
Ó,ÇÓ3:Ó=TÔWvÓ
ÍÔVÓ
ÔVÓ
ÍÔT∆Ó¡
ÓFÓ˛Ó1ÓÓ"nÓ#E
Ó% Ó,Ç
Ó/Ó2cÓ9Ó<w
Ó>¸ÓDÔT∆Ó
ÍÔSnÓ¡ÓòÓ
oÓFÓÓÙ	Ó1ÓÓ$ÛÓ*‘�Ó,Ç�Ó.0�Ó/fi�Ó0ªÔSnÓ
ÍÔRÓ¡ÓòÓ
oÓFÓyÓ¨ÓÓ ¿Ó$Ó)&
Ó+´Ó/fiÓ5øÓ=NÓDÓDÔRÓ
ÍÔPæÓ®ÔPæÓ
ÍÔOfÓ¡ÓòÓ
oÓF
ÓÀÓ’�ÓÉÓÔOfÓ
ÍÔNÓ
ÔNÓ
ÍÔL∂Ó¡
ÓF	ÓÉ
Ó!óÓ'xÓ*‘	Ó3@ÔL∂Ó
ÍÔK^Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢�ÓPÓ'Ó∂
Ó;Ó"nÓ)˝Ó/fiÓ4Ó7mÓ>%ÓDÓDÔK^Ó
ÍÔJÓÔJÓ
ÍÔHÆÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’ÓçÓÈÓ#EÓ)˝	Ó3:Ó4Ó:…Ó@∞ÔHÆÓ
ÍÔGVÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢�ÓPÓ'Ó!ó
Ó$Ó(O
Ó2cÓ8DÓ;†Ó@™
ÓB^ÔGVÓ
ÍÔE˛Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó�Ó∂Ó!óÓ/fiÓ5øÓ9ÚÓ@™ÓH?ÔE˛Ó
ÍÔD¶Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’ÓÓ;Ó!óÓ$ÛÓ(OÓ+´	Ó4ËÓ9ÚÓBX
ÓD›ÓIÌÔD¶Ó
ÍÔCNÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ófl
ÓdÓ)&Ó/Ó3:
Ó5øÓ9Ó>¸ÓD„ÔCNÓ
ÍÔAˆÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢�ÓPÓ'Óç
ÓÓ"nÓ1åÓ8DÓ9Ó=NÓ@™ÓD
ÓFãÓFëÔAˆÓ
ÍÔ@ûÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ód
ÓÈÓ$Û�Ó&°Ó.0
Ó0µÓ4ËÓ<wÓ@™ÓE¥
ÓH9ÓH9Ô@ûÓ
ÍÔ?FÓ#Ô?FÓ
ÍÔ=ÓÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’ÓçÓÈÓ$ÛÓ+´Ó2cÓ3:Ó6ñÓ>%
Ó@™ÓE¥
ÓH9ÓH9Ô=ÓÓ
ÍÔ<ñÓÓ#Ô<ñÓ
ÍÔ;>Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’�ÓÉÓdÓ"nÓ&°Ó*‘Ó.0Ó4Ó9ÓAÅ
ÓD�ÓE¥ÓIÔ;>Ó
ÍÔ9ÊÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ó;ÓÓ$Ó)&Ó,Ç
Ó/	Ó8DÓ<w
Ó>¸ÓGb
ÓIÁÓIÁÔ9ÊÓ
ÍÔ8é
ÓûÔ8éÓ
ÍÔ76Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛Ó’Ófl
ÓdÓ!ùÔ76Ó
ÍÔ5fiÓ
Ô5fiÓ
ÍÔ4ÜÓ¡
ÓFÓ¨Ó!ó
Ó$Ó*Ô4ÜÓ
ÍÔ3.Ó¡ÓòÓ
oÓFÓÓÙ	Ó1ÓÈÓ*‘
Ó4Ô3.Ó
ÍÔ1÷Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢Ó˛ÓflÓ;Ó#EÓ+´Ó/Ó7mÓ:…Ó>¸ÓE¥ÓE¥Ô1÷Ó
ÍÔ0~Ó¢Ó®Ô0~Ó
ÍÔ/&Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢
Ó'ÓÉÓ#EÓ+´
Ó.0	Ó7mÓ:…ÓBXÓIÔ/&Ó
ÍÔ-ŒÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓÉÓÓÈÓ'xÓ*‘Ó2cÓ6ñÓ9ÚÓ@™
ÓC/ÓC/Ô-ŒÓ
ÍÔ,vÓÔ,vÓ
ÍÔ+Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓÉÓflÓ ¿
Ó#EÓ'x�Ó)&Ó-_Ô+Ó
ÍÔ)∆Ó¡ÓòÓ
oÓFÓÓÙ	Ó1ÓÈÓ% Ó0µ
Ó9¯Ô)∆Ó
ÍÔ(nÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓZ
Ófl	Ó$Ó)˝Ó.0Ó1åÓ9
Ó;†Ó>¸ÓD›ÓH9ÓH?Ô(nÓ
ÍÔ'Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓÉÓ∂ÓÓ*‘Ó/fi
Ó2cÓ5øÓ=NÓ>%
Ó@™�ÓBXÓBXÔ'Ó
ÍÔ%æÓÔ%æÓ
ÍÔ$fÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢
Ó'ÓÓ�Ó ¿Ó&°Ó*‘
Ó-Y
Ó/fiÓ8DÓ<wÓAÅÓIÓIÔ$fÓ
ÍÔ#Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢Óç
ÓÓ$Ó)˝Ó/fiÓ7m
Ó9ÚÓ?”
ÓBXÓFãÓIÁÓIÁÔ#Ó
ÍÔ!∂Ó
uÔ!∂Ó
ÍÔ ^Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢Ó¨Ó
Ó!óÓ,ÇÓ/fiÓ>¸ÓC/ÓFãÓJæÓJƒÔ ^Ó
ÍÔÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓZ
ÓflÓ ¿
Ó#EÓ*‘Ó/fiÓ8DÓ9Ó>%ÓAÅÓIÓIÔÓ
ÍÔÆÓFÓLÔÆÓ
ÍÔVÓ¡ÓòÓ
oÓFÓÓÙÓÀÓ¢Ó¨Ófl
ÓdÓ"nÓ&°�Ó(OÓ.0Ó3:
Ó5ø�Ó7mÓ?”ÓDÓDÔVÓ
ÍÔ˛Ó¡ÓòÓ
oÓFÓÓÙÓÀÓ¢ÓyÓPÓ'Ó˛	Ó;Ó&°Ó+´Ó3@Ô˛Ó
ÍÔ¶Ó
Ô¶Ó
ÍÔNÓ¡
ÓFÓ'Óç	Ó$˘ÔNÓ
ÍÔˆÓ¡ÓòÓ
oÓFÓ'Ó˛Ó∂ÓÓ)˝Ó-Y�Ó.6ÔˆÓ
ÍÔûÓ¡ÓòÓ
oÓFÓ'Ó˛Ó∂ÓÓ)˝Ó-Y�Ó.6ÔûÓ
ÍÔFÓ¡ÓòÓ
oÓFÓ'Ó˛Ó∂ÓÓ)˝Ó-Y�Ó.6ÔFÓ
ÍÔÓÓ¡ÓòÓ
oÓFÓ˛Ó∂ÓÓ)˝Ó-Y�Ó.6ÔÓÓ
ÍÔñÓ¡ÓòÓ
oÓFÓ'Ó˛Ó∂ÓÓ)˝Ó-Y�Ó.6ÔñÓ
ÍÔ>Ó¡ÓòÓ
oÓFÓ'Ó˛Ó∂ÓÓ)˝Ó-Y�Ó.6Ô>Ó
ÍÔÊÓ¡ÓòÓ
oÓFÓ'Ó˛Ó∂ÓÓ)˝Ó-Y�Ó.6ÔÊÓ
ÍÔ
éÓ¡ÓòÓ
oÓFÓPÓ¨
Ó ¿Ó$Ó(O
Ó*‘Ó/fiÓ3:Ó7m�Ó9Ó9Ú
ÓDÓIÓIÔ
éÓ
ÍÔ6Ó
uÔ6Ó
ÍÔ
fiÓ¡ÓòÓ
oÓFÓÓÙÓ’ÓçÓ ¿
Ó#E�Ó$ÛÓ+´
Ó.0�Ó/fiÓ5øÓ9ÓGbÓIÌÔ
fiÓ
ÍÔ	ÜÓ¡ÓòÓ
oÓFÓÓÙÓ˛�Ó¨ÓçÓ"nÓ#EÓ&°Ó+´�Ó-YÓ3:Ó9Ó<wÓBX�ÓC5Ô	ÜÓ
ÍÔ.Ó¡ÓòÓ
oÓFÓÓÙ	Ó1
Ó∂ÓÈÓ% Ó+´Ó/Ó4�Ó5øÓ9Ú
Ó<wÓ@™ÓDÔ.�������Ü����
Íq?Ä[«Æ����������������������������array,for4AREFaNIBBLEor(MOD16)array,andfor1AREFaBITor(MOD2)array.Furthermore,whencompiled,thesefunctionswillbecompiled"open",withlittleornoerrorchecking,realizingordersofmagnitudespeed-upoverAREF;however,***thereisnocertificationastowhatkindofvaluewillbereturnedshouldthesubscriptsbe"outofrange".Toaidindebugging,therun-timecodeactuallytogglesontheglobalvariableAREFSissyFLG,andwhentheflgisnon-NIL,willcallthefunctionAREFinsteadofthefast-but-unchecked"in-line"accessing.However,onemayomiteventhesesimplechecksfor"allout,noholdsbarred"codebyprefixinga\tothesenames(e.g.\PAREF...)*)"Fast"settingfunctions:(PASET<newvalue><array>...{subscripts}...)(NASET<newvalue><array>...{subscripts}...)(LASET<newvalue><array>...{subscripts}...)(16ASET<newvalue><array>...{subscripts}...)(8ASET<newvalue><array>...{subscripts}...)(4ASET<newvalue><array>...{subscripts}...)(1ASET<newvalue><array>...{subscripts}...)TheseareessentiallythesameasASET,buthaveaconsequencethat,forPASET,<array>mustbeaPOINTERorTarray;andcorrespondingly,forNASETaFIXNUMarray,forLAREFaFLONUMarray,for16ASETaDOUBLEBYTEor(MOD65536)array,for8ASETaBYTEor(MOD256)array,for4ASETaNIBBLEor(MOD16)array,andfor1ASETaBITor(MOD2)array.Furthermore,whencompiled,thesefunctionswillbecompiled"open",withlittleornoerrorchecking,realizingordersofmagnitudespeed-upoverASET;althoughsomecheckingisperformedtoinsurememorysystemintegrity(i.e.thatthewordmodifiedwillactuallybewithinthedatablockofthespecifiedarray),****thereisnocertificationastowhichwordwillbeclobberedshouldthesubscriptsbe"outofrange".AswithAREF,therun-timecodetogglesontheglobalvariableAREFSissyFLG,andwillcallthefunctionASETwhentheflgisnon-NIL.However,onemayomiteventhesesimplechecksfor"allout,noholdsbarred"codebyprefixinga\tothesenames(e.g.\PASET...).Ifyouusethisoption,thereisnoguaranteeofmemoryintegrity,andlikelynoonewillwanttolistentoreportsofany"system"bugsencounteredwhilesuch"unsafe"optionswerebeingexercised.��Ó
ÍÔc8Ó
ÍÔb6qÓ¡ÓòÓ
oÓFÓÓÙÓ’Ó¨ÓÓ�Ó ¿Ó&°
Ó)&Ó-YÓ0µÓ6ñÓ9ÚÓ=NÓBX�ÓDÓGb
ÓIÔb6Ó
ÍÔ`fiÓ¡ÓòÓ
oÓFÓÓP
Ó’Ó∂ÓçÓìÔ`fiÓ
ÍÔ_ÜÓ¡ÓòÓ
oÓFÓ1ÓdÓ% Ó*‘Ó3:Ó7m
Ó9ÚÓAÅÓH9ÓH9Ô_ÜÓ
ÍÔ^.ÓÓ#Ô^.Ó
ÍÔ\÷Ó¡ÓòÓ
oÓFÓÓÙÓ’
ÓZ
ÓflÓÈÓ(OÓ0µÓ6ñ
Ó9ÓAÅÓIÓIÔ\÷Ó
ÍÔ[~ÓÓ#Ô[~Ó
ÍÔZ&Ó¡ÓòÓ
oÓFÓÓÙÓ˛Ó’ÓdÓ ¿Ó% 
Ó(O
Ó*‘Ó6ñ
Ó9
Ó;†Ó?”ÓD
ÓFãÓFãÔZ&Ó
ÍÔXŒÓ#ÔXŒÓ
ÍÔWvÓ¡ÓòÓ
oÓFÓÓÙÓ'
Ó¨Ó;Ó$Ó'x	Ó0µ
Ó3:Ó7m
Ó9ÚÓ@™ÓAÅÓBX
ÓD›ÓH9
ÓIÌÔWvÓ
ÍÔVÓ¡ÓòÓ
oÓFÓÓÙ	Ó1ÓçÓ$Ó(OÓ/fiÓ6ñ
Ó9Ó<wÓBXÓIÔVÓ
ÍÔT∆Ó¡ÓòÓ
oÓFÓÓÙÓ∂ÓÓ#EÓ&°Ó)˝
Ó,ÇÓ4Ó8DÓ<wÓ?”ÓGbÓGhÔT∆Ó
ÍÔSnÓ¡ÓòÓ
oÓFÓÓÙÓ'Ófl
ÓdÓ ¿Ó0µÓ9	ÓAáÔSnÓ
ÍÔRÓ¡ÓòÓ
oÓFÓ’Ó1ÓçÓ ¿Ó$ÛÓ)˝Ó/fiÓ5øÓ9Ó=NÓAÅ
ÓDÓIÓIÔRÓ
ÍÔPæÓ¡ÓòÓ
oÓFÓÓÙÓ¨Ófl
ÓdÓ% �Ó'x�Ó)&
Ó+´Ó0µÓ5øÓ:…Ó@™ÓDÔPæÓ
ÍÔOfÓ
ÔOfÓ
ÍÔNÓ¡
ÓFÓÓ˛Ó’Óç	Ó$˘ÔNÓ
ÍÔL∂Ó¡ÓòÓ
oÓFÓ'Ó˛	Ó;Ó$ÛÓ(OÓ3:Ó6ñ�Ó7sÔL∂Ó
ÍÔK^Ó¡ÓòÓ
oÓFÓ'Ó˛	Ó;Ó$ÛÓ(OÓ3:Ó6ñ�Ó7sÔK^Ó
ÍÔJÓ¡ÓòÓ
oÓFÓ'Ó˛	Ó;Ó$ÛÓ(OÓ3:Ó6ñ�Ó7sÔJÓ
ÍÔHÆÓ¡ÓòÓ
oÓFÓ˛	Ó;Ó$ÛÓ(OÓ3:Ó6ñ�Ó7sÔHÆÓ
ÍÔGVÓ¡ÓòÓ
oÓFÓ'Ó˛	Ó;Ó$ÛÓ(OÓ3:Ó6ñ�Ó7sÔGVÓ
ÍÔE˛Ó¡ÓòÓ
oÓFÓ'Ó˛	Ó;Ó$ÛÓ(OÓ3:Ó6ñ�Ó7sÔE˛Ó
ÍÔD¶Ó¡ÓòÓ
oÓFÓ'Ó˛	Ó;Ó$ÛÓ(OÓ3:Ó6ñ�Ó7sÔD¶Ó
ÍÔCNÓ¡ÓòÓ
oÓFÓPÓ¨
Ó ¿Ó$Ó(O
Ó*‘Ó/fiÓ3:Ó7m�Ó9
ÓC/ÓH9ÓH9ÔCNÓ
ÍÔAˆÓ
uÔAˆÓ
ÍÔ@ûÓ¡ÓòÓ
oÓFÓÓÙÓ’ÓçÓ ¿
Ó#E�Ó$ÛÓ+´
Ó.0�Ó/fiÓ5øÓ9ÓGbÓJæÓJƒÔ@ûÓ
ÍÔ?FÓ¡ÓòÓ
oÓFÓÓÙÓ˛�Ó¨ÓçÓ"nÓ% Ó*‘�Ó,ÇÓ2cÓ8DÓ;†ÓAÅ�ÓC/ÓC/Ô?FÓ
ÍÔ=Ó	Ó'Ó-Ô=ÓÓ
ÍÔ<ñÓ¡ÓòÓ
oÓFÓÓÙ
ÓyÓ¨ÓçÓ"nÓ% Ó*‘�Ó,ÇÓ0µ
Ó3:Ó7mÓ;†ÓAÅÓD›ÓIÁÓIÁÔ<ñÓ
ÍÔ;>�ÓòÓûÔ;>Ó
ÍÔ9ÊÓ¡ÓòÓ
oÓFÓÓÙÓ’
ÓZÓçÓÈÓ% Ó)&Ó,ÇÓ1å�Ó3:Ó6ñ
Ó9Ó=N
Ó?”ÓE¥ÓFãÓFëÔ9ÊÓ
ÍÔ8éÓ¡ÓòÓ
oÓFÓ1ÓdÓ% Ó*‘Ó3:Ó7m
Ó9ÚÓAÅÓH9ÓH9Ô8éÓ
ÍÔ76ÓÓ#Ô76Ó
ÍÔ5fiÓ¡ÓòÓ
oÓFÓÓÙÓ’
ÓZ
ÓflÓÈÓ(OÓ0µÓ6ñ
Ó9ÓAÅÓIÓIÔ5fiÓ
ÍÔ4ÜÓLÔ4ÜÓ
ÍÔ3.Ó¡ÓòÓ
oÓFÓÓÙÓ˛Ó’ÓdÓ!óÓ)&
Ó+´Ó4
Ó6ñÓ<wÓBXÓGhÔ3.Ó
ÍÔ1÷Ó¡ÓòÓ
oÓFÓÓÙÓZÓdÓ!óÓ$ÛÓ)&Ó0µÓ4ËÓ<w
Ó>¸ÓD›ÓH9ÓH9Ô1÷Ó
ÍÔ0~ÓLÔ0~Ó
ÍÔ/&Ó¡ÓòÓ
oÓFÓÓÙÓ˛
ÓÉÓflÓ#EÓ)˝Ó.0Ó3:
Ó5ø
Ó8DÓD
ÓFã
ÓIÓIÔ/&Ó
ÍÔ-ŒÓ¡ÓòÓ
oÓFÓÓÙÓ˛Ó1Ód
ÓÈÓ(OÓ.0Ó1å	Ó:…
Ó=NÓAÅ
ÓDÓJæÓKïÓKïÔ-ŒÓ
ÍÔ,v
ÓûÔ,vÓ
ÍÔ+Ó¡ÓòÓ
oÓFÓÓÙÓ'Ó1ÓçÓ$Ó(OÓ/
Ó1åÓ4ËÓ:…ÓBXÓBXÔ+Ó
ÍÔ)∆Ó€Ô)∆Ó
ÍÔ(nÓ¡ÓòÓ
oÓFÓÓÙÓPÓÉÓ∂ÓÓ&°Ó*‘Ó/Ó2cÓ5ø
Ó8DÓ?Ô(nÓ
ÍÔ'Ó¡ÓòÓ
oÓFÓ’Ó1ÓçÓ ¿Ó$ÛÓ)˝Ó/fiÓ5øÓ9Ó=NÓAÅ
ÓDÓIÓIÔ'Ó
ÍÔ%æÓ¡ÓòÓ
oÓFÓÓÙÓ¨Ófl
ÓdÓ% �Ó'x�Ó)&
Ó+´Ó0µÓ5øÓ:…Ó@™ÓE¥ÓFã
ÓH?Ô%æÓ
ÍÔ$fÓ¡ÓòÓ
oÓFÓÓÙÓPÓ¨ÓflÓ!óÓ&°
Ó)&
Ó+´Ó4
Ó6ñÓ<w	ÓE¥ÓH?Ô$fÓ
ÍÔ#Ó¡ÓòÓ
oÓFÓÓÙÓ’
ÓZÓ∂ÓÈÓ$
Ó&°Ó,Ç
Ó/Ó5ø
Ó8DÓ;†ÓC/ÓFëÔ#Ó
ÍÔ!∂Ó¡ÓòÓ
oÓFÓÓÙ
ÓÓÓ#EÓ*‘Ó1åÓ5øÓ:…	ÓC5Ô!∂ˇ�������Ç����
Íq?Ä[«P����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
~GACHA����������������
�����~GACHA����������������
����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
�������$�����/�����:�
�Ó�
�D�
�fl������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������j/�G��E�
ˇˇú»≤)�
�
ˇˇˇˇˇˇ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������({PHYLUM}<LISPCORE>LIBRARY>CMLARRAY.TTY;1�����������JONL.PA������������������������ 9-May-84 03:14:05���������������������������������������������������������������������������������������������������������������������������������������������������������