‘XCL Compiler output for source file {DSK}disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-INDENT.;1 Source file created Thursday, 17 May 1990, 10:52:22. FASL file created Monday, 26 January 1998, 13:33:37. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜“˜’Œ DEFPACKAGE˜‘˜ŒXEROX-COMMON-LISP˜•ŒSEDIT˜“˜ŒUSE˜•ŒLISP˜•ŒXCL˜Œ{Null}˜–7ggo ¿o¿o ¿o ˜Œ4 top-level forms™˜“€1˜•ŒPUTPROPS&™˜•ŒPUTPROP˜•ŒSEDIT-INDENTCOMS˜•Œ FILEDATES˜•Œ SEDIT-INDENT,˜“™˜•ŒMAKEFILE-ENVIRONMENT˜“™ ˜ŒXCL™ ˜“™™˜“™™™!˜“™˜•ŒFILETYPE˜Œ COMPILE-FILE˜“ ˜“˜•ŒPROP™%™˜“™(™™˜“˜•ŒDECLARE:˜•ŒDONTCOPY˜•ŒDOEVAL@COMPILE˜“˜•ŒFILES˜•Œ SEDIT-DECLS˜“˜•Œ VARIABLES˜’ŒLIST-FORMATS-TABLE˜‘˜ŒSEDIT˜’Œ *FSPEC-TABLE*™4˜’Œ*FSPEC-TABLE-COPY*™4˜’Œ*INDENT-ALIST*™4˜“˜•Œ FUNCTIONS˜’Œ GET-INDENT™4˜’Œ GET-FORMAT™4˜“˜•ŒSETFS™;™<˜“™:˜’Œ RESET-FORMATS™4˜’ŒINSTALL-SPECIAL-FORMATS™4˜’Œ PARSE-FORMAT™4˜’ŒSETF-OF-GET-FORMAT™4˜’ŒFORMAT-FROM-INDENT™4˜’Œ PARSE-INDENT™4˜’ŒPARSE-INDENT-NAME™4˜’ŒPARSE-INDENT-BODY™4˜’ŒPARSE-INDENT-GROUP™4˜’ŒPARSE-INDENT-GROUP-BODY™4˜’ŒPARSE-INDENT-GROUP-ONE™4˜’ŒPARSE-INDENT-GROUPS™4˜’Œ SCALE-INDENT™4˜“™:˜’ŒCOPY-HASH-TABLE™4˜“˜•ŒCOMS˜“˜•Œ*˜•Œ;;˜Œa definer for formats˜“˜•Œ DEFINE-TYPES˜•Œ SEDIT-FORMATS˜“™:˜’ŒDEF-LIST-FORMAT™4˜“™(˜•ŒARGNAMES™X ˜“˜”˜Œ17-May-90 11:03:43•Œ4{DSK}local>lde>lispcore>sources>SEDIT-INDENT.;2˜–*o ¿g X‘Hgnè c™5˜ŒDEFVAR LIST-FORMATS-TABLE™˜“€"˜ŒMAKE-HASH-TABLE˜ŒBOUNDP˜ŒPROCLAIM˜ŒSIZE ™5˜“˜ŒSPECIAL™5˜–Mo ¿g X³!gg gnÐ c¿ggo ™6˜ŒDEFVAR *FSPEC-TABLE*™˜“€G˜•ŒSET-DOCUMENTATION0™d#˜ŒSYMBOL-FUNCTION™e™f=˜ŒVARIABLE8™6(™g˜ŒEQUAL˜ŒTEST ™6B˜Œ;Associates function names with their format specifications.˜“™h™6˜–1o ¿g X£hc¿ggo ™7˜ŒDEFVAR *FSPEC-TABLE-COPY*™˜“€+™m™e™f!™o™7 ™7&˜Œ+hash table containing original format specs˜“™h™7˜–‚o ¿gggjggkgjggjhggjgggkjggjhhgggkggkggjggkgjggkggkggjhggkggkggjgggkjggkggkggjhhggggjgjgjggkgjgggjgjgjhgggjgjgjgggkjgggjgjgjhhgggggjgjgjgjggggjgjgjgjggggjgjgjgjhggggjgjgjgjggggjgjgjgjggggjgjgjgjhhgggjgjggkgjggjgjhggjgjgggkjggjgjhhgggjgjgjhggjgjgjhhggggjgjgjgkgggjgjgjhggjggkggjhhggggjgjgjgjhgggjgjgjgjhhggjhgjhhgggjgjgggjggggjgjgjgjhggjgjgggjggggjgjgjgjhhhc¿ggo ™8˜ŒDEFPARAMETER *INDENT-ALIST*™˜“€‚™m™f‚Ï‚™o‚™8‚à˜ŒBREAK‚×™|‚Ι|‚Ș’Œ NEXT-INLINE?™4‚Ø’Œ NEXT-ATOM?™4‚¾˜’Œ PREV-ATOM?™4‚¹˜’Œ FROM-INDENT™4‚±˜’Œ SET-INDENT™4‚¬™|‚§˜’ŒNEXT-LAMBDAWORD?™4‚ž™‚‚˜™‚‚‚“˜’ŒPREV-LAMBDAWORD?™4‚ƒ™|‚z™|‚q™|‚k™}‚f™~‚a™‚\™‚€‚T™‚‚O™|‚J™‚‚‚A™‚‚;™‚‚‚6™‚ƒ‚1˜Œ LAMBDA-LIST‚$™|‚™|‚˜Œ COND-CLAUSE‚™|‚þ™|‚õ™|‚ï™}‚ê™~‚噂ڙ|‚Ñ™|‚È™|‚™}‚½™~‚¸™‚³˜Œ BINDING-LIST‚£™|‚ž™‚€‚–™|‚‘™‚‚‰™|‚„™‚€‚v™|‚m™|‚g™}‚b˜’Œ PREV-INLINE?™4‚]™‚€‚V™‚‚L™|‚C™|‚=™}‚8™‚‡‚3™‚€‚.˜ŒBINDING‚™|‚™|‚™}‚ ™‚™|‚÷™|‚ñ™}‚왂瘌DATA‚Õ™|‚Ï™}‚Ê™‚€‚¿™‚º™|‚µ™‚‚«™|‚¥™}‚ ™‚€‚’™|‚Œ™}‚‡™‚€‚}™|‚w™‚r™‚‚h™|‚b™}‚]™‚€‚X˜ŒSQUASH‚F™|‚=™|‚4™|‚.™}‚)™~‚$™‚™‚€‚™|‚ ™|‚™|‚ý™}‚ø™~‚ó™‚‚ä™|‚Û™|‚Ò™|‚Ì™}‚Ç™~‚™‚½™‚€‚¯™|‚¦™|‚™|‚—™}‚’™~‚™‚ˆ™‚€‚~™|‚u™|‚l™|‚f™}‚a™~‚\™‚W™‚‚M™|‚D™|‚;™|‚5™}‚0™~‚+™‚&™‚€‚!˜ŒHORIZONTAL-ATOM‚™|‚™|‚™}‚û™‚‡‚ö™‚€‚뙂æ™|‚ᙂ‚×™|‚Ι|‚È™}‚Ù‚‡‚¾™‚€‚°™|‚§™|‚¡™}‚œ™‚‡‚—™‚€‚™|‚‡™‚‚™‚‚x™|‚o™|‚i™}‚d™‚‡‚_™‚€‚Z˜Œ HORIZONTAL‚H™‚€‚C™|‚9™‚€‚4™|‚.™}‚)˜’Œ PREV-KEYWORD?™4‚™‚™|‚™‚‚ ™‚€‚™|‚û™‚€‚ö™|‚ð™}‚뙂‚Ý™‚€‚Ø™|‚Ι‚€‚É™|‚Ù}‚¾™‚‚´™|‚®™‚©™‚‚Ÿ™‚€‚š™|‚™‚€‚‹™|‚…™}‚€™‚{˜Œ KEYWORD-ARGk™‚€f™|[™V™|Q™‚I™‚€D™|8™‚€3™|)™|#™™‚™‚€™| ˜ŒVERTICAL‚ ˜ŒIAlist of keyword names and SEdit indentation specifications (2 per name).˜“™h™8œ™;˜–@P™8™;™˜“˜“˜ŒNAMEœ™<˜– @P ™6™<™˜“˜“˜ŒFNAME˜ŒGETHASHœ˜’ŒGET-INDENT-setf-expander™4˜–‚—@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼gggLohhgggoJhggLJhohhI$™‚œ™˜“˜“˜Œ ACCESS-FORM˜ŒGET-INDENT-setf-env,˜•ŒGENSYM™‚¡w˜ŒCONSr˜ŒPUSHc˜ŒSETF^˜’ŒIPAIR™4Y˜ŒIFG˜ŒASSOCB™‚¥=˜ŒLET‚‚˜“™8h˜“˜ŒCDR™‚¥M˜“™8˜–gg ˜ŒDEFSETF GET-INDENT™˜“€ ˜ŒSET-SETF-METHOD-EXPANDER™‚œ™;˜–gg ˜ŒDEFSETF GET-FORMAT™˜“€ ˜ŒSET-SETF-INVERSE™C™<œ™@˜–AR ¿A ¿P›@²PQ ¿Q c¿A‘hnoQ ™7™6™5™@™˜“˜“˜Œ &OPTIONAL˜ŒSMASH-USER-REDEFINITIONS?˜Œ DONT-REPARSE?;˜ŒMAPHASH#™N™d™N ™A˜ŒCLRHASH3˜– @A ˜Œlambda in RESET-FORMATS˜ŒCLOSURE˜“˜“˜ŒNAME˜ŒFSPEC™C/˜•ŒCOMPILED-CLOSUREœ™A˜–‚æ@²Zggggih ¿ggggghgih ¿g`X¹Hh¿IX¹Hg¿IX¹Hg¿IX¹Hg¿IX¹Hh¿I ¿g`X¹Hh¿IX¹Hg¿IX¹Hg¿IX¹Hg¿IX¹Hh¿I ™A™˜“˜“˜ŒDEFAULT-AND-DATA-TOO?‚à˜’ŒSET-LIST-FORMAT™4‚›™‚ÉV™‚ÉQ™B#™‚É™B‚Ϙ’ŒLINEARIZE-DOTLIST™4‚Ø’Œ CFV-DOTLIST™4‚·˜’ŒASSIGN-FORMAT-DOTLIST™4‚¦˜’ŒLIST-FORMATTYPE#™4‚¡˜ŒDOTLIST‚Š˜’ŒLINEARIZE-CLISP™4~˜’Œ CFV-CLISP™4r˜’ŒASSIGN-FORMAT-CLISP™4a™‚Í\˜ŒCLISPD˜ŒINLINE=˜Œ RECURSIVE8˜ŒARGS3™‚‰.˜ŒINDENT)™‚‰™‚Ó™‚ ™‚Ö˜ŒDEFAULTœ™B˜–‚˜@¸h¹g@ Y’I€hºgH Y’I€h»gH Y’I€h¼gH Y’I€h½gH Y’I€h¾gH ¹Ho ¿J KLMN@gg ™B™˜“˜“˜Œ FORMAT-SPEC ‚’™D‚Œ˜ŒGETFx™Eq˜•Œ KEYWORD-TESTe˜•Œ FIND-KEYWORDS™‚ÞA™‚Þ/™‚Þ™‚Þ ™‚Þ‚‡˜ŒREPEAT‚‚˜ŒLAST_™‚àM˜ŒMISER;™‚Ó)˜ŒSUBLISTS™‚Õ™‚Öl˜“™‚à™‚á™‚Ó™‚♂ՙ‚Öœ™C˜–PS²;A¸A¹AÃ’A°$I×A °hgHoh ¸@H ¿A˜@RA @R ™6™7™C™˜“˜“˜ŒNAME˜ŒSPECJ˜ŒREMHASHB˜ŒPUTHASH7™‚É/˜•ŒCHECK-TYPE-FAIL™B"˜’ŒSPEC™4˜•ŒLISTP ˜•ŒLITATOM(˜“˜ŒOR˜ŒSYMBOL™‚¢œ™D˜–‚†EgðœA Ab¿…EAb¿Dgð@@hb¿°Dgð™@@hb¿`X¹HA¿IX¹HB¿IX¹HC¿I¸@ ¹HºHI¿J¹@ ¸IºIH¿J™D™˜“˜“˜ŒINDENTS˜ŒARGS˜ŒSUBLISTS˜ŒINLINE?™‚¶˜ŒMISER˜ŒLASTw™Le™L ˜ŒLASTD™‚Í3˜ŒNEVER˜ŒALWAYS™‚ßœ™E˜–sh¸@ ˜@ ¸°7@‘h€iY‘I…@‘i€h˜@ ¸°oo@ ¿g ¸H‘h€iY’I°H‘h€iZ‘J…H‘i€h‘h€išo ¿H™E™˜“˜“˜ŒISPECk˜ŒERRORB™F7˜ŒCERROR$™K ™F˜ŒKEYWORDP=™‚f˜Œ*Unanticipated parse error in parse-indent!1˜Œ Illegal indent specification: ~S,˜ŒUse :vertical indentation.œ™F˜–&@ X³oo@ ¿gQ¸H™8™F™˜“˜“˜ŒNAME™‚™;™‚˜ŒNot a known indentation: ~S. ˜ŒUse :vertical indentation.œ™G˜–‚ˆB²ggjgAŒggA¸B²ggjgA†gA¹H@º@J¿H@º@J¿I@º@J¿I@º@J¿I@ I@ h™G™˜“˜“˜ŒINDENTS˜ŒOFFSET˜ŒTAGBODY?~˜ŒNREVERSEt™‚ A™|6™‚0™~+™|™|™‚™‚ ™~™|œ™H˜–OA3‘i€h‘h€iX‘H†Ajÿ‘h€i²6ggB@¸@H¿ggB@¸@H¿@A h™H™˜“˜“˜ŒINDENTS˜ŒGROUP˜ŒOFFSETG™I3™|.™‚™|™‚œ™I˜–‚³ggj¸gggjgjgj¹A3‘i€h²)AkÕºj»KJýó¡hH@¼@L¿H@¼@L¿KkÔ»°áA‘h€i[‘K…A‘i€h˜A3‘i‚h€h²*AkÕ»jºJKýó¡hI@¼@L¿I@¼@L¿JkÔº°áoA ™I™˜“˜“˜ŒINDENTS˜ŒGROUP‚­™‚(™|™|™}™‚‡™‚€™|™‚€‚§˜Œ&Illegal indent group specification: ~Sœ™J˜–‚A3‘i€h‘h€iX‘H†Ajÿ‘h€i²vCgðggB†gB@¸@H¿Cgð˜gB°.CgðžggB°ggBgB@¸@H¿@A h™J™˜“˜“˜ŒINDENTS˜ŒGROUP˜ŒOFFSET˜ŒARG-1‚‡™I q™|k˜’ŒNEXT-PREFERRED?™4f™‚\™|W™‚P˜ŒBREAKF™‚?˜ŒNOBREAK/™‚&™|!™‚™‚)œ™K˜–‚h¸h¹kºhhh»@¢±×@¼L‘h€i]‘MŠL ‘h€i•Lb¿°sL]gð–JkÔ^º°\Mgð“i¹°PMgð^’N°Mgð_’O†Mgð²H²ooL ¿L¸°ooL ¿L¼±ÿwJ@ Ô\º@²2K@JH ¿JkÕ\º@¼h½L‘L°½KMJ ¿JkÕ^ºL¼°çKJI oo ¿g ™K™˜“˜“˜ŒGROUPS ‚û™F‚𙂂à™G‚Í™H‚²™J‚¢˜ŒLENGTH‚”™‚}™‚™‚‚ö™‚f˜ŒFITY™‚*M™‚)A˜ŒTAGBODY2˜ŒSTEP‚똌Null indentation specification.‚昌Use :vertical indentation.‚˜Œ%Unrecognized indentation keyword: ~A.‚ˆ˜Œ Ignore it.v˜Œ*Extra placement keyword in indentation: ~Aq˜Œ Ignore it.œ™L˜–‚Šejó”eló˜kl ¿ekÙdjð¯la¸kÙjð³la¹°`ɸ`ɹ@3‘i€h@jÿ‘@HI@kÕÖÔ@‘i€h²(@HI º@HI »J@:”K@:€h‘@JK@™L‚ÿÿÿÿ™˜“˜“˜ŒINDENT™‚¶˜Œ INDENT-BASE˜Œ INDENT-STEPp™Lf™L ˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEM<˜’ŒEDIT-ENV™47˜’ŒLISP-EDIT-ENVIRONMENT™4/™‚B*™‚Cœ™N˜–#nXA¿noH@ ¿HÉ™N™˜“˜“˜Œ OLD-TABLE˜Œ NEW-TABLE™‚»˜– @HÉA ˜Œlambda in COPY-HASH-TABLE™‚¾˜“˜“˜ŒKEY˜ŒVALUE™‚ê ™‚Ę•Œ \PTRHUNK2˜–‚"ggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ˜•Œ FILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜Œ DEF-DEFINE-TYPE IL:SEDIT-FORMATS™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚™‚ꂘ™dn˜•ŒGETHASHV™eK™f>˜ŒADJOIN&™‚W™m!‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™V‚˜’Œ%DEFINE-TYPE-FILEGETDEF™ ‚ý˜•Œ FILEGETDEF‚ø™V‚혒Œ%DEFINE-TYPE-PUTDEF™ ‚蘕ŒPUTDEF‚ã™V‚ؘ’Œ%DEFINE-TYPE-DELDEF™ ‚Ó˜•ŒDELDEF‚ΙV‚Ø’Œ%DEFINE-TYPE-GETDEF™ ‚¾˜•ŒGETDEF‚¹™V‚¯™V‚¥™V‚˜Œ REHASH-SIZE‚‰™g‚„™p™qz˜’Œ*DEFINITION-HASH-TABLE*™ u™Vi™‚cd™V^˜•ŒCHANGEDSEDIT-FORMATSLSTQ™‚d9™p4™q!™p™q™U™VF˜“˜’ŒGLOBAL™ ™‚d.˜“™‚d™V˜ŒSEdit list formats˜“™V˜’ŒX™ ˜“˜•ŒP™Q˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™ ˜“˜ŒQUOTE™V˜“™‚l™‚i ™‚g˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEF-LIST-FORMAT™˜“€A™™ :™X0™X)˜Œ DEFINED-BY ™V™‚u™V ™V˜Œ DEFINER-FOR™Xœ˜’Œ#definition-expander-DEF-LIST-FORMAT™4˜–_@X¹HZ ’J€h[’J€J¼gggIhhgL ’L€LhK²gIoKh€h™‚x™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT8˜ŒENDP ˜ŒSTRINGPH˜Œ DOCUMENTATION1™‚l%™‚l ™<™‚¤N˜“˜“™‚l™V˜–+ggg ¿ggg ™‚s™˜“€%™™ ˜ŒSECOND˜ŒDEFINITION-NAME™X ™‚x˜ŒDEFINITION-EXPANDER™Xœ˜’Œundefiner-fn-DEF-LIST-FORMAT™4˜– @h ™‚ˆ™˜“˜“˜ŒNAME™C˜–JgggÁÉg'¸gH‘H†gH ¿oQgg c˜•ŒPRETTYPRINTMACROS™‚s™˜“€B™‚W,™=™p8™q%™‚ˆ™‚ˆ˜Œ UNDEFINERS ™X™‚™X2˜”™X’ŒPPRINT-DEFINER™ œ˜’Œexpand-DEF-LIST-FORMAT™4˜–ggg@Ah™‚’™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™X™V˜’ŒDEFINER™ ˜–&gg ¿ggo ™‚s™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION™Z™X™‚’™X˜“˜Œ&WHOLE˜ŒXCL::DEFINITION˜Œ &ENVIRONMENT˜ŒXCL::ENV˜–o ¿o ˜Œ2 top-level forms™˜“€™™ ˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂĂƘ“™X™Z˜“ ˜’ŒNAME™4˜’Œ{DOC}™4˜Œ&KEY˜’ŒINDENT™4˜’ŒARGS™4˜ŒINLINE˜’ŒMISER™4™‚û˜’ŒSUBLISTS™4š‚²ÿÿ