‘XCL Compiler output for source file {DSK}lispusers>circlprint.;1 Source file created Wednesday, 30 May 1979, 0:24:59. FASL file created Wednesday, 31 August 1994, 18:22:07. ÿ˜–!ggo ¿o˜Œ2 top-level forms˜ŒFUNCTION˜“€˜•ŒPUTPROP˜•ŒCIRCLPRINTCOMS˜•Œ FILEDATES˜•Œ CIRCLPRINT˜“˜“˜•ŒFNS˜•Œ CIRCLMAKER˜•Œ CIRCLMAKER1™˜•Œ CIRCLMARK˜•ŒRLPRIN1˜•Œ RLRESTORE˜•ŒCSEARCH˜•Œ PLACEPRINT˜•ŒC2PRINT˜•ŒROOMLEFT˜•ŒRLPRIN2˜•ŒCPRINT˜•ŒCLPRINT˜•ŒCIRCLNC˜“˜•ŒVARS˜•Œ CIRCLMARKER˜“˜•ŒBLOCKS˜“˜•Œ CIRCLBLOCK™™ ™™ ™ ™ ™ ™™™™™™™˜“˜•ŒENTRIES™™ ™ ™™ ™™ ˜“˜•ŒSPECVARS˜•ŒRLKNT˜•ŒLABELIST˜•ŒREFLIST˜“˜•Œ LOCALFREEVARS˜•Œ PLACELIST˜•ŒLL˜”˜•Œ NOLINKFNS˜“˜•Œ GLOBALVARS˜•Œ #UNDOSAVES˜•Œ RESETVARSLST ˜“˜”˜Œ30-MAY-79 00:25:14•ŒCIRCLPRINT.;3œ™˜– @ ¿H›o ¿@h™™ ™™˜“˜“˜Œ &OPTIONAL˜ŒL˜Œ INTERLISP˜•ŒERROR™  ˜ŒLABEL NOT FOUND FOR REFERENCEœ™ ˜–‚Œh¸h¹hºh»h¼@•@¸@¹H²H‘h€i]‘MˆH3‘i‚h€h¢±^Hgð’h°7Hk gð²'Hmÿ gð²Hlmþ Z3 ‚h€h²=JW\›@L ¿±JW\œL@ ¿±WJ@hhh c¿±ëHgð’h°BHgð’h°7Hk gð²'Hmÿ gð²Hlmþ Z3 ‚h€h¢±œJWžHo ¿±ˆ@²k@@ ¿@@ ¿WJ@ c¿JW\²:LW c¿L½M ŽM^@ ¿M½°ðL½M ŽM^@ ¿M½°ð@ ¿@Ho ¿‰H–H ¿I²I‘h€i]‘MˆI3‘i‚h€h¢±ØIgð’h°7Ik gð²'Imÿ gð²Ilmþ [3 ‚h€h²‚Ú™?‚È™@‚¸™@‚Œ™ ‚™8‚s™ ‚g™B‚P˜•Œ/RPLACA‚=˜•Œ/DREMOVE‚+™A‚ ™B‚™C‚™8‚é™>‚ä™?‚Ò™@‚™@‚Ÿ™A‚‹™Ax™Ca™>\™?J™@:™@‚T˜•Œ*‚B˜•Œ**‚7™E‚.™E‚͘•Œ}‚½˜•Œ{‚¬˜•Œ{}‚×™E‚Ç™E‚¶™F‚«™EO™G?™H.™I‚t˜ŒIS MISPLACED LABEL‚|˜ŒIS MISPLACED LABEL‚ÿ˜Œ!IS AMBIGUOUS, MULTIPLY USED LABELœ™˜–*nX@A¿T!nokoH-¿Hɘ’Œ *RESETFORMS*˜‘˜ŒSYSTEM˜•Œ RESETSTATE˜•Œ LISPXHIST™™R™™˜“˜“™3˜ŒL˜ŒPRINTFLG™™6˜–Bgl hhSc¿g`hnokoH-ºj@¿J™P™P˜’Œ*UNWIND-PROTECT*™O˜ŒCLOSURE˜“˜“˜ŒG12˜•ŒRADIX™)™)™\3˜–:h¿HÉR ¿HÉ™HÉ ¿ˆHÉ ¿HÉ ¿h¹j@¿I™™W™X˜“˜“˜ŒG13,™ #™™ ™ ™)+˜–˜ŒClean-up forms™X˜“€˜’Œ RESETUNWIND™O'˜•ŒCOMPILED-CLOSURE˜–™a™X˜“€™c™e˜•Œ \PTRHUNK2œ™ ˜–A£jb¿@ ™™ ™˜“˜“™3˜ŒL™™6˜•Œ\CIRCLBLOCK/CSEARCHœ™ ˜–  h¹¸@g ¿¿h™#™$™ ™˜“˜“™3˜ŒL™6˜•ŒTERPRI˜•Œ\CIRCLBLOCK/CLPRINT˜•Œ LINELENGTH ˜ŒCARœ™ ˜–&@•@Pð€h²@@¿@ ¿@ ¿h™™ ™˜“˜“™3˜ŒL™6™ ™ œ™n˜–Th¸@²M@X²4HQð²H³HRkØc ¿h@QHh ¿H ¿‹@QHh ¿@b¿°±h™™™n™˜“˜“™3˜ŒL™6E™C8™n1™C#˜•Œ\NCONC2˜ŒCONSœ˜•Œ\CIRCLBLOCK/PLACEPRINT˜–3@²/@mÿñ² @Ù ¿@ ¿@mÿ¿@b¿°Òh™‚‚™˜“˜“™3˜ŒP™6˜•ŒPRIN1˜•ŒSPACES˜•ŒPOSITIONœ˜•Œ\CIRCLBLOCK/C2PRINT˜–"¿P ¿¿¿@A ™#™‚Š™˜“˜“™3˜ŒL˜ŒCAMEFROM™6˜•Œ\CIRCLBLOCK/CPRINT™s™s™‚‚™sœ˜•Œ\CIRCLBLOCK/ROOMLEFT˜– PÙ™$™‚‘™˜“€™6™‚ˆœ™˜–"nX@¿T!nokoH-™P™Q™R™R™™˜“˜“™3˜ŒL™6˜–T lÙ¹gIlPØ hhSc¿HÉg ¿¿J ¿¿hhj@¿ ™#™$™P™W™X˜“˜“˜ŒG14N˜Œ VALUES-LIST@™s:™‚‚3™s-™‚™u™u(™v ™u˜–™a™X˜“€™c™e™iœ™‚˜–‚@h¸h¹hºh»h¼h½]lýñš@A ¿±@‘h€i^’N°@‘h€i_’O‰@Wð‘h€io ¿±í@XšHY”IW‚h€h²7MlI Øýñ—@A g ¿I ¿g ¿±¤HMlI \Øýñ€hš@A ¿±‡H²WH c¿Agðšg ¿H² Lkð‘h€i^‘NŠAgð‘h€i–L ¿@Z²[@Jð²IlLØýñ²¿W ¿¿¿g ¿H ¿g ¿°Jg ¿†J ¿@¢±À@¢±“@[•KW€h²llK Øýñ²¿W ¿¿¿o ¿k ¿g ¿K ¿g ¿g ¿°Ik ¿@g ¿°3o ¿k ¿@ ¿g ¿Šg ¿h™# ™™‚™˜“˜“™3˜ŒL˜ŒCAMEFROM™6,‚8™‚†‚,™‚†‚!˜•ŒPRIN2‚™‚‡‚™‚†‚™‚‚ø™‚‡‚†‚䙂†‚Ù™‚†‚Ñ™‚†‚Æ™‚‡‚¿™‚†‚´™s‚®™s‚¨™‚‚‚ ™s‚–˜•Œ\CIRCLBLOCK/CIRCLNC‚™‚‘‚j™‚£‚b™‚‚T™‚†‚I™‚†‚A™‚†‚6™s‚0™s‚*™‚‚‚"™s‚™‚‘‚™‚‡‚ᙂ†‚Ì™‚Ç™‚€‚Á™‚ˆ‚±™‚Š‚£™‚¤‚”™‚†‚‰™‚†‚‚™‚†w™‚Šl™‚¤K™8™‚Š ™‚‘‚3˜•Œ)‚'™‚¥‚˜ŒCDR‚Ꙃ¥‚ß™G‚Ì™H‚]™v‚O™G‚<™H‚ö™v‚ܘ•Œ(‚Õ™v‚™G}™H‚ ˜Œ .‚º˜Œ .F˜ŒUNCIRCLMARKED LIST STRUCTUREœ™t˜–‚h¸h¹hºh»h¼h½h¾h_¿h_¿lýñ•¿@¢±ì@Wð¢±×@X²HYŸI _”IW„h‚h€h²5lOØýñ•¿g ¿I ¿g ¿±H²lOØýñ•¿iºJšWH c¿Agðšg ¿J²'g ¿H ¿g ¿k ¿@[²G@Kð²5lOØýñ•¿g ¿H ¿g ¿°Kg ¿†K ¿@\²@]•MW€h”i_¿ƒh_¿i¾h¾L–k ¿N²kO²YM¹lI Øýñ•¿g ¿k ¿g ¿M ¿g ¿g ¿°PLg ¿°BL²(g ¿k ¿L ¿g ¿°g ¿Šo ¿h ™# ™™t ™˜“˜“™3˜ŒL˜ŒCAMEFROM™6(‚™8‚™‚†‚÷™‚†‚왂£‚噂‡‚Þ™‚†‚Ιt‚À™‚†‚µ™‚†‚ª™‚†‚¢™‚†‚—™‚‡‚™‚†‚…™s‚|™‚¤‚t™‚‘‚d™‚‡‚8™‚£‚0™t‚"™‚†‚™‚†‚™‚†‚™s‚÷™‚‘‚䙂‡‚Ý™‚†‚Ò™‚†‚Ê™‚†‚¼™‚†‚§™‚š™s‚™‚‘‚™‚†v™‚†o™‚†d™sW™‚‘C™‚¤!™s™‚‘‚ÿ™‚¥‚ò™‚¥‚Ù˜•Œ.‚É™‚¦‚»™‚¥‚°™G‚™H‚‹™‚°‚+™v‚™G‚ ™H‚Ø™E‚Å™E‚·™‚§‚°™v|™Gj™H‚ ˜ŒUNCIRCLMARKED LIST STRUCTUREœ™‚¤˜–1@l ýñ‘k@ldýñ’l@nèýñ’l@n'ýñ’lo ™‚¤™˜“˜“™3˜ŒN™6+™8&˜Œ*REENTRANT NODE HAS BEEN NUMBERD OVER 10000˜– o˜Œ1 top-level form™˜“€™˜ŒBEENHEREš‚¼ÿÿ