‘XCL Compiler output for source file {DSK}arunwelch>skydrive>documents>unix>lisp>clos>current>iterate.lisp;1 Source file created Wednesday, 8 May 1991, 7:43:09. FASL file created Friday, 4 December 2020, 13:16:47. ÿ˜–#oggo ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜“˜Œ IN-PACKAGE˜ŒITERATE˜ŒUSE˜“˜ŒQUOTE˜“˜ŒLISP˜ŒWALKER˜ŒBASE ˜Œ{Null}˜–6ggo¿o¿ggo˜Œ3 top-level forms™˜“€0™˜•ŒPUTPROP&™!™ ˜•ŒITERATECOMS˜•Œ FILEDATES˜•ŒITERATE+˜“™™˜“˜“˜•Œ*˜•Œ;;;˜Œ‚************************************************************************* Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation. All rights reserved. Use and copying of this software and preparation of derivative works based upon this software are permitted. Any distribution of this software or derivative works must comply with all applicable United States export control laws. This software is made available AS IS, and Xerox Corporation makes no warranty about the software, its performance or its conformity to any specification. Any person obtaining a copy of this software is requested to send their name and post office or electronic mail address to: CommonLoops Coordinator Xerox PARC 3333 Coyote Hill Rd. Palo Alto, CA 94304 (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa) Suggestions, comments and requests for improvements are also welcome. ************************************************************************* Original source {pooh/n}vanmelle>lisp>iterate;4 created 27-Sep-88 12:35:33 ˜“˜•ŒP˜“™™ ™˜“™˜“™™˜“˜ŒEXPORT˜“™˜“˜’ŒITERATE˜‘˜ŒITERATE˜’ŒITERATE*™*˜’Œ GATHERING™*˜’ŒGATHER™*˜’ŒWITH-GATHERING™*˜’ŒINTERVAL™*˜’ŒELEMENTS™*˜’Œ LIST-ELEMENTS™*˜’Œ LIST-TAILS™*˜’ŒPLIST-ELEMENTS™*˜’ŒEACHTIME™*˜’ŒWHILE™*˜’ŒUNTIL™*˜’Œ COLLECTING™*˜’ŒJOINING™*˜’Œ MAXIMIZING™*˜’Œ MINIMIZING™*˜’ŒSUMMING™*˜’Œ*ITERATE-WARNINGS*™*˜“˜•Œ VARIABLES™=˜“™ ™!˜Œ ITERATE macro˜“˜•Œ FUNCTIONS™+˜’ŒSIMPLE-EXPAND-ITERATE-FORM™*˜“™B˜’Œ*ITERATE-TEMP-VARS-LIST*™*˜“ ™F˜’ŒOPTIMIZE-ITERATE-FORM™*˜’ŒEXPAND-INTO-LET™*˜’ŒVARIABLES-FROM-LET™*˜’ŒITERATE-TRANSFORM-BODY™*˜’ŒPARSE-DECLARATIONS™*˜’ŒEXTRACT-SPECIAL-BINDINGS™*˜’ŒFUNCTION-LAMBDA-P™*˜’ŒRENAME-LET-BINDINGS™*˜’ŒRENAME-VARIABLES™*˜’ŒMV-SETQ™*˜’ŒVARIABLE-SAME-P™*˜’Œ MAYBE-WARN™*˜“™ ˜•Œ;;˜ŒSample iterators˜“™F™0™2™3™1™4˜’ŒSEQUENCE-ACCESSOR™*˜“™ ™X˜Œ"These "iterators" may be withdrawn˜“™F™5™6™7˜“™ ˜•Œ;˜ŒGATHERING macro˜“™F™-™/˜’ŒSIMPLE-EXPAND-GATHERING-FORM™*˜“™B˜’Œ*ACTIVE-GATHERERS*™*˜’Œ*ANONYMOUS-GATHERING-SITE*™*˜“™F˜’ŒOPTIMIZE-GATHERING-FORM™*˜’ŒRENAME-AND-CAPTURE-VARIABLES™*˜’ŒWALK-GATHERING-BODY™*˜“™ ™X˜ŒSample gatherers˜“™F™8™9™:™;™<˜“™ ™`˜Œ6Easier to read expanded code if PROG1 gets left alone ˜“˜’ŒFILE-ENVIRONMENTS˜‘˜ŒXEROX-COMMON-LISP˜ŒITERATE˜“˜”˜Œ19-Feb-91 13:55:29•Œ?{DSK}local>users>welch>lisp>clos>rev4>il-format>ITERATE.;2˜–o ˜Œ1 top-level form™˜“€™(˜“™+™,™-™.™/™0™1™2™3™4™5™6™7™8™9™:™;™<™=˜–5o ¿g X§gc¿ggo™=˜ŒDEFVAR *ITERATE-WARNINGS*™˜“€/˜•ŒSET-DOCUMENTATION˜ŒBOUNDP˜ŒPROCLAIM%˜ŒVARIABLE ™=˜ŒANY™=*˜Œ‚ÌControls whether warnings are issued for iterate/gather forms that aren't optimized. NIL => never; :USER => those resulting from user code; T => always, even if it's the iteration macro that's suboptimal.˜“˜ŒSPECIAL™=œ˜’Œexpand-ITERATE™*˜–@X¹HºIJA™‚Š™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™K˜–&gg ¿ggo˜ŒDEFMACRO ITERATE™˜“€ ™˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™+™‚Š™+˜“˜ŒCLAUSES˜Œ&BODY˜ŒBODY˜Œ&ENVIRONMENT˜ŒENVœ™G˜–‚x¸@¹hºh»h¼I¢J°0I½M^‘h€i_’O…N‘i€h‘N‚Nh¼J”KL&»„Lh[ºI¹°Ï¹@ºh»h¼h½J¢K°½K”LM&¼„Mh\»Jº°æºgHgJ»@¼I½h¾h_¿h_¿K‘h€i_’OL‘h€i_’O„M‘h€i’N°OK_¿L_¿M_¿OOhO _¿O–OO¿‚O¾O‘i€h™O _¿K»L¼M½°–gI»J¼h½h¾h_¿K‘h€i_’O„L‘h€i’M°VK_¿L_¿gOgOgghgHhhhhh_¿M•NO&¾…Oh^½K»L¼°šA hh™G™˜“˜“˜ŒCLAUSES˜ŒBODY‚i˜ŒAPPEND‚Ü˜ŒLAST‚¼˜Œ COPY-LISTP˜ŒGENSYM™‚¢‚7˜ŒRETURN-FROM‚1˜ŒLAMBDA‚,˜ŒFUNCTION‚%˜ŒFUNCALL‚˜ŒMULTIPLE-VALUE-SETQ‚ï˜ŒLOOPn˜ŒLET*h˜ŒBLOCK˜–)o ¿oc¿ggo™I˜Œ%DEFPARAMETER *ITERATE-TEMP-VARS-LIST*™˜“€#™‚™‚ƒ™‚„™I˜Œ*Temp var names used by ITERATE expansions.˜“˜’ŒITERATE-TEMP-1™*˜’ŒITERATE-TEMP-2™*˜’ŒITERATE-TEMP-3™*˜’ŒITERATE-TEMP-4™*˜’ŒITERATE-TEMP-5™*˜’ŒITERATE-TEMP-6™*˜’ŒITERATE-TEMP-7™*˜’ŒITERATE-TEMP-8™*˜“™‚‡™Iœ™K—˜–‚VnX¿W@Hý¿¹gIhº@»h¼h½h¾K¢L°GK_¿O_‘h€i_’O†O‘i€h—O ƒOh¾M”MN¿N¼N‘i€h–N ½K»°¸»h¼h½h¾h_¿h_¿K_¿O¡° OOoO ¿O_¿°ß@_¿h_¿O’O‚±#_‘i€h‘h€i_’O‹O‘i€h‘h€iŸoO ¿±ëOœoO ¿OgB __¿O__¿O__ ¿O_"_$¿O"_&_(¿O&_*¿O_,¿h_.¿h_0¿O,‘h€i_2’O2†O,‘i€h—O, ƒO,h_,¿Ogð_2’±ˆOk _¢±4O__4¿O_¿O4_.¿O ²3O OBOnoH _4_ ¿O4_0¿h_¿OO. _4_6_8¿O6_:¿O8›O(O8 _(¿O(²ghgO(O:O:˜gO:‚O:_BO0O.JKO _gð’±¾O$¢±¸MO$_4¿h_6¿h_8¿h_:¿O4£O6°PO4_<_>O>gð²O 0 arguments ~S--ignored.u˜ŒxCouldn't optimize iterate form because generator ~S is closed over ~S, in conflict with a subsequent iteration variable.%˜ŒjCouldn't optimize iterate form because generator ~S does something with its FINISH arg besides FUNCALL it.2™‚Õ˜•Œ \PTRHUNK7œ™O˜–‚äh¸h¹hº@‘h€i[’K°@Z‘i€h‘h€i\‘L‹Jgð‘h€i–HI@$J[¼L¢±¡L½M^gð_“O°Ngð_’O†Ngð•MI¹°lMgð“MM_¿AO _¿h_¿O²COO _²1gMgð•Mh€h_O I¹OO H¸ˆMH¸ƒMI¹L¼±ÿ`@b¿±ÿ&™O™˜“˜“˜ŒTAIL˜ŒLOCALS‚Ä™‚Ÿ‚¸™‚Ÿ‚•˜ŒSET-DIFFERENCE‚˜ŒINTERSECTION‚¥™‚Ë‚ž™‚Ën™‚Ë_˜ŒOPTIMIZER˜Œ NOTINLINED˜ŒINLINE#™‚Æœ™P˜–=‚Ä˜Œ<‚º˜Œ>‚²˜ŒIF‚©™‚A‚•™‚¤‚™‚¥‚h™‚^‚a™‚Ë‚\™‚Æ‚F™‚]‚3˜’ŒTO™*‚™‚^‚™‚Ì‚˜ŒTYPE|˜ŒBYh˜ŒBELOWT˜ŒABOVE@˜ŒDOWNTO.˜ŒTO˜ŒDOWNFROM ˜ŒFROM ‚Þ˜“™‚^˜“™‚¦˜’ŒFINISH™*‚Ø˜“™‚^™‚f‚¤˜“˜“™‚Æ˜“˜ŒIGNORE™‚o‚š˜“™‚o‚|˜“™‚]‚p˜“™‚f‚Ö˜Œ+Can't use more than one limit keyword in ~S‚¶˜Œ&Can't use both FROM and DOWNFROM in ~S‚¥˜“™‚g™‚h™‚i™‚j™‚k™‚l™‚m™‚n˜–&gg ¿ggo˜ŒDEFMACRO INTERVAL™˜“€ ™™‚’™‚“™0™‚S™0˜“˜Œ&WHOLE˜ŒWHOLE˜Œ&KEY˜ŒFROM˜ŒDOWNFROM˜ŒTO˜ŒDOWNTO˜ŒABOVE˜ŒBELOW˜ŒBY˜ŒTYPEœ˜’Œexpand-LIST-ELEMENTS™*˜–‚‚@X¹HZ»h¼gJ \’L„o½Ko ¿ggIhhggogogggMohhhhh™‚™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT(™‚[™‚\ a™‚¦\˜’ŒTAIL™*W™‚@M™‚AC™‚¤>™‚¥3™‚’.™‚Ì™‚hg˜“™‚’R˜“™‚e˜“˜ŒENDP™‚’˜“™‚¦™‚o˜“˜ŒFIRST™‚’H˜“™‚o#˜“™‚h˜“™‚¥˜ŒCDR˜–&gg ¿ggo˜ŒDEFMACRO LIST-ELEMENTS™˜“€ ™™‚’™‚“™2™‚™2˜“˜ŒLIST™‚‚˜ŒBYœ˜’Œexpand-LIST-TAILS™*˜–‚‚@X¹HZ»h¼gJ \’L„o½Ko ¿ggIhhggogogggMohhhhh™‚¥™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT(™‚[™‚\ a™‚¦\™‚’W™‚@M™‚AC™‚¤>™‚¥3™‚’.™‚Ì™‚hg˜“™‚’R˜“™‚e˜“™‚”™‚’˜“™‚¦™‚o™‚’H˜“™‚o#˜“™‚h˜“™‚¥™‚œ˜–&gg ¿ggo˜ŒDEFMACRO LIST-TAILS™˜“€ ™™‚’™‚“™3™‚¥™3˜“˜ŒLIST™‚‚˜ŒBYœ˜’Œexpand-ELEMENTS™*˜–‚›@XY‘i€hžIgð“I‚h€hZ–J „g»Jgð¼gogIhL‘h„oggoggL•oŽoKohoohhh™‚¸™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™[ e˜ŒCOND`™‚BV™‚¤Q™‚¥=˜’ŒS™*3™‚©,˜ŒLIST%˜ŒELT˜ŒTHE‚ˆ˜“˜“™‚A˜’ŒINDEX™*˜“™‚@™‚Â˜“˜Œ1+™‚Â‚˜“˜“˜“™‚¦™‚ox˜“™‚¾™‚Âr˜“™‚c™‚Â˜’ŒSIZE™*l˜“˜“˜ŒNOT˜“™‚”™‚¾˜“˜ŒPOP™‚¾[˜“™‚oJ˜“˜“™‚Ì˜“™‚ä™‚¾8˜“™‚Â˜–;gg ¿ggo¿ggo˜ŒDEFMACRO ELEMENTS™˜“€5™ ™‚™‚’+™‚“&™1™‚¥™1™‚¸™10˜“˜ŒSEQUENCE˜Œ‚ˆGenerates successive elements of SEQUENCE, with second value being the index. Use (ELEMENTS (THE type arg)) if you care about the type.œ˜’Œexpand-PLIST-ELEMENTS™*˜–@X¹ggIhho™‚à™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚’™‚Ì˜“˜“™‚¥˜“™‚¤˜“™‚o˜“™‚B˜“™‚e˜“™‚”™‚’˜“™‚¦™‚o˜“™‚—™‚’˜“™‚A˜“™‚e˜“™‚”˜“™‚@™‚’˜“™‚œ™‚’˜“™‚¦™‚o˜“™‚—™‚’˜“™‚@™‚’˜“™‚œ™‚’˜–;gg ¿ggo¿ggo˜ŒDEFMACRO PLIST-ELEMENTS™˜“€5™ ™‚™‚’+™‚“&™4™‚¥™4™‚à™40˜“˜ŒPLIST˜Œ9Generates each time 2 items, the indicator and the value.œ™[˜–}@‘i€h’@€@XgðY’I°HgðZ‘J†Hgð•gHgð•gHgð•gHgð•gHgð•gHgð•gg™[™˜“˜“˜ŒTYPEw™‚Àq˜ŒSBITj˜ŒSIMPLE-BIT-VECTORc˜ŒBIT\˜Œ BIT-VECTORU˜ŒSCHARN˜Œ SIMPLE-STRINGG˜ŒCHAR@˜ŒSTRING9˜ŒSVREF2˜Œ SIMPLE-VECTOR+˜ŒAREF$˜ŒVECTOR˜ŒSIMPLE-ARRAY ˜ŒARRAYœ˜’Œexpand-EACHTIME™*˜–$@X¹ggooIhh™‚™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚¤™‚¥˜“™‚Æ˜“™‚s™‚o˜“™‚o˜–&gg ¿ggo˜ŒDEFMACRO EACHTIME™˜“€ ™™‚’™‚“™5™‚™5˜“˜ŒEXPRœ˜’Œexpand-WHILE™*˜–*@X¹ggogIohh™‚™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒUNLESS™‚¤™‚¥˜“˜“™‚¦™‚o˜“™‚o˜–&gg ¿ggo˜ŒDEFMACRO WHILE™˜“€ ™™‚’™‚“™6™‚™6˜“˜ŒEXPRœ˜’Œexpand-UNTIL™*˜–*@X¹ggogIohh™‚-™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒWHEN™‚¤™‚¥˜“˜“™‚¦™‚o˜“™‚o˜–&gg ¿ggo˜ŒDEFMACRO UNTIL™˜“€ ™™‚’™‚“™7™‚-™7˜“˜ŒEXPRœ˜’Œexpand-GATHERING™*˜–!@X¹HZ»A¼IJA]‘MIKL™‚<™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™c™h˜–&gg ¿ggo˜ŒDEFMACRO GATHERING™˜“€ ™™‚’™‚“™-™‚<™-˜“˜ŒCLAUSES™‚•˜ŒBODY™‚—˜ŒENVœ˜’Œexpand-WITH-GATHERING™*˜–Q@X¹HZ»J¼gI½h¾h_¿h_¿M¢N°M_¿N˜OO&_¿†Oh_¾M½°àgIKhL™‚I ™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTA™-˜ŒMULTIPLE-VALUE-BIND˜–;gg ¿ggo¿ggo˜ŒDEFMACRO WITH-GATHERING™˜“€5™ ™‚™‚’+™‚“&™/™‚¥™/™‚I™/0˜“˜ŒCLAUSES˜ŒGATHER-BODY™‚•˜ŒUSE-BODY˜Œ‚’Binds the variables specified in CLAUSES to the result of (GATHERING clauses gather-body) and evaluates the forms in USE-BODY inside that contour.œ™c˜–‚)@d3@ðŸg@hhhb€@¸h¹hºh»H¢I°H¼L»I”JK&º„KhZ¹H¸°æ¸@¹hºh»h¼I¢J°¼J”KL&»„Lh[ºI¹°æ¹gggHºI»h¼h½h¾J‘h€i_’O„K‘h€i’L°)JKh¾M”MN¿N¼N‘i€h–N ½JºK»°ÇgoAgIºh»h¼h½J¢K° J¾gNh½K”LM&¼„Mh\»Jº°ßh hh@ºh»h¼h½J¢K°J¾N½K”LM&¼„Mh\»Jº°å™c™˜“˜“˜ŒCLAUSES˜ŒBODY˜ŒENV‚ó™‚Ÿ‚§™‚ I™‚¢‚Õ™‚¦‚À™‚B‚µ˜ŒFLETk™‚¤f™‚¥a˜ŒMULTIPLE-VALUE-CALL™f‚º˜“˜“™.˜“˜’ŒVALUE™*™‚"˜“˜’ŒACCUMULATOR™*™f˜“™‚¦™‚`™‚_˜–1o ¿g X£hc¿ggo™e˜ŒDEFVAR *ACTIVE-GATHERERS*™˜“€+™‚™‚‚™‚ƒ!™‚„™e™e&˜ŒCList of GATHERING bindings currently active during macro expansion)˜“™‚‡™e˜–1o ¿g X£hc¿ggo™f˜Œ!DEFVAR *ANONYMOUS-GATHERING-SITE*™˜“€+™‚™‚‚™‚ƒ!™‚„™f™f&˜ŒgVariable used in formal expansion of an abbreviated GATHERING form (one with anonymous gathering site).˜“™‚‡™fœ™h˜–‚;h¸h¹hºh»h¼@d3@ðg@hhh€@½h¾M‘M‚±Ð¾NgB __¿O__¿O__¿O__¿O__ ¿O_"¿N_$¿h_&¿h_(¿h_*¿O‘i€h²OOgð²BO_‘i€h²4O _(²&O_‘i€h²Oj _*—O‘hŒiŠhˆh†h„h‚h€h¢±¥O²PO ² goNgO ¿±’O²*OOBI _,_¿O,_&¿JO ºh¹IO" ¹O$O(O&BH¸O*O&B_*™gO*„O*K»OŸLO&O ¼°ugoN¿_,¿gNh_.¿O$O,hH¸ggO,hhK»JO,I²gI_0¿h¹O0O.h O.hh ºM½±þ/ABHbgð‘hgJL™gLh€hAKœgK Kh ™h™˜“˜“˜ŒCLAUSES˜ŒBODY˜Œ GATHERING-ENV‚3™‚Ÿ‚'˜ŒREVERSE‚ú™j‚ë™‚Á‚Ý™‚Ÿ‚‘™‚¢‚‹™V‚v™‚Á‚q™‚Ã‚L™S‚>™i‚1™‚Á‚&™‚Á‚™‚Ä‚™R‚ù™V‚½™Q‚¤™Q:™‚Ä5™L‚!™‚B‚™‚Æ‚ ™‚©‚™‚È‚Ì™‚Ç‚¶˜ŒCADR‚±™‚¦‚™˜ŒMULTIPLE-VALUE-LIST‚~™‚Ê‚W™‚Ì‚ñ™‚Æ‚ä™‚Ê‚™‚B/™-™f‚ƒ˜ŒxCouldn't optimize GATHERING clause ~S because its expansion is not of the form (VALUES #'(LAMBDA ...) #'(LAMBDA () ...))‚é˜ŒxCouldn't optimize GATHERING clause ~S because its expansion carries declarations about more than the bound variables: ~Sœ™i˜–1nXAB¿hHý¿@HÉnoHHÉh™i™˜“˜“˜ŒFORM˜ŒALIST˜ŒENV%™‚˜–Ch¹@d3@ð‘h€iZ‘J@BHÉ‘h€i‘@@HÉY’I@ºHÉ»@HÉ‘K‚JKHý¿@˜Œ&lambda in RENAME-AND-CAPTURE-VARIABLES™‚Ù˜“˜“˜ŒFORM˜ŒCONTEXT˜ŒSUBENV™U™‚Õ˜•Œ \PTRHUNK4œ™j˜–tnZAB¿ggYJý¿n¶»JÉ¼h½h¾h_¿L¢M°L_¿M•NO&¾…Oh^½L¼°äW g@JÉnoJ™e™‚÷™‚ø ™e™j ™˜“˜“˜ŒBODY˜Œ GATHERING-ENV˜ŒACC-INFOn™‚N™‚ÁV™‚Ç™j ™jd˜–‚“h¹hº@‘i€h¢±F@gð¢±@”@„gZHÉY¢±œ@›o@ ¿I[d3@ð²ggKh@hI¼h½L‘L°U]BHÉ’h°MB ‘h€i^‘NŒMHÉ ‘h€i²#goM¿HÉgh L¼°©K@hJWY²Jgð[‘KJBI€h‘@Jgðœo@ ¿ŒoJ@¿g@@gð™@gð€h²"go ¿HÉgh @@d3@ð²@HÉYš@BHÉ‚h€h²#go@¿HÉgh @™e˜Œlambda in WALK-GATHERING-BODY™‚Ù˜“˜“˜ŒFORM˜ŒCONTEXT˜ŒENV‚‹™‚ ‚{™V‚e™U‚J™‚ ‚:™V‚™‚Å‚ý™‚Å‚å™U‚¹™‚ ‚©™V‚“˜’ŒVARIABLE-SPECIAL-P™‚ç‚‚™‚•w™U>™‚Å‚„™‚È‚p™‚É‚C™‚È‚0™‚É‚&™.‚™‚¥‚˜’Œ%ORPHANED-GATHER™*‚ð™f‚Ô™f‚²™‚È‚ž™‚ÉS˜ŒCARN™‚¦$™f™.‚u˜ŒSCan't optimize GATHERING because site variable ~S is used outside of a GATHER form.‚5˜Œ:Can't optimize GATHERING because of reference to #'GATHER.‚˜Œ@The site ~S in ~S is not defined in an enclosing GATHERING form.‚÷˜Œ+There is no gathering site specified in ~S.‚£˜ŒtCan't optimize GATHERING because the expansion closes over the variable ~S, which is rebound around a GATHER for it.8˜Œ&Extra arguments (> 2) in ~S discarded.`™‚Õ™‚ˆœ˜’Œexpand-COLLECTING™*˜–O@X¹hºgH Z’J€h»Io ¿ggKhgK•o€hhho™‚ ™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚[ ™‚\3™‚’*˜’ŒHEAD™*%™‚©˜Œ INITIAL-VALUEG˜“˜“™‚B˜“™‚¥˜“™‚¤˜“™‚_˜“™‚e˜“˜ŒNULL™‚¥˜“™‚@™‚¥˜“™‚@™‚’˜“™‚¿™‚_˜“™‚@™‚’˜“™‚œ˜“˜ŒRPLACD™‚’˜“™‚¿™‚_˜“™‚¥˜“™‚¤€™‚¥:˜“™‚ ™‚¥˜“™‚¦˜–&gg ¿ggo˜ŒDEFMACRO COLLECTING™˜“€ ™™‚’™‚“™8™‚ ™8˜“™‚‚˜Œ INITIAL-VALUEœ˜’Œexpand-JOINING™*˜–=@X¹hºgH Z’J€h»Io ¿ggKhho™‚Á™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚[ ™‚\*˜’ŒRESULT™*%™‚Ì™‚¦5˜“˜“™‚B˜“™‚¥˜“™‚¤˜“™‚_˜“™‚@™‚Æ˜“˜ŒNCONC™‚Æ™‚_˜“™‚¥˜“™‚¤€™‚Æ˜“™‚¦˜–&gg ¿ggo˜ŒDEFMACRO JOINING™˜“€ ™™‚’™‚“™9™‚Á™9˜“™‚‚˜Œ INITIAL-VALUEœ˜’Œexpand-MAXIMIZING™*˜–‚‡@X¹hºgH Z’J€h»Io ¿ggKhhgggogK šK ‘i‚h€h•o„oohhoh™‚Ø™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTV˜ŒEVALO™‚X™‚[ ™‚\I™‚2?™‚¤:™‚¥5™‚B*™‚Æ%™‚Ì™‚¦{˜“˜“™‚¥˜“™‚¤€™‚Æm˜“˜“™‚@™‚Æ™‚_h˜“˜ŒOR˜“™‚¨™‚Æ˜“™‚d™‚_™‚Æb˜“™‚d™‚_™‚ÆD˜“™‚_˜“™‚¦˜–&gg ¿ggo˜ŒDEFMACRO MAXIMIZING™˜“€ ™™‚’™‚“™:™‚Ø™:˜“™‚‚˜Œ INITIAL-VALUEœ˜’Œexpand-MINIMIZING™*˜–‚‡@X¹hºgH Z’J€h»Io ¿ggKhhgggogK šK ‘i‚h€h•o„oohhoh™‚ð™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTV™‚ÝO™‚X™‚[ ™‚\I™‚2?™‚¤:™‚¥5™‚B*™‚Æ%™‚Ì™‚¦{˜“˜“™‚¥˜“™‚¤€™‚Æm˜“˜“™‚@™‚Æ™‚_h˜“™‚ã˜“™‚¨™‚Æ˜“™‚c™‚_™‚Æb˜“™‚c™‚_™‚ÆD˜“™‚_˜“™‚¦˜–&gg ¿ggo˜ŒDEFMACRO MINIMIZING™˜“€ ™™‚’™‚“™;™‚ð™;˜“™‚‚˜Œ INITIAL-VALUEœ˜’Œexpand-SUMMING™*˜–=@X¹hºgH Z’J€j»Io ¿ggKhho™‚™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚[ ™‚\*˜’ŒSUM™*%™‚Ì™‚¦5˜“˜“™‚B˜“™‚¥˜“™‚¤˜“™‚_˜“™‚@™‚˜“™‚_™‚™‚_˜“™‚¥˜“™‚¤€™‚˜“™‚¦˜–&gg ¿ggo˜ŒDEFMACRO SUMMING™˜“€ ™™‚’™‚“™<™‚™<˜“™‚‚˜Œ INITIAL-VALUE˜–+ggo¿ggg˜Œ%XCL:DEFINE-FILE-ENVIRONMENT "ITERATE"™˜“€%™™ ˜ŒCOMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™˜“™ ˜ŒXCL™˜“™™ ™˜“™˜“™™™ ˜–o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒVenue‚Çš‚/ÿÿ